r1.327 の変更でスレ一覧からスレをクリックしただけでドラッグ扱いになってしまっていたので修正。

diff --git a/Giko.dfm b/Giko.dfm
index 2c99715..ef2930d 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -10498,4 +10498,10 @@ object GikoForm: TGikoForm
     Left = 99
     Top = 468
   end
+  object SelectTimer: TTimer
+    Interval = 50
+    OnTimer = SelectTimerTimer
+    Left = 100
+    Top = 308
+  end
 end

diff --git a/Giko.pas b/Giko.pas
index 0286b0d..b5d631c 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -540,6 +540,7 @@ type
     ThreadlistMaxAndFocusAction: TAction;
     BrowserMaxAndFocusAction: TAction;
     UpBoardButton: TToolButton;
+    SelectTimer: TTimer;
                                procedure FormCreate(Sender: TObject);
                procedure FormDestroy(Sender: TObject);
                procedure CabinetPanelHide(Sender: TObject);
@@ -868,6 +869,7 @@ type
     procedure SetFocusForCabinetActionUpdate(Sender: TObject);
     procedure ListViewSelectItem(Sender: TObject; Item: TListItem;
       Selected: Boolean);
+    procedure SelectTimerTimer(Sender: TObject);
        private
                { Private \90é\8c¾ }
         //RoundList : TRoundList;
@@ -10292,10 +10294,16 @@ begin
        if not GikoSys.Setting.BrowserTabVisible then
                if Item <> nil then
                        if TObject( Item.Data ) is TThreadItem then
-                               InsertBrowserTab( TThreadItem(Item.Data) );
+                               SelectTimer.Enabled := True;
 
 end;
 
+procedure TGikoForm.SelectTimerTimer(Sender: TObject);
+begin
+       SelectTimer.Enabled := False;
+       ListClick;
+end;
+
 initialization
                                OleInitialize(nil);
 finalization