From e0ed25e4fede0620a0057d4270789e212c4c578d Mon Sep 17 00:00:00 2001
From: yoffy <yoffy>
Date: Thu, 3 Jun 2004 12:29:11 +0000
Subject: [PATCH] =?utf8?q?r1.327=20=E3=81=AE=E5=A4=89=E6=9B=B4=E3=81=A7?=
 =?utf8?q?=E3=82=B9=E3=83=AC=E4=B8=80=E8=A6=A7=E3=81=8B=E3=82=89=E3=82=B9?=
 =?utf8?q?=E3=83=AC=E3=82=92=E3=82=AF=E3=83=AA=E3=83=83=E3=82=AF=E3=81=97?=
 =?utf8?q?=E3=81=9F=E3=81=A0=E3=81=91=E3=81=A7=E3=83=89=E3=83=A9=E3=83=83?=
 =?utf8?q?=E3=82=B0=E6=89=B1=E3=81=84=E3=81=AB=E3=81=AA=E3=81=A3=E3=81=A6?=
 =?utf8?q?=E3=81=97=E3=81=BE=E3=81=A3=E3=81=A6=E3=81=84=E3=81=9F=E3=81=AE?=
 =?utf8?q?=E3=81=A7=E4=BF=AE=E6=AD=A3=E3=80=82?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Giko.dfm |  6 ++++++
 Giko.pas | 10 +++++++++-
 2 files changed, 15 insertions(+), 1 deletion(-)

diff --git a/Giko.dfm b/Giko.dfm
index 2c99715..ef2930d 100644
--- 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
--- 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 éŒ¾ }
         //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
-- 
2.11.0