ブラウザタブが非表示の場合はスレを開いてもタブを生成しなくなった。

※タブブラウザと同じ考え方

diff --git a/Giko.pas b/Giko.pas
index e95ff57..57046b8 100644 (file)
--- 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;