From 59f47d09bac5caf33f4667a9fd997e0a90ba90c9 Mon Sep 17 00:00:00 2001 From: E01 Date: Sun, 11 Apr 2004 01:38:54 +0000 Subject: [PATCH] =?utf8?q?HTML=E3=82=92=E9=99=A4=E3=81=8F=E4=BF=9D?= =?utf8?q?=E5=AD=98=E5=87=A6=E7=90=86=E3=81=A7=E3=80=81=E4=BF=9D=E5=AD=98?= =?utf8?q?=E7=A2=BA=E8=AA=8D=E3=83=95=E3=83=A9=E3=82=B0=E3=82=92false?= =?utf8?q?=E3=81=AB=E3=80=82?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- bottleclient/LogForm.pas | 3 --- bottleclient/Logs.pas | 3 +++ 2 files changed, 3 insertions(+), 3 deletions(-) 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; -- 2.11.0