Tab保存に完全対応

diff --git a/Giko.pas b/Giko.pas
index a1b7cfb..16dcf8c 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -10684,6 +10684,7 @@ var
     i, bound, Tab    : Integer;
     item        : TThreadItem;
     URLs : TStringList;
+    GikoTab: TGikoTabAppend;
 begin
     URLs := TStringList.Create();
     try
@@ -10693,13 +10694,14 @@ begin
                 ShowMessage('\83^\83u\82ª\8aJ\82¯\82Ü\82¹\82ñ');
     end;
     bound    := URLs.Count - 1;
+    GikoTab := GikoSys.Setting.BrowserTabAppend;
     GikoSys.Setting.BrowserTabAppend := gtpLast;//TGikoTabAppend(1);
     for i := 0 to bound do begin
         item := BBSsFindThreadFromURL( URLs[ i ] ); 
         if item <> nil then
             InsertBrowserTab( item, false );
     end;
-    GikoSys.Setting.BrowserTabAppend := TGikoTabAppend(Ord(OptionDialog.TabAddPro.ItemIndex));
+    GikoSys.Setting.BrowserTabAppend := GikoTab;
 end;
 
 initialization