SelectTimerを止めると再起動しない不具合の修正

diff --git a/Giko.dfm b/Giko.dfm
index 667256c..de86e05 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -10497,7 +10497,7 @@ object GikoForm: TGikoForm
     Top = 468
   end
   object SelectTimer: TTimer
-    Interval = 200
+    Interval = 220
     OnTimer = SelectTimerTimer
     Left = 100
     Top = 308

diff --git a/Giko.pas b/Giko.pas
index 93d922f..80f7f7b 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -3361,10 +3361,10 @@ var
        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
@@ -3528,7 +3528,7 @@ begin
                        FActiveContent := nil;
                end;
        finally
-               SelectTimer.Enabled := tmpFlag;
+               SelectTimer.Interval := tmpInterbal;
                Screen.Cursor := crDefault;
        end;
 end;
@@ -6141,7 +6141,6 @@ begin
 //                     BrowserTopPanel.Height := 26;
                end;
                BrowserTab.Show;
-               SelectTimer.Enabled := false;
        end else begin
                CoolBand := GetCoolBand(BrowserCoolBar, BrowserTabToolBar);
                if CoolBand <> nil then
@@ -6149,7 +6148,6 @@ begin
                BrowserBottomPanel.Visible := False;
 //             BrowserTab.Visible := False;
 //             BrowserTopPanel.Height := 26;
-        SelectTimer.Enabled := true;
                AllTabCloseAction.Execute;
        end;
 end;
@@ -7269,7 +7267,11 @@ 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);
@@ -10298,11 +10300,14 @@ procedure TGikoForm.ListViewSelectItem(Sender: TObject; Item: TListItem;
   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;
 
@@ -10313,8 +10318,11 @@ begin
        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;