スレ一覧が最大化している時にホイールクリックでスレを開いても

ブラウザが最大化されてしまっていたバグを修正。

diff --git a/Giko.pas b/Giko.pas
index 2186937..6afea3c 100644 (file)
--- 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;