| 3446 |
end; |
end; |
| 3447 |
end; |
end; |
| 3448 |
if not ThreadItem.IsLogFile then begin |
if not ThreadItem.IsLogFile then begin |
| 3449 |
Caption := CAPTION_NAME ; |
Self.Caption := CAPTION_NAME ; |
| 3450 |
try |
try |
| 3451 |
s := '<HTML><BODY><CENTER>このスレッドは取得していません</CENTER></BODY></HTML>'; |
s := '<HTML><BODY><CENTER>このスレッドは取得していません</CENTER></BODY></HTML>'; |
| 3452 |
doc := Idispatch( olevariant(Thread.Browser.ControlInterface).Document) as IHTMLDocument2; |
doc := Idispatch( olevariant(Thread.Browser.ControlInterface).Document) as IHTMLDocument2; |
| 3457 |
finally |
finally |
| 3458 |
end; |
end; |
| 3459 |
end else begin |
end else begin |
| 3460 |
Caption := CAPTION_NAME + ' - [' + ThreadItem.Title + ']'; |
Self.Caption := CAPTION_NAME + ' - [' + ThreadItem.Title + ']'; |
| 3461 |
//Thread.Repaintは、スキン等の設定を変更したとき、Threadをダウンロードしたとき |
//Thread.Repaintは、スキン等の設定を変更したとき、Threadをダウンロードしたとき |
| 3462 |
//新規にThreadを開いたときに真になっている。 |
//新規にThreadを開いたときに真になっている。 |
| 3463 |
if(Thread.Repaint) or (Thread.OnlyHundred <> GikoSys.OnlyAHundredRes)then begin |
if(Thread.Repaint) or (Thread.OnlyHundred <> GikoSys.OnlyAHundredRes)then begin |
| 3566 |
ListView.Selected := nil; |
ListView.Selected := nil; |
| 3567 |
// ListView.Columns.Clear; |
// ListView.Columns.Clear; |
| 3568 |
|
|
| 3569 |
Caption := CAPTION_NAME; |
Self.Caption := CAPTION_NAME; |
| 3570 |
//Application.Title := CAPTION_NAME; |
//Application.Title := CAPTION_NAME; |
| 3571 |
|
|
| 3572 |
if Obj is TBBS then begin |
if Obj is TBBS then begin |
| 5696 |
BrowserTab.Tabs.EndUpdate; |
BrowserTab.Tabs.EndUpdate; |
| 5697 |
BrowserTab.OnChange := BrowserTabChange; |
BrowserTab.OnChange := BrowserTabChange; |
| 5698 |
SetContent(BrowserNullTab); |
SetContent(BrowserNullTab); |
| 5699 |
|
Self.Caption := CAPTION_NAME ; |
| 5700 |
end; |
end; |
| 5701 |
|
|
| 5702 |
procedure TGikoForm.TreeSelectBoradReloadExecute(Sender: TObject); |
procedure TGikoForm.TreeSelectBoradReloadExecute(Sender: TObject); |
| 6050 |
|
|
| 6051 |
if (GikoSys.Setting.URLDisplay) and (GetActiveContent <> nil) then |
if (GikoSys.Setting.URLDisplay) and (GetActiveContent <> nil) then |
| 6052 |
AddressComboBox.Text := GetActiveContent.URL; |
AddressComboBox.Text := GetActiveContent.URL; |
| 6053 |
|
|
| 6054 |
|
if ((TreeView.Visible) and (TreeView.Focused)) or ((FavoriteTreeView.Visible) and (FavoriteTreeView.Focused)) or |
| 6055 |
|
(ListView.Focused) or (SelectComboBox.Focused) or (AddressComboBox.Focused) |
| 6056 |
|
then |
| 6057 |
|
else |
| 6058 |
|
SetFocusForBrowserAction.Execute; |
| 6059 |
|
|
| 6060 |
end; |
end; |
| 6061 |
|
|
| 6062 |
end; |
end; |