From 733a5b8763b03f874f5175489dd3679a2fbb969a Mon Sep 17 00:00:00 2001
From: yoffy <yoffy>
Date: Sat, 22 May 2004 15:53:25 +0000
Subject: [PATCH] =?utf8?q?=E3=82=B9=E3=83=AC=E4=B8=80=E8=A6=A7=E3=81=8C?=
 =?utf8?q?=E6=9C=80=E5=A4=A7=E5=8C=96=E3=81=97=E3=81=A6=E3=81=84=E3=82=8B?=
 =?utf8?q?=E6=99=82=E3=81=AB=E3=83=9B=E3=82=A4=E3=83=BC=E3=83=AB=E3=82=AF?=
 =?utf8?q?=E3=83=AA=E3=83=83=E3=82=AF=E3=81=A7=E3=82=B9=E3=83=AC=E3=82=92?=
 =?utf8?q?=E9=96=8B=E3=81=84=E3=81=A6=E3=82=82=20=E3=83=96=E3=83=A9?=
 =?utf8?q?=E3=82=A6=E3=82=B6=E3=81=8C=E6=9C=80=E5=A4=A7=E5=8C=96=E3=81=95?=
 =?utf8?q?=E3=82=8C=E3=81=A6=E3=81=97=E3=81=BE=E3=81=A3=E3=81=A6=E3=81=84?=
 =?utf8?q?=E3=81=9F=E3=83=90=E3=82=B0=E3=82=92=E4=BF=AE=E6=AD=A3=E3=80=82?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Giko.pas | 27 +++++++++++++++++++++++----
 1 file changed, 23 insertions(+), 4 deletions(-)

diff --git a/Giko.pas b/Giko.pas
index 2186937..6afea3c 100644
--- a/Giko.pas
+++ b/Giko.pas
@@ -3278,7 +3278,7 @@ begin
 				BrowserTab.TabIndex := i;
 			end;
 		end;
-		if ( ActiveTab ) or ( BrowserTab.Tabs.Count = 1 ) then begin
+		if ActiveTab then begin
 			BrowserTab.OnChange(nil);
 		end;
 	end else begin
@@ -4116,7 +4116,7 @@ begin
 			if not (TObject(listItem.Data) is TThreadItem) then Exit;
 
 			threadItem := TThreadItem(ListItem.Data);
-			InsertBrowserTab(threadItem);
+			InsertBrowserTab(threadItem, False);
 			if threadItem.IsLogFile then
 				ListView.UpdateItems(listItem.Index, listItem.Index);
 		end;
@@ -4778,6 +4778,7 @@ begin
 //	Mouse.CursorPos := BrowserSizeButton.ClientToScreen(Point(
 //												System.Round(BrowserToolBar.ButtonWidth div 2),
 //												System.Round(BrowserToolBar.ButtonHeight div 2)));
+	BrowserTab.OnChange(nil);
 end;
 
 procedure TGikoForm.BrowserMinActionExecute(Sender: TObject);
@@ -7707,7 +7708,25 @@ begin
 end;
 
 procedure TGikoForm.LinkToolButtonOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+var
+	favButton			: TLinkToolButton;
+	favThreadItem	: TFavoriteThreadItem;
 begin
+
+	case Button of
+	mbMiddle:
+		begin
+			if Sender is TLinkToolButton then begin
+				favButton := TLinkToolButton( Sender );
+				if TObject( favButton.Data ) is TFavoriteThreadItem then begin
+					favThreadItem := TFavoriteThreadItem( favButton.Data );
+					if favThreadItem.Item <> nil then
+						InsertBrowserTab( favThreadItem.Item, False );
+				end;
+			end;
+		end;
+	end;
+
 end;
 
 procedure TGikoForm.LinkToolButtonOnMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
@@ -9943,7 +9962,7 @@ begin
 	end;
 
 procedure TGikoForm.FavoriteTreeViewMouseDown(Sender: TObject;
-  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+	Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 var
 	favItem				: TTreeNode;
 	favThreadItem	: TFavoriteThreadItem;
@@ -9963,7 +9982,7 @@ begin
 			if TObject( favItem.Data ) is TFavoriteThreadItem then begin
 				favThreadItem := TFavoriteThreadItem( favItem.Data );
 				if favThreadItem.Item <> nil then
-					InsertBrowserTab( favThreadItem.Item );
+					InsertBrowserTab( favThreadItem.Item, False );
 			end;
 		end;
 	end;
-- 
2.11.0