| 3135 |
end; |
end; |
| 3136 |
|
|
| 3137 |
procedure TGikoForm.WorkEnd(Sender: TObject; AWorkMode: TWorkMode; Number: Integer); |
procedure TGikoForm.WorkEnd(Sender: TObject; AWorkMode: TWorkMode; Number: Integer); |
|
var |
|
|
i: Integer; |
|
| 3138 |
begin |
begin |
|
// ProgressBar.Visible := False; |
|
| 3139 |
ProgressBar.Position := 0; |
ProgressBar.Position := 0; |
|
// SetProgressValue(Number, 0); |
|
| 3140 |
if FDownloadMax <> 0 then |
if FDownloadMax <> 0 then |
| 3141 |
StatusBar.Panels[1].Text := FDownloadTitle + ' - ダウンロードが完了しました'; |
StatusBar.Panels[1].Text := FDownloadTitle + ' - ダウンロードが完了しました'; |
| 3142 |
end; |
end; |
| 3293 |
BrowserNullTab.Browser := Browser; |
BrowserNullTab.Browser := Browser; |
| 3294 |
end; |
end; |
| 3295 |
BrowserNullTab.thread := ThreadItem; |
BrowserNullTab.thread := ThreadItem; |
| 3296 |
BrowserNullTab.Browser.Navigate( 'about:blank' ); |
BrowserNullTab.Browser.Navigate(BLANK_HTML); |
| 3297 |
SetWindowPos( BrowserNullTab.Browser.Handle, HWND_TOPMOST, 0, 0, BrowserPanel.Width, BrowserPanel.Height, SWP_NOACTIVATE or SWP_NOZORDER); |
SetWindowPos( BrowserNullTab.Browser.Handle, HWND_TOPMOST, 0, 0, BrowserPanel.Width, BrowserPanel.Height, SWP_NOACTIVATE or SWP_NOZORDER); |
| 3298 |
BrowserTab.TabIndex := -1; |
BrowserTab.TabIndex := -1; |
| 3299 |
SetContent(BrowserNullTab); |
SetContent(BrowserNullTab); |
| 5239 |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]) = BrowserRecord then begin |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]) = BrowserRecord then begin |
| 5240 |
BrowserTab.Tabs.BeginUpdate; |
BrowserTab.Tabs.BeginUpdate; |
| 5241 |
try |
try |
| 5242 |
doc := TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser.Document; |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser <> nil then begin |
| 5243 |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.ScrollTop := doc.Body.ScrollTop; |
doc := TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser.Document; |
| 5244 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.ScrollTop := doc.Body.ScrollTop; |
| 5245 |
|
end; |
| 5246 |
except |
except |
| 5247 |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.ScrollTop := 0; |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.ScrollTop := 0; |
| 5248 |
end; |
end; |
| 5298 |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread = ThreadItem then begin |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread = ThreadItem then begin |
| 5299 |
BrowserTab.Tabs.BeginUpdate; |
BrowserTab.Tabs.BeginUpdate; |
| 5300 |
try |
try |
| 5301 |
doc := TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser.Document; |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser <> nil then begin |
| 5302 |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.ScrollTop := doc.Body.ScrollTop; |
doc := TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser.Document; |
| 5303 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.ScrollTop := doc.Body.ScrollTop; |
| 5304 |
|
end; |
| 5305 |
except |
except |
| 5306 |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.ScrollTop := 0; |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.ScrollTop := 0; |
| 5307 |
end; |
end; |
| 5308 |
if(FActiveContent = TBrowserRecord(BrowserTab.Tabs.Objects[i])) then |
if(FActiveContent = TBrowserRecord(BrowserTab.Tabs.Objects[i])) then |
| 5309 |
FActiveContent := nil; |
FActiveContent := nil; |
| 5310 |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser <> nil then begin |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser <> nil then begin |
| 5311 |
j := FBrowsers.IndexOf(TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser); |
j := FBrowsers.IndexOf(TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser); |
| 5312 |
if j <> -1 then |
if j <> -1 then |
| 5608 |
BrowserTab.OnChange := nil; |
BrowserTab.OnChange := nil; |
| 5609 |
BrowserTab.Tabs.BeginUpdate; |
BrowserTab.Tabs.BeginUpdate; |
| 5610 |
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
|
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser <> nil then |
|
|
TOleControl(TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser).Visible := false; |
|
| 5611 |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Free; |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Free; |
| 5612 |
end; |
end; |
| 5613 |
BrowserTab.Tabs.Clear; |
BrowserTab.Tabs.Clear; |
| 5966 |
p: TPoint; |
p: TPoint; |
| 5967 |
p2: TPoint; |
p2: TPoint; |
| 5968 |
idx: Integer; |
idx: Integer; |
|
OldIndex: Integer; |
|
| 5969 |
begin |
begin |
| 5970 |
if Button = mbMiddle then begin |
if Button = mbMiddle then begin |
| 5971 |
// マウス中ボタン |
// マウス中ボタン |
| 6307 |
AddMessageList('ログアウトしました', nil, gmiOK); |
AddMessageList('ログアウトしました', nil, gmiOK); |
| 6308 |
LoginAction.Caption := 'ログイン(&L)'; |
LoginAction.Caption := 'ログイン(&L)'; |
| 6309 |
end else begin |
end else begin |
|
GikoSys.Dolib.DolibURL := GikoSys.Setting.DolibURL; |
|
| 6310 |
TmpCursor := Screen.Cursor; |
TmpCursor := Screen.Cursor; |
| 6311 |
Screen.Cursor := crHourGlass; |
Screen.Cursor := crHourGlass; |
| 6312 |
try |
try |
| 9919 |
iOIPAO : IOleInPlaceActiveObject; |
iOIPAO : IOleInPlaceActiveObject; |
| 9920 |
Dispatch : IDispatch; |
Dispatch : IDispatch; |
| 9921 |
begin |
begin |
| 9922 |
|
Result := False; |
| 9923 |
if Key = VK_BACK then begin |
if Key = VK_BACK then begin |
| 9924 |
UpBoardAction.Execute; |
UpBoardAction.Execute; |
| 9925 |
Result := True; |
Result := True; |
| 9940 |
iOIPAO.TranslateAccelerator( Msg ); |
iOIPAO.TranslateAccelerator( Msg ); |
| 9941 |
end; |
end; |
| 9942 |
end; |
end; |
|
|
|
| 9943 |
// ギコナビで使うショートカットは受け取りたいのでイベントはカットしない |
// ギコナビで使うショートカットは受け取りたいのでイベントはカットしない |
| 9944 |
Result := False; |
//Result := False; |
| 9945 |
end; |
end; |
| 9946 |
|
|
| 9947 |
end; |
end; |
| 9962 |
end; |
end; |
| 9963 |
|
|
| 9964 |
WM_XBUTTONDOWN: |
WM_XBUTTONDOWN: |
| 9965 |
case Msg.wParam shr 16 of |
case Msg.wParam shr 16 of |
| 9966 |
XBUTTON1: |
XBUTTON1: |
| 9967 |
if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin |
if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin |
| 9968 |
if IsDialogMessage( FActiveContent.Browser.Handle, Msg ) then begin |
if IsDialogMessage( FActiveContent.Browser.Handle, Msg ) then begin |
| 9977 |
end; |
end; |
| 9978 |
end; |
end; |
| 9979 |
|
|
| 9980 |
end; |
end; |
| 9981 |
|
|
| 9982 |
procedure TGikoForm.FavoriteTreeViewMouseDown(Sender: TObject; |
procedure TGikoForm.FavoriteTreeViewMouseDown(Sender: TObject; |
| 9983 |
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
| 10062 |
Self.Thread.ScrollTop := doc.Body.ScrollTop; |
Self.Thread.ScrollTop := doc.Body.ScrollTop; |
| 10063 |
//doc.clear; |
//doc.clear; |
| 10064 |
end; |
end; |
| 10065 |
//Self.FBrowser.Free; |
TOleControl(Self.FBrowser).Visible := false; |
| 10066 |
end; |
end; |
| 10067 |
|
|
| 10068 |
end; |
end; |