HTMLを除く保存処理で、保存確認フラグをfalseに。

diff --git a/bottleclient/LogForm.pas b/bottleclient/LogForm.pas
index 60fda89..6c8230d 100755 (executable)
--- a/bottleclient/LogForm.pas
+++ b/bottleclient/LogForm.pas
@@ -1876,10 +1876,7 @@ begin
       '\95Û\91¶\82µ\82Ü\82·\82©\81H', [(FBottleLogList[Index] as TBottleLogList).Title]);
     Res := MessageDlg(Confirm, mtConfirmation, mbYesNoCancel, 0);
     if Res = idYes then
-    begin
       Res := DoSaveLogXML(FBottleLogList[Index] as TBottleLogList);
-      if Res = idYes then (FBottleLogList[Index] as TBottleLogList).LogModified := false;
-    end;
   end;
   Result := Res;
 end;

diff --git a/bottleclient/Logs.pas b/bottleclient/Logs.pas
index 6d42ecc..8e35b9e 100755 (executable)
--- a/bottleclient/Logs.pas
+++ b/bottleclient/Logs.pas
@@ -795,6 +795,7 @@ begin
       end;
     end;
     Str.SaveToFile(FileName);
+    Self.SetLogModified(false); // \82±\82Ì\83\8a\83X\83g\82Í\95Û\91¶\82³\82ê\82½
   finally
     Str.Free;
   end;
@@ -811,6 +812,7 @@ begin
       if (Self.Items[i] as TLogItem).LogType = ltBottle then
         Str.Add((Self.Items[i] as TLogItem).Script);
     Str.SaveToFile(FileName);
+    Self.SetLogModified(false);  // \82±\82Ì\83\8a\83X\83g\82Í\95Û\91¶\82³\82ê\82½
   finally
     Str.Free;
   end;
@@ -878,6 +880,7 @@ begin
         finally
           FS.Free;
         end;
+        Self.SetLogModified(false); // \82±\82Ì\83\8a\83X\83g\82Í\95Û\91¶\82³\82ê\82½
       except
         ShowMessage('xbtl.dat\82ð\8dÄ\83C\83\93\83X\83g\81[\83\8b\82µ\82Ä\82­\82¾\82³\82¢\81B');
       end;