From 9c322059fdd3b479c05d3cf7777bfc5c710e13c7 Mon Sep 17 00:00:00 2001
From: h677 <h677>
Date: Tue, 13 Apr 2004 10:57:52 +0000
Subject: [PATCH] =?utf8?q?=E3=82=B9=E3=83=AC=E3=83=83=E3=83=89=E3=83=AA?=
 =?utf8?q?=E3=82=B9=E3=83=88=E3=81=AE=E3=82=B3=E3=83=B3=E3=83=86=E3=82=AD?=
 =?utf8?q?=E3=82=B9=E3=83=88=E3=83=A1=E3=83=8B=E3=83=A5=E3=83=BC=E3=81=8B?=
 =?utf8?q?=E3=82=89=E3=82=B9=E3=83=AC=E3=83=83=E3=83=89=E3=83=80=E3=82=A6?=
 =?utf8?q?=E3=83=B3=E3=83=AD=E3=83=BC=E3=83=89=E3=82=92=E3=81=99=E3=82=8B?=
 =?utf8?q?=E3=81=A8=E3=80=81=20=E3=82=BF=E3=83=96=E3=83=9A=E3=83=BC?=
 =?utf8?q?=E3=82=B8=E3=81=8C=E5=88=87=E3=82=8A=E6=9B=BF=E3=82=8F=E3=82=89?=
 =?utf8?q?=E3=81=AA=E3=81=84=E4=B8=8D=E5=85=B7=E5=90=88=E3=81=AE=E4=BF=AE?=
 =?utf8?q?=E6=AD=A3?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Giko.dfm |  4 ++--
 Giko.pas | 10 ++++++++--
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/Giko.dfm b/Giko.dfm
index 325b60e..aca3bb7 100644
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -1,6 +1,6 @@
 object GikoForm: TGikoForm
-  Left = 234
-  Top = 63
+  Left = 334
+  Top = 67
   HorzScrollBar.Visible = False
   VertScrollBar.Visible = False
   AutoScroll = False
diff --git a/Giko.pas b/Giko.pas
index 5c867af..9706ceb 100644
--- a/Giko.pas
+++ b/Giko.pas
@@ -2994,7 +2994,9 @@ begin
 				end;
 				if GetActiveContent = Item.ThreadItem then
 					InsertBrowserTab(Item.ThreadItem)
-				else
+				else if ( TObject(ListView.Selected.Data) is TThreadItem ) and ( Item.ThreadItem = TThreadItem(ListView.Selected.Data)) then
+                    InsertBrowserTab(Item.ThreadItem, True)
+                else
 					InsertBrowserTab(Item.ThreadItem, False);
 
 				if Item.State = gdsComplete then begin
@@ -3044,7 +3046,7 @@ begin
 		if FWorkCount = 0 then begin
 			try
 				Animate.Active := False;
-			except
+			finally
 				Screen.Cursor := crDefault;
 			end;
 		end;
@@ -3140,6 +3142,8 @@ begin
 		favItem := TFavoriteThreadItem.Create(ThreadItem.URL, ThreadItem.Title );
 		if not AddHistory( favItem ) then
 			favItem.Free;
+
+
 		for i := 0 to BrowserTab.Tabs.Count - 1 do begin
 			if TObject(BrowserTab.Tabs.Objects[i]) is TThreadItem then begin
 				if TThreadItem(BrowserTab.Tabs.Objects[i]) = ThreadItem then begin
@@ -3160,6 +3164,7 @@ begin
 			BrowserTab.Tabs.Objects[0] := ThreadItem;
 			if ActiveTab then
 				BrowserTab.TabIndex := 0;
+
 		end else begin
 			i := BrowserTab.Tabs.Add(GikoSys.GetShortName(ThreadItem.Title, 20));
 			BrowserTab.Tabs.Objects[i] := ThreadItem;
@@ -4129,6 +4134,7 @@ begin
 		List.Add(TmpListItem.Data);
 		TmpListItem := ListView.GetNextItem(TmpListItem, sdAll, [isSelected]);
 	end;
+    
 end;
 
 procedure TGikoForm.ExitActionExecute(Sender: TObject);
-- 
2.11.0