| 417 |
HTML1: TMenuItem; |
HTML1: TMenuItem; |
| 418 |
DAT4: TMenuItem; |
DAT4: TMenuItem; |
| 419 |
N80: TMenuItem; |
N80: TMenuItem; |
| 420 |
|
SameBoardThreadItem: TMenuItem; |
| 421 |
|
N81: TMenuItem; |
| 422 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 423 |
procedure FormDestroy(Sender: TObject); |
procedure FormDestroy(Sender: TObject); |
| 424 |
procedure BrowserStatusTextChange(Sender: TObject; |
procedure BrowserStatusTextChange(Sender: TObject; |
| 682 |
procedure ShowEditors(nCmdShow: Integer); |
procedure ShowEditors(nCmdShow: Integer); |
| 683 |
//! もっとも古いBrowserの開放 |
//! もっとも古いBrowserの開放 |
| 684 |
procedure ReleaseOldestBrowser; |
procedure ReleaseOldestBrowser; |
| 685 |
|
//! アクティブなタブと同じ板の開いているスレッドをメニューアイテムに追加 |
| 686 |
|
procedure AddMenuSameBoardThread; |
| 687 |
|
//! アクティブなタブと同じ板の開いているスレッドクリックイベント |
| 688 |
|
procedure SameBoardThreadSubItemOnClick(Sender: TObject); |
| 689 |
protected |
protected |
| 690 |
procedure CreateParams(var Params: TCreateParams); override; |
procedure CreateParams(var Params: TCreateParams); override; |
| 691 |
procedure WndProc(var Message: TMessage); override; |
procedure WndProc(var Message: TMessage); override; |
| 6237 |
procedure TGikoForm.BrowserTabPopupMenuPopup(Sender: TObject); |
procedure TGikoForm.BrowserTabPopupMenuPopup(Sender: TObject); |
| 6238 |
begin |
begin |
| 6239 |
AddRoundNameMenu(dummy1); |
AddRoundNameMenu(dummy1); |
| 6240 |
|
AddMenuSameBoardThread; |
| 6241 |
|
end; |
| 6242 |
|
//! アクティブなタブと同じ板の開いているスレッドをメニューアイテムに追加 |
| 6243 |
|
procedure TGikoForm.AddMenuSameBoardThread; |
| 6244 |
|
var |
| 6245 |
|
i: Integer; |
| 6246 |
|
Item: TMenuItem; |
| 6247 |
|
begin |
| 6248 |
|
SameBoardThreadItem.Clear; |
| 6249 |
|
for i := 0 to BrowserTab.Tabs.Count - 1 do begin |
| 6250 |
|
// 同じ板かどうか |
| 6251 |
|
if (FActiveContent.Thread.ParentBoard = |
| 6252 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.ParentBoard) then begin |
| 6253 |
|
// 自分は外す |
| 6254 |
|
if FActiveContent.Thread <> |
| 6255 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread then begin |
| 6256 |
|
Item := TMenuItem.Create(Self); |
| 6257 |
|
Item.Caption := TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.Title; |
| 6258 |
|
Item.OnClick := SameBoardThreadSubItemOnClick; |
| 6259 |
|
SameBoardThreadItem.Add(Item); |
| 6260 |
|
end; |
| 6261 |
|
end; |
| 6262 |
|
end; |
| 6263 |
|
// 何も無いなら使用できないようにする |
| 6264 |
|
SameBoardThreadItem.Enabled := SameBoardThreadItem.Count > 0; |
| 6265 |
|
end; |
| 6266 |
|
//! アクティブなタブと同じ板の開いているスレッドクリックイベント |
| 6267 |
|
procedure TGikoForm.SameBoardThreadSubItemOnClick(Sender: TObject); |
| 6268 |
|
var |
| 6269 |
|
i, j: Integer; |
| 6270 |
|
MenuItem: TMenuItem; |
| 6271 |
|
begin |
| 6272 |
|
if Sender is TMenuItem then begin |
| 6273 |
|
try |
| 6274 |
|
j := 0; |
| 6275 |
|
MenuItem := TMenuItem(Sender); |
| 6276 |
|
for i := 0 to BrowserTab.Tabs.Count - 1 do begin |
| 6277 |
|
// 同じ板かどうか |
| 6278 |
|
if (FActiveContent.Thread.ParentBoard = |
| 6279 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.ParentBoard) then begin |
| 6280 |
|
if FActiveContent.Thread <> |
| 6281 |
|
TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread then begin |
| 6282 |
|
if (SameBoardThreadItem.Items[j] = MenuItem) then begin |
| 6283 |
|
MoveToURL( TBrowserRecord(BrowserTab.Tabs.Objects[i]) |
| 6284 |
|
.Thread.URL); |
| 6285 |
|
Exit; |
| 6286 |
|
end; |
| 6287 |
|
Inc(j); |
| 6288 |
|
end; |
| 6289 |
|
end; |
| 6290 |
|
end; |
| 6291 |
|
except |
| 6292 |
|
end; |
| 6293 |
|
end; |
| 6294 |
end; |
end; |
|
|
|
| 6295 |
procedure TGikoForm.FavoritesURLReplace(oldURLs: TStringList; newURLs: TStringList); |
procedure TGikoForm.FavoritesURLReplace(oldURLs: TStringList; newURLs: TStringList); |
| 6296 |
begin |
begin |
| 6297 |
FavoriteDM.URLReplace(oldURLs, newURLs); |
FavoriteDM.URLReplace(oldURLs, newURLs); |
| 6495 |
TreeDoubleClick( TreeView.Selected ); |
TreeDoubleClick( TreeView.Selected ); |
| 6496 |
end else if Key = VK_RETURN then begin |
end else if Key = VK_RETURN then begin |
| 6497 |
TreeClick( TreeView.Selected ); |
TreeClick( TreeView.Selected ); |
| 6498 |
TreeView.Selected.Expanded := not TreeView.Selected.Expanded; |
// 履歴の場合、消されているのでチェックする |
| 6499 |
|
if (TreeView.Selected <> nil) then begin |
| 6500 |
|
TreeView.Selected.Expanded := not TreeView.Selected.Expanded; |
| 6501 |
|
end; |
| 6502 |
end; |
end; |
| 6503 |
end; |
end; |
| 6504 |
//! お気に入りのMouseDownイベント |
//! お気に入りのMouseDownイベント |