| 1725 |
|
|
| 1726 |
procedure TGikoForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); |
procedure TGikoForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); |
| 1727 |
begin |
begin |
| 1728 |
|
SaveCoolBarSettings; |
| 1729 |
if ( GikoSys.Setting.ShowDialogForEnd ) and |
if ( GikoSys.Setting.ShowDialogForEnd ) and |
| 1730 |
(MessageDlg('ギコナビを終了してよろしいですか?', mtConfirmation,[mbOk, mbCancel], 0) = mrCancel ) then begin |
(MessageDlg('ギコナビを終了してよろしいですか?', mtConfirmation,[mbOk, mbCancel], 0) = mrCancel ) then begin |
| 1731 |
CanClose := false; |
CanClose := false; |
| 3215 |
if ThreadItem.IsLogFile then begin |
if ThreadItem.IsLogFile then begin |
| 3216 |
//お気に入りの全て開くとかやると、今開いてるスレのbrowserを付け替える恐れがある |
//お気に入りの全て開くとかやると、今開いてるスレのbrowserを付け替える恐れがある |
| 3217 |
//常に4番目にActiveのブラウザが来ないように移動させる |
//常に4番目にActiveのブラウザが来ないように移動させる |
| 3218 |
if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil) then begin |
if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil) and |
| 3219 |
|
(FActiveContent.FBrowser <> BrowserNullTab.Browser)then begin |
| 3220 |
j := FBrowsers.IndexOf(FActiveContent.FBrowser); |
j := FBrowsers.IndexOf(FActiveContent.FBrowser); |
| 3221 |
if j = 4 then |
if j = 4 then |
| 3222 |
FBrowsers.Move(4, 0); |
FBrowsers.Move(4, 0); |
| 3351 |
if inThread = nil then |
if inThread = nil then |
| 3352 |
Exit |
Exit |
| 3353 |
else if inThread.Browser = nil then begin |
else if inThread.Browser = nil then begin |
| 3354 |
|
if FActiveContent.Browser = TWebBrowser(FBrowsers[4]) then |
| 3355 |
|
FBrowsers.Move(4, 0); |
| 3356 |
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
| 3357 |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser = TWebBrowser(FBrowsers[4]) then begin |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser = TWebBrowser(FBrowsers[4]) then begin |
| 3358 |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser := nil; |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser := nil; |
| 3394 |
|
|
| 3395 |
Screen.Cursor := crHourGlass; |
Screen.Cursor := crHourGlass; |
| 3396 |
try |
try |
| 3397 |
if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil) then |
//if (FActiveContent <> nil) and (FActiveContent.FBrowser <> nil) then |
| 3398 |
TOleControl(FActiveContent.FBrowser).BringToFront; |
// TOleControl(FActiveContent.FBrowser).BringToFront; |
| 3399 |
if inThread.FThread.UnRead then begin |
if inThread.FThread.UnRead then begin |
| 3400 |
inThread.FThread.ParentBoard.UnRead := inThread.FThread.ParentBoard.UnRead - 1; |
inThread.FThread.ParentBoard.UnRead := inThread.FThread.ParentBoard.UnRead - 1; |
| 3401 |
if inThread.FThread.ParentBoard.UnRead < 0 then inThread.FThread.ParentBoard.UnRead := 0; |
if inThread.FThread.ParentBoard.UnRead < 0 then inThread.FThread.ParentBoard.UnRead := 0; |
| 3404 |
LockWindowUpdate(Self.Handle); |
LockWindowUpdate(Self.Handle); |
| 3405 |
if not TOleControl(inThread.FBrowser).Visible then |
if not TOleControl(inThread.FBrowser).Visible then |
| 3406 |
TOleControl(inThread.FBrowser).Visible := true; //ここで表示しておかないと描画で止まる |
TOleControl(inThread.FBrowser).Visible := true; //ここで表示しておかないと描画で止まる |
|
TOleControl(inThread.FBrowser).BringToFront; |
|
| 3407 |
LockWindowUpdate(0); |
LockWindowUpdate(0); |
| 3408 |
|
if (not Assigned(inThread.Browser.Document)) then begin |
| 3409 |
|
inThread.Browser.Navigate('about:blank'); |
| 3410 |
|
end; |
| 3411 |
if not inThread.FThread.IsLogFile then begin |
if not inThread.FThread.IsLogFile then begin |
|
if (not Assigned(inThread.Browser.Document)) then begin |
|
|
inThread.Browser.Navigate('about:blank'); |
|
|
//while (not Assigned(Thread.Browser.Document)) do begin |
|
|
// Application.ProcessMessages; |
|
|
//end; |
|
|
end; |
|
| 3412 |
try |
try |
| 3413 |
s := '<HTML><BODY><CENTER>このスレッドは取得していません</CENTER></BODY></HTML>'; |
s := '<HTML><BODY><CENTER>このスレッドは取得していません</CENTER></BODY></HTML>'; |
| 3414 |
doc := Idispatch( olevariant(inThread.Browser.ControlInterface).Document) as IHTMLDocument2; |
doc := Idispatch( olevariant(BrowserNullTab.Browser.ControlInterface).Document) as IHTMLDocument2; |
| 3415 |
doc.open; |
doc.open; |
| 3416 |
doc.charset := 'Shift_JIS'; |
doc.charset := 'Shift_JIS'; |
| 3417 |
doc.Write(s); |
doc.Write(s); |
| 3427 |
try |
try |
| 3428 |
doc := Idispatch( olevariant(inThread.Browser.ControlInterface).Document) as IHTMLDocument2; |
doc := Idispatch( olevariant(inThread.Browser.ControlInterface).Document) as IHTMLDocument2; |
| 3429 |
GikoSys.CreateHTML2(doc, inThread.FThread, sTitle); |
GikoSys.CreateHTML2(doc, inThread.FThread, sTitle); |
| 3430 |
|
//なぜかここで明示的にDocumentCompleteを呼ばないとうまくいかない |
| 3431 |
inThread.FBrowser.OnDocumentComplete(inThread.FBrowser, inThread.FBrowser.Parent, url); |
inThread.FBrowser.OnDocumentComplete(inThread.FBrowser, inThread.FBrowser.Parent, url); |
| 3432 |
inThread.OnlyHundred := GikoSys.OnlyAHundredRes; |
inThread.OnlyHundred := GikoSys.OnlyAHundredRes; |
| 3433 |
Application.ProcessMessages; |
Application.ProcessMessages; |
| 5344 |
end else begin |
end else begin |
| 5345 |
BrowserTab.TabIndex := idx; |
BrowserTab.TabIndex := idx; |
| 5346 |
end; |
end; |
|
if idx > (BrowserTab.Tabs.Count - 1) then |
|
|
BrowserTab.TabIndex := BrowserTab.Tabs.Count - 1 |
|
|
else |
|
|
BrowserTab.TabIndex := idx - 1; |
|
|
if BrowserTab.Tabs.Count = 0 then begin |
|
|
BrowserNullTab.Thread := nil; |
|
|
end; |
|
| 5347 |
if(BrowserTab.TabIndex <> -1) and |
if(BrowserTab.TabIndex <> -1) and |
| 5348 |
( TBrowserRecord(BrowserTab.Tabs.Objects[BrowserTab.TabIndex]).Browser = nil) then begin |
( TBrowserRecord(BrowserTab.Tabs.Objects[BrowserTab.TabIndex]).Browser = nil) then begin |
| 5349 |
for j := BrowserTab.Tabs.Count - 1 downto 0 do begin |
for j := BrowserTab.Tabs.Count - 1 downto 0 do begin |
| 5939 |
if j <> -1 then |
if j <> -1 then |
| 5940 |
FBrowsers.Move(j ,0); |
FBrowsers.Move(j ,0); |
| 5941 |
end else begin |
end else begin |
| 5942 |
|
if( FActiveContent <> nil ) and (FActiveContent.Browser <> nil) and |
| 5943 |
|
(FActiveContent.Browser <> BrowserNullTab.Browser) and |
| 5944 |
|
(FActiveContent.Browser = TWebBrowser(FBrowsers[4])) then |
| 5945 |
|
FBrowsers.Move(4, 0); |
| 5946 |
|
|
| 5947 |
for i := 0 to BrowserTab.Tabs.Count - 1 do begin |
for i := 0 to BrowserTab.Tabs.Count - 1 do begin |
| 5948 |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser = TWebBrowser(FBrowsers[4]) then begin |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser = TWebBrowser(FBrowsers[4]) then begin |
| 5949 |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser := nil; |
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser := nil; |
| 5954 |
end; |
end; |
| 5955 |
end; |
end; |
| 5956 |
TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser := TWebBrowser(FBrowsers[4]); |
TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser := TWebBrowser(FBrowsers[4]); |
| 5957 |
TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Repaint := true; |
TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Repaint := true; |
| 5958 |
FBrowsers.Move(4, 0); |
FBrowsers.Move(4, 0); |
| 5959 |
end; |
end; |
| 5960 |
ThreadItem := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Thread; |
ThreadItem := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Thread; |
| 5961 |
TOleControl(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser).BringToFront; |
TOleControl(TBrowserRecord(BrowserTab.Tabs.Objects[idx]).Browser).BringToFront; |
| 5962 |
GikoSys.OnlyAHundredRes := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred; |
GikoSys.OnlyAHundredRes := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred; |
| 5963 |
OnlyAHundredRes.Checked := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred; |
OnlyAHundredRes.Checked := TBrowserRecord(BrowserTab.Tabs.Objects[idx]).OnlyHundred; |
| 5964 |
SetContent(TBrowserRecord(BrowserTab.Tabs.Objects[idx])); |
SetContent(TBrowserRecord(BrowserTab.Tabs.Objects[idx])); |
| 6123 |
BrowserTab.EndDrag(false); |
BrowserTab.EndDrag(false); |
| 6124 |
FDragWFirst := false; |
FDragWFirst := false; |
| 6125 |
end; |
end; |
| 6126 |
|
|
| 6127 |
if (FTabHintIndex <> TabIdx) and (TabIdx <> -1) then begin |
if (FTabHintIndex <> TabIdx) and (TabIdx <> -1) then begin |
| 6128 |
Application.CancelHint; |
Application.CancelHint; |
| 6129 |
ThreadItem := TBrowserRecord(BrowserTab.Tabs.Objects[TabIdx]).Thread; |
ThreadItem := TBrowserRecord(BrowserTab.Tabs.Objects[TabIdx]).Thread; |
| 8861 |
Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, ThreadItem.Title, FavoThreadItem); |
Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, ThreadItem.Title, FavoThreadItem); |
| 8862 |
Node.ImageIndex := 16; |
Node.ImageIndex := 16; |
| 8863 |
Node.SelectedIndex := 16; |
Node.SelectedIndex := 16; |
| 8864 |
|
end else if Source is TBrowserRecord then begin |
| 8865 |
|
ThreadItem := TBrowserRecord( Source ).FThread; |
| 8866 |
|
FavoThreadItem := TFavoriteThreadItem.CreateWithItem( ThreadItem ); |
| 8867 |
|
Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, ThreadItem.Title, FavoThreadItem); |
| 8868 |
|
Node.ImageIndex := 16; |
| 8869 |
|
Node.SelectedIndex := 16; |
| 8870 |
end else if Source is TFavoriteThreadItem then begin |
end else if Source is TFavoriteThreadItem then begin |
| 8871 |
FavoThreadItem := TFavoriteThreadItem( Source ); |
FavoThreadItem := TFavoriteThreadItem( Source ); |
| 8872 |
ThreadItem := FavoThreadItem.Item; |
ThreadItem := FavoThreadItem.Item; |
| 8911 |
|
|
| 8912 |
idx := BrowserTab.TabIndex; |
idx := BrowserTab.TabIndex; |
| 8913 |
FavoriteAddTo( SenderNode, BrowserTab.Tabs.Objects[idx] ); |
FavoriteAddTo( SenderNode, BrowserTab.Tabs.Objects[idx] ); |
|
|
|
| 8914 |
end else if Source = ListView then begin |
end else if Source = ListView then begin |
| 8915 |
|
|
| 8916 |
FavoriteAddTo( SenderNode, ListView.Selected.Data ); |
FavoriteAddTo( SenderNode, ListView.Selected.Data ); |