| 3278 |
BrowserTab.TabIndex := i; |
BrowserTab.TabIndex := i; |
| 3279 |
end; |
end; |
| 3280 |
end; |
end; |
| 3281 |
if ( ActiveTab ) or ( BrowserTab.Tabs.Count = 1 ) then begin |
if ActiveTab then begin |
| 3282 |
BrowserTab.OnChange(nil); |
BrowserTab.OnChange(nil); |
| 3283 |
end; |
end; |
| 3284 |
end else begin |
end else begin |
| 4116 |
if not (TObject(listItem.Data) is TThreadItem) then Exit; |
if not (TObject(listItem.Data) is TThreadItem) then Exit; |
| 4117 |
|
|
| 4118 |
threadItem := TThreadItem(ListItem.Data); |
threadItem := TThreadItem(ListItem.Data); |
| 4119 |
InsertBrowserTab(threadItem); |
InsertBrowserTab(threadItem, False); |
| 4120 |
if threadItem.IsLogFile then |
if threadItem.IsLogFile then |
| 4121 |
ListView.UpdateItems(listItem.Index, listItem.Index); |
ListView.UpdateItems(listItem.Index, listItem.Index); |
| 4122 |
end; |
end; |
| 4778 |
// Mouse.CursorPos := BrowserSizeButton.ClientToScreen(Point( |
// Mouse.CursorPos := BrowserSizeButton.ClientToScreen(Point( |
| 4779 |
// System.Round(BrowserToolBar.ButtonWidth div 2), |
// System.Round(BrowserToolBar.ButtonWidth div 2), |
| 4780 |
// System.Round(BrowserToolBar.ButtonHeight div 2))); |
// System.Round(BrowserToolBar.ButtonHeight div 2))); |
| 4781 |
|
BrowserTab.OnChange(nil); |
| 4782 |
end; |
end; |
| 4783 |
|
|
| 4784 |
procedure TGikoForm.BrowserMinActionExecute(Sender: TObject); |
procedure TGikoForm.BrowserMinActionExecute(Sender: TObject); |
| 7708 |
end; |
end; |
| 7709 |
|
|
| 7710 |
procedure TGikoForm.LinkToolButtonOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
procedure TGikoForm.LinkToolButtonOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
| 7711 |
|
var |
| 7712 |
|
favButton : TLinkToolButton; |
| 7713 |
|
favThreadItem : TFavoriteThreadItem; |
| 7714 |
begin |
begin |
| 7715 |
|
|
| 7716 |
|
case Button of |
| 7717 |
|
mbMiddle: |
| 7718 |
|
begin |
| 7719 |
|
if Sender is TLinkToolButton then begin |
| 7720 |
|
favButton := TLinkToolButton( Sender ); |
| 7721 |
|
if TObject( favButton.Data ) is TFavoriteThreadItem then begin |
| 7722 |
|
favThreadItem := TFavoriteThreadItem( favButton.Data ); |
| 7723 |
|
if favThreadItem.Item <> nil then |
| 7724 |
|
InsertBrowserTab( favThreadItem.Item, False ); |
| 7725 |
|
end; |
| 7726 |
|
end; |
| 7727 |
|
end; |
| 7728 |
|
end; |
| 7729 |
|
|
| 7730 |
end; |
end; |
| 7731 |
|
|
| 7732 |
procedure TGikoForm.LinkToolButtonOnMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); |
procedure TGikoForm.LinkToolButtonOnMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); |
| 9962 |
end; |
end; |
| 9963 |
|
|
| 9964 |
procedure TGikoForm.FavoriteTreeViewMouseDown(Sender: TObject; |
procedure TGikoForm.FavoriteTreeViewMouseDown(Sender: TObject; |
| 9965 |
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
| 9966 |
var |
var |
| 9967 |
favItem : TTreeNode; |
favItem : TTreeNode; |
| 9968 |
favThreadItem : TFavoriteThreadItem; |
favThreadItem : TFavoriteThreadItem; |
| 9982 |
if TObject( favItem.Data ) is TFavoriteThreadItem then begin |
if TObject( favItem.Data ) is TFavoriteThreadItem then begin |
| 9983 |
favThreadItem := TFavoriteThreadItem( favItem.Data ); |
favThreadItem := TFavoriteThreadItem( favItem.Data ); |
| 9984 |
if favThreadItem.Item <> nil then |
if favThreadItem.Item <> nil then |
| 9985 |
InsertBrowserTab( favThreadItem.Item ); |
InsertBrowserTab( favThreadItem.Item, False ); |
| 9986 |
end; |
end; |
| 9987 |
end; |
end; |
| 9988 |
end; |
end; |