タブ保存機能完全実装

diff --git a/Giko.dfm b/Giko.dfm
index 18fd89b..964c731 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -1,6 +1,6 @@
 object GikoForm: TGikoForm
-  Left = 68
-  Top = 161
+  Left = 89
+  Top = 120
   HorzScrollBar.Visible = False
   VertScrollBar.Visible = False
   AutoScroll = False

diff --git a/Giko.pas b/Giko.pas
index 937d927..e01ea9f 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -10661,7 +10661,7 @@ var
 begin
         SaveStringList := TStringList.Create;
         SaveStringList := GetTabURLs;
-        SaveStringList.SaveToFile(GikoSys.Setting.GetAppDir + 'tab.sav');
+        SaveStringList.SaveToFile(ExtractFilePath(Application.ExeName) + 'tab.sav');
 end;
 
 function TGikoForm.GetTabURLs : TStringList;
@@ -10675,7 +10675,7 @@ begin
   for i := 0 to bound do begin
     rec := TBrowserRecord( BrowserTab.Tabs.Objects[ i ] );
     URLs.Add( rec.Thread.URL );
-  end; 
+  end;
   Result := URLs; 
 end;
 
@@ -10687,13 +10687,14 @@ var
 begin
     URLs := TStringList.Create();
     try
-        URLs.LoadFromFile(GikoSys.Setting.GetAppDir + 'tab.sav');
+        URLs.LoadFromFile(ExtractFilePath(Application.ExeName) + 'tab.sav');
     except
         on EFOpenError do
                 ShowMessage('\83^\83u\82ª\8aJ\82¯\82Ü\82¹\82ñ');
     end;
     bound    := URLs.Count - 1;
-    for i := 0 to bound do begin 
+    GikoSys.Setting.BrowserTabAppend := TGikoTabAppend(1);
+    for i := 0 to bound do begin
         item := BBSsFindThreadFromURL( URLs[ i ] ); 
         if item <> nil then 
             InsertBrowserTab( item, false );