| 842 |
procedure TreeViewKeyDown(Sender: TObject; var Key: Word; |
procedure TreeViewKeyDown(Sender: TObject; var Key: Word; |
| 843 |
Shift: TShiftState); |
Shift: TShiftState); |
| 844 |
procedure MaximizeTimerTimer(Sender: TObject); |
procedure MaximizeTimerTimer(Sender: TObject); |
| 845 |
|
procedure FavoriteTreeViewMouseDown(Sender: TObject; |
| 846 |
|
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
| 847 |
private |
private |
| 848 |
{ Private 宣言 } |
{ Private 宣言 } |
| 849 |
//RoundList : TRoundList; |
//RoundList : TRoundList; |
| 3100 |
// OldIndex: Integer; |
// OldIndex: Integer; |
| 3101 |
favItem : TFavoriteThreadItem; |
favItem : TFavoriteThreadItem; |
| 3102 |
begin |
begin |
| 3103 |
|
if Threaditem = nil then Exit; |
| 3104 |
|
|
| 3105 |
if ThreadItem.IsLogFile then begin |
if ThreadItem.IsLogFile then begin |
| 3106 |
//favItem := TFavoriteThreadItem.CreateWithItem( ThreadItem ); |
//favItem := TFavoriteThreadItem.CreateWithItem( ThreadItem ); |
| 3107 |
favItem := TFavoriteThreadItem.Create(ThreadItem.URL, ThreadItem.Title ); |
favItem := TFavoriteThreadItem.Create(ThreadItem.URL, ThreadItem.Title ); |
| 3108 |
if not AddHistory( favItem ) then |
if not AddHistory( favItem ) then |
| 3109 |
favItem.Free; |
favItem.Free; |
| 3110 |
for i := 0 to BrowserTab.Tabs.Count - 1 do begin |
for i := 0 to BrowserTab.Tabs.Count - 1 do begin |
| 3111 |
if TObject(BrowserTab.Tabs.Objects[i]) is TThreadItem then begin |
if TObject(BrowserTab.Tabs.Objects[i]) is TThreadItem then begin |
| 3112 |
if TThreadItem(BrowserTab.Tabs.Objects[i]) = ThreadItem then begin |
if TThreadItem(BrowserTab.Tabs.Objects[i]) = ThreadItem then begin |
| 3881 |
if not (TObject(listItem.Data) is TThreadItem) then Exit; |
if not (TObject(listItem.Data) is TThreadItem) then Exit; |
| 3882 |
|
|
| 3883 |
threadItem := TThreadItem(ListItem.Data); |
threadItem := TThreadItem(ListItem.Data); |
| 3884 |
if threadItem.IsLogFile then begin |
InsertBrowserTab(threadItem); |
| 3885 |
InsertBrowserTab(listItem.Data); |
if threadItem.IsLogFile then |
| 3886 |
ListView.UpdateItems(listItem.Index, listItem.Index); |
ListView.UpdateItems(listItem.Index, listItem.Index); |
|
end else begin |
|
|
InsertBrowserTab(listItem.Data); |
|
|
end; |
|
| 3887 |
end; |
end; |
| 3888 |
end; |
end; |
| 3889 |
{ if ssDouble in Shift then begin |
{ if ssDouble in Shift then begin |
| 6329 |
end else if TObject(Item) is TFavoriteThreadItem then begin |
end else if TObject(Item) is TFavoriteThreadItem then begin |
| 6330 |
FavThread := TFavoriteThreadItem(Item); |
FavThread := TFavoriteThreadItem(Item); |
| 6331 |
ThreadItem := FavThread.Item; |
ThreadItem := FavThread.Item; |
| 6332 |
if ThreadItem <> nil then |
if ThreadItem = nil then |
| 6333 |
InsertBrowserTab(ThreadItem, ActiveTab); |
Exit; |
| 6334 |
|
|
| 6335 |
|
InsertBrowserTab(ThreadItem, ActiveTab); |
| 6336 |
|
|
| 6337 |
|
if ThreadItem.IsLogFile then begin |
| 6338 |
|
if GikoSys.Setting.ListOrientation = gloHorizontal then begin |
| 6339 |
|
if GikoSys.Setting.ListWidthState = glsMin then begin |
| 6340 |
|
BrowserMaxAction.Execute; |
| 6341 |
|
if GikoForm.Visible then |
| 6342 |
|
Browser.SetFocus; |
| 6343 |
|
end; |
| 6344 |
|
end else begin |
| 6345 |
|
if GikoSys.Setting.ListHeightState = glsMin then begin |
| 6346 |
|
BrowserMaxAction.Execute; |
| 6347 |
|
if GikoForm.Visible then |
| 6348 |
|
Browser.SetFocus; |
| 6349 |
|
end; |
| 6350 |
|
end; |
| 6351 |
|
end; |
| 6352 |
end; |
end; |
| 6353 |
end; |
end; |
| 6354 |
|
|
| 9365 |
MaximizeTimer.Enabled := False; |
MaximizeTimer.Enabled := False; |
| 9366 |
end; |
end; |
| 9367 |
|
|
| 9368 |
|
procedure TGikoForm.FavoriteTreeViewMouseDown(Sender: TObject; |
| 9369 |
|
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
| 9370 |
|
var |
| 9371 |
|
favItem : TTreeNode; |
| 9372 |
|
favThreadItem : TFavoriteThreadItem; |
| 9373 |
|
begin |
| 9374 |
|
|
| 9375 |
|
case Button of |
| 9376 |
|
mbMiddle: |
| 9377 |
|
begin |
| 9378 |
|
favItem := FavoriteTreeView.GetNodeAt( X, Y ); |
| 9379 |
|
if favItem = nil then Exit; |
| 9380 |
|
|
| 9381 |
|
if TObject( favItem.Data ) is TFavoriteThreadItem then begin |
| 9382 |
|
favThreadItem := TFavoriteThreadItem( favItem.Data ); |
| 9383 |
|
if favThreadItem.Item <> nil then |
| 9384 |
|
InsertBrowserTab( favThreadItem.Item ); |
| 9385 |
|
end; |
| 9386 |
|
end; |
| 9387 |
|
end; |
| 9388 |
|
|
| 9389 |
|
end; |
| 9390 |
|
|
| 9391 |
initialization |
initialization |
| 9392 |
OleInitialize(nil); |
OleInitialize(nil); |
| 9393 |
finalization |
finalization |