idx: Integer;
ThreadItem: TThreadItem;
Thread: TBrowserRecord;
- tmpFlag: boolean;
+ tmpInterbal: Cardinal;
begin
- tmpFlag := SelectTimer.Enabled;
- SelectTimer.Enabled := false;
+ tmpInterbal := SelectTimer.Interval;
+ SelectTimer.Interval := 0;
Thread := inThread;
idx := BrowserTab.TabIndex;
if (FActiveContent <> nil) and
FActiveContent := nil;
end;
finally
- SelectTimer.Enabled := tmpFlag;
+ SelectTimer.Interval := tmpInterbal;
Screen.Cursor := crDefault;
end;
end;
// BrowserTopPanel.Height := 26;
end;
BrowserTab.Show;
- SelectTimer.Enabled := false;
end else begin
CoolBand := GetCoolBand(BrowserCoolBar, BrowserTabToolBar);
if CoolBand <> nil then
BrowserBottomPanel.Visible := False;
// BrowserTab.Visible := False;
// BrowserTopPanel.Height := 26;
- SelectTimer.Enabled := true;
AllTabCloseAction.Execute;
end;
end;
procedure TGikoForm.BrowserTabVisibleActionExecute(Sender: TObject);
begin
GikoSys.Setting.BrowserTabVisible := BrowserTabVisibleAction.Checked;
- SetBrowserTabState;
+{ if not BrowserTabVisibleAction.Checked then
+ SelectTimer.Interval := 220
+ else
+ SelectTimer.Interval := 0;
+} SetBrowserTabState;
end;
procedure TGikoForm.BrowserTabTopActionExecute(Sender: TObject);
Selected: Boolean);
begin
- if not GikoSys.Setting.BrowserTabVisible then
- if Item <> nil then
+ if not (GikoSys.Setting.BrowserTabVisible) and (Item <> nil) then
if (TObject( Item.Data ) is TThreadItem) then begin
+ SelectTimer.Interval := 220;
SelectTimer.Tag := 0;
- end;
+ end else
+ SelectTimer.Interval := 0
+ else
+ SelectTimer.Interval := 0;
end;
else begin
SelectTimer.Tag := 0;
if not (ListView.Selected = nil) then
- if( FActiveContent = nil) or (GetActiveContent <> TThreadItem(ListView.Selected.Data) ) then
+ if( FActiveContent = nil) or
+ (GetActiveContent <> TThreadItem(ListView.Selected.Data) ) then begin
+ SelectTimer.Interval := 0;
ListClick;
+ end;
end;
end;