From 98add43b036e5430ed2ba0d9a37085372271d231 Mon Sep 17 00:00:00 2001
From: yoffy <yoffy>
Date: Thu, 3 Jun 2004 11:01:18 +0000
Subject: [PATCH] =?utf8?q?=E3=83=96=E3=83=A9=E3=82=A6=E3=82=B6=E3=82=BF?=
 =?utf8?q?=E3=83=96=E3=81=8C=E9=9D=9E=E8=A1=A8=E7=A4=BA=E3=81=AE=E5=A0=B4?=
 =?utf8?q?=E5=90=88=E3=81=AF=E3=82=B9=E3=83=AC=E3=82=92=E9=96=8B=E3=81=84?=
 =?utf8?q?=E3=81=A6=E3=82=82=E3=82=BF=E3=83=96=E3=82=92=E7=94=9F=E6=88=90?=
 =?utf8?q?=E3=81=97=E3=81=AA=E3=81=8F=E3=81=AA=E3=81=A3=E3=81=9F=E3=80=82?=
 =?utf8?q?=20=E2=80=BB=E3=82=BF=E3=83=96=E3=83=96=E3=83=A9=E3=82=A6?=
 =?utf8?q?=E3=82=B6=E3=81=A8=E5=90=8C=E3=81=98=E8=80=83=E3=81=88=E6=96=B9?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Giko.pas | 30 +++++++++++++++++++++++++++---
 1 file changed, 27 insertions(+), 3 deletions(-)

diff --git a/Giko.pas b/Giko.pas
index e95ff57..57046b8 100644
--- a/Giko.pas
+++ b/Giko.pas
@@ -3287,7 +3287,18 @@ begin
 			newBrowser.Repaint := true;
 			newBrowser.OnlyHundred := GikoSys.OnlyAHundredRes;
 
-			BrowserTab.Tabs.InsertObject(0, GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser);
+			if (not GikoSys.Setting.BrowserTabVisible) and (BrowserTab.Tabs.Count > 0) then begin
+			{
+				if FActiveContent = BrowserTab.Tabs.Objects[ 0 ] then
+					FActiveContent := nil;
+				BrowserTab.Tabs.Objects[ 0 ].Free;
+				BrowserTab.Tabs.Objects[ 0 ] := newBrowser;
+				BrowserTab.Tabs[ 0 ] := GikoSys.GetShortName(ThreadItem.Title, 20);
+			}
+				DeleteTab( TBrowserRecord( BrowserTab.Tabs.Objects[ 0 ] ) );
+			end;// else begin
+				BrowserTab.Tabs.InsertObject(0, GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser);
+			//end;
 			BrowserTab.Repaint;
 			if ActiveTab then begin
 				BrowserTab.TabIndex := 0;
@@ -3312,7 +3323,18 @@ begin
 			newBrowser.OnlyHundred := GikoSys.OnlyAHundredRes;
 			newBrowser.Repaint := true;
 
-			i := BrowserTab.Tabs.AddObject(GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser);
+			if (not GikoSys.Setting.BrowserTabVisible) and (BrowserTab.Tabs.Count > 0) then begin
+			{
+				if FActiveContent = BrowserTab.Tabs.Objects[ 0 ] then
+					FActiveContent := nil;
+				BrowserTab.Tabs.Objects[ 0 ].Free;
+				BrowserTab.Tabs.Objects[ 0 ] := newBrowser;
+				BrowserTab.Tabs[ 0 ] := GikoSys.GetShortName(ThreadItem.Title, 20);
+			}
+ 				DeleteTab( TBrowserRecord( BrowserTab.Tabs.Objects[ 0 ] ) );
+			end;// else begin
+				i := BrowserTab.Tabs.AddObject(GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser);
+			//end;
 			BrowserTab.Repaint;
 			if ActiveTab then begin
 				BrowserTab.TabIndex := i;
@@ -3349,7 +3371,7 @@ var
 	url: OleVariant;
 	idx: Integer;
 begin
-    idx := BrowserTab.TabIndex;
+		idx := BrowserTab.TabIndex;
 	if (FActiveContent <> nil) and
 		(FActiveContent.Thread <> inThread.Thread) and
 		(Assigned(FActiveContent.Browser.Document)) then begin
@@ -6079,6 +6101,8 @@ begin
 		BrowserBottomPanel.Visible := False;
 //		BrowserTab.Visible := False;
 //		BrowserTopPanel.Height := 26;
+
+		NotSelectTabCloseAction.Execute;
 	end;
 end;
 
-- 
2.11.0