TabFileURLReplaceの修正。板更新したときに、開いているタブを修復するようにしたい。

diff --git a/Giko.dfm b/Giko.dfm
index 98c209b..0963819 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -1,6 +1,6 @@
 object GikoForm: TGikoForm
-  Left = 96
-  Top = 42
+  Left = 171
+  Top = 68
   HorzScrollBar.Visible = False
   VertScrollBar.Visible = False
   AutoScroll = False

diff --git a/Giko.pas b/Giko.pas
index 40470c5..7ef318d 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -2252,6 +2252,8 @@ begin
 
        SetLinkBar;
 
+       //
+       TabsOpenAction.Execute;
 end;
 
 //\83{\81[\83h\83c\83\8a\81[\90Ý\92è
@@ -10501,16 +10503,18 @@ begin
 end;
 
 procedure TGikoForm.TabFileURLReplace(oldURLs: TStringList; newURLs: TStringList);
+const
+       Filename = 'tab.sav';
+       bFilename = '~tab.sav';
 var
-       i: Integer;
-                               j: Integer;
-                               tempString: string;
-                               tmpURL: string;
-                               oldHost: string;
-                               oldBoardName: string;
-                               newHost: string;
-                               newBoardName: string;
-                               TabList: TStringList;
+       i, j: Integer;
+       tempString: string;
+       tmpURL: string;
+       oldHost: string;
+       oldBoardName: string;
+       newHost: string;
+       newBoardName: string;
+       TabList: TStringList;
 begin
 
        if oldURLs.Count <> newURLs.Count then begin
@@ -10519,7 +10523,7 @@ begin
        if FileExists(GikoSys.GetAppDir + 'tab.sav') then begin
                TabList := TStringList.Create;
                try
-                       TabList.LoadFromFile(GikoSys.GetAppDir + 'tab.sav');
+                       TabList.LoadFromFile(GikoSys.GetAppDir + Filename);
 
                        //\82±\82±\82©\82ç\81AThread\82ÌURL\82Ì\95Ï\8dX
                        //\96Ê\93|\82¾\82¯\82Çthread\82Í\82»\82ê\82¼\82êURL\82ð\83`\83\83\83b\83N\82µ\82È\82ª\82ç\82â\82Á\82Ä\82©\82È\82«\82á\82¢\82¯\82È\82¢\81B
@@ -10540,8 +10544,18 @@ begin
                                        end;
                        end;
                        //\82±\82±\82Ü\82Å\81AThread\82ÌURL\82Ì\95Ï\8dX
+
+                       if FileExists( GikoSys.GetAppDir + Filename) then begin
+                               if FileExists( GikoSys.GetAppDir + bFilename) then
+                                       DeleteFile(GikoSys.GetAppDir + bFilename);
+
+                               //\83o\83b\83N\83A\83b\83v\82ð\8dì\82é\81B
+                               RenameFile(GikoSys.GetAppDir + Filename, GikoSys.GetAppDir + bFilename);
+                       end;
+
+                       TabList.SaveToFile(GikoSys.GetAppDir + Filename);
                finally
-            TabList.Free;
+                       TabList.Free;
                end;
        end;
 
@@ -11217,6 +11231,7 @@ begin
        try
                if GetTabURLs(SaveStringList) then begin
                        SaveStringList.SaveToFile(GikoSys.GetAppDir + Filename);
+                       Result := true;
                end;
        finally
                SaveStringList.Free;

diff --git a/NewBoard.pas b/NewBoard.pas
index 9b1cff0..212f261 100644 (file)
--- a/NewBoard.pas
+++ b/NewBoard.pas
@@ -70,6 +70,7 @@ begin
                if FAbort then
                        Exit;
                if Item.FContent <> '' then begin
+                       GikoForm.TabsSaveAction.Execute;
                        UpdateURL(Item.FContent);
                        GikoForm.ReloadBBS;
                end else