| 3927 |
i, j: Integer; |
i, j: Integer; |
| 3928 |
idx: Integer; |
idx: Integer; |
| 3929 |
begin |
begin |
| 3930 |
|
BrowserTab.Tabs.BeginUpdate; |
| 3931 |
if not BrowserTab.Dragging then begin |
try |
| 3932 |
FTabHintIndex := -1; |
if not BrowserTab.Dragging then begin |
| 3933 |
BrowserTab.Hint := ''; |
FTabHintIndex := -1; |
| 3934 |
idx := BrowserTab.TabIndex; |
BrowserTab.Hint := ''; |
| 3935 |
if idx = -1 then begin |
idx := BrowserTab.TabIndex; |
| 3936 |
SetContent(BrowserNullTab); |
if idx = -1 then begin |
| 3937 |
|
SetContent(BrowserNullTab); |
| 3938 |
end else if(BrowserTab.Tabs.Objects[idx] <> nil) and (BrowserTab.Tabs.Objects[idx] is TBrowserRecord) then begin |
|
| 3939 |
if TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser <> nil then begin |
end else if(BrowserTab.Tabs.Objects[idx] <> nil) and (BrowserTab.Tabs.Objects[idx] is TBrowserRecord) then begin |
| 3940 |
j := FBrowsers.IndexOf(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser); |
if TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser <> nil then begin |
| 3941 |
if j <> -1 then |
j := FBrowsers.IndexOf(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser); |
| 3942 |
FBrowsers.Move(j ,0); |
if j <> -1 then |
| 3943 |
end else begin |
FBrowsers.Move(j ,0); |
| 3944 |
if( FActiveContent <> nil ) and (FActiveContent.Browser <> nil) and |
end else begin |
| 3945 |
(FActiveContent.Browser <> BrowserNullTab.Browser) and |
if( FActiveContent <> nil ) and (FActiveContent.Browser <> nil) and |
| 3946 |
(FActiveContent.Browser = TWebBrowser(FBrowsers[BROWSER_COUNT - 1])) then |
(FActiveContent.Browser <> BrowserNullTab.Browser) and |
| 3947 |
FBrowsers.Move(BROWSER_COUNT - 1, 0); |
(FActiveContent.Browser = TWebBrowser(FBrowsers[BROWSER_COUNT - 1])) then |
| 3948 |
|
FBrowsers.Move(BROWSER_COUNT - 1, 0); |
| 3949 |
for i := 0 to BrowserTab.Tabs.Count - 1 do begin |
|
| 3950 |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) then begin |
for i := 0 to BrowserTab.Tabs.Count - 1 do begin |
| 3951 |
ReleaseBrowser(TBrowserRecord(BrowserTab.Tabs.Objects[i])); |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) then begin |
| 3952 |
break; |
ReleaseBrowser(TBrowserRecord(BrowserTab.Tabs.Objects[i])); |
| 3953 |
|
break; |
| 3954 |
|
end; |
| 3955 |
end; |
end; |
| 3956 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser := TWebBrowser(FBrowsers[BROWSER_COUNT - 1]); |
| 3957 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Repaint := true; |
| 3958 |
|
FBrowsers.Move(BROWSER_COUNT - 1, 0); |
| 3959 |
end; |
end; |
| 3960 |
TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser := TWebBrowser(FBrowsers[BROWSER_COUNT - 1]); |
MoveWindow(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser.Handle, 0, 0, BrowserPanel.Width, BrowserPanel.Height, false); |
| 3961 |
TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Repaint := true; |
TOleControl(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser).BringToFront; |
| 3962 |
FBrowsers.Move(BROWSER_COUNT - 1, 0); |
SetContent(TBrowserRecord(BrowserTab.Tabs.Objects[idx])); |
| 3963 |
end; |
|
| 3964 |
MoveWindow(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser.Handle, 0, 0, BrowserPanel.Width, BrowserPanel.Height, false); |
if (GikoSys.Setting.URLDisplay) and (GetActiveContent <> nil) then |
| 3965 |
TOleControl(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser).BringToFront; |
AddressComboBox.Text := GetActiveContent.URL; |
| 3966 |
SetContent(TBrowserRecord(BrowserTab.Tabs.Objects[idx])); |
|
| 3967 |
|
if ((TreeView.Visible) and (TreeView.Focused)) or ((FavoriteTreeView.Visible) and (FavoriteTreeView.Focused)) or |
| 3968 |
if (GikoSys.Setting.URLDisplay) and (GetActiveContent <> nil) then |
(ListView.Focused) or (SelectComboBox.Focused) or (AddressComboBox.Focused) |
| 3969 |
AddressComboBox.Text := GetActiveContent.URL; |
then |
| 3970 |
|
else |
| 3971 |
if ((TreeView.Visible) and (TreeView.Focused)) or ((FavoriteTreeView.Visible) and (FavoriteTreeView.Focused)) or |
GikoDM.SetFocusForBrowserAction.Execute; |
| 3972 |
(ListView.Focused) or (SelectComboBox.Focused) or (AddressComboBox.Focused) |
end; |
|
then |
|
|
else |
|
|
GikoDM.SetFocusForBrowserAction.Execute; |
|
|
|
|
| 3973 |
end; |
end; |
| 3974 |
|
finally |
| 3975 |
|
BrowserTab.Tabs.EndUpdate; |
| 3976 |
end; |
end; |
|
|
|
| 3977 |
end; |
end; |
| 3978 |
|
|
| 3979 |
|
|
| 7634 |
ViewType := gvtNew; |
ViewType := gvtNew; |
| 7635 |
end; |
end; |
| 7636 |
end; |
end; |
| 7637 |
|
if GikoSys.Setting.BrowserTabPosition = gtpTop then begin |
| 7638 |
|
GikoDM.BrowserTabTopAction.Checked := True; |
| 7639 |
|
end else begin |
| 7640 |
|
GikoDM.BrowserTabBottomAction.Checked := True; |
| 7641 |
|
end; |
| 7642 |
|
|
| 7643 |
|
if GikoSys.Setting.BrowserTabStyle = gtsTab then begin |
| 7644 |
|
GikoDM.BrowserTabTabStyleAction.Checked := True; |
| 7645 |
|
end else if GikoSys.Setting.BrowserTabStyle = gtsButton then begin |
| 7646 |
|
GikoDM.BrowserTabButtonStyleAction.Checked := True; |
| 7647 |
|
end else begin |
| 7648 |
|
GikoDM.BrowserTabFlatStyleAction.Checked := True; |
| 7649 |
|
end; |
| 7650 |
end; |
end; |
| 7651 |
// ************************************************************************* |
// ************************************************************************* |
| 7652 |
//! ダウンロードコントロールスレッドの生成 |
//! ダウンロードコントロールスレッドの生成 |