From: E01 <e01@users.sourceforge.jp>
Date: Sun, 11 Apr 2004 01:38:54 +0000 (+0000)
Subject: HTMLを除く保存処理で、保存確認フラグをfalseに。
X-Git-Tag: YASAGURE1-11~4
X-Git-Url: http://git.sourceforge.jp/view?a=commitdiff_plain;ds=sidebyside;h=59f47d09bac5caf33f4667a9fd997e0a90ba90c9;p=winbottle%2Fwinbottle.git

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

diff --git a/bottleclient/LogForm.pas b/bottleclient/LogForm.pas
index 60fda89..6c8230d 100755
--- a/bottleclient/LogForm.pas
+++ b/bottleclient/LogForm.pas
@@ -1876,10 +1876,7 @@ begin
       '•Û‘¶‚µ‚Ü‚·‚©H', [(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
--- a/bottleclient/Logs.pas
+++ b/bottleclient/Logs.pas
@@ -795,6 +795,7 @@ begin
       end;
     end;
     Str.SaveToFile(FileName);
+    Self.SetLogModified(false); // ‚±‚̃ŠƒXƒg‚Í•Û‘¶‚³‚ꂽ
   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);  // ‚±‚̃ŠƒXƒg‚Í•Û‘¶‚³‚ꂽ
   finally
     Str.Free;
   end;
@@ -878,6 +880,7 @@ begin
         finally
           FS.Free;
         end;
+        Self.SetLogModified(false); // ‚±‚̃ŠƒXƒg‚Í•Û‘¶‚³‚ꂽ
       except
         ShowMessage('xbtl.dat‚ðÄƒCƒ“ƒXƒg[ƒ‹‚µ‚Ä‚­‚¾‚³‚¢B');
       end;