From: yoffy <yoffy>
Date: Sat, 22 May 2004 15:53:25 +0000 (+0000)
Subject: スレ一覧が最大化している時にホイールクリックでスレを開いても
X-Git-Tag: v1_64_1_820~1193
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=733a5b8763b03f874f5175489dd3679a2fbb969a;p=gikonavigoeson%2Fgikonavi.git

スレ一覧が最大化している時にホイールクリックでスレを開いても
ブラウザが最大化されてしまっていたバグを修正。
---

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;