クリップ時に保存確認しないように修正。

ログを保存する時の処理を修正。

diff --git a/bottleclient/LogForm.pas b/bottleclient/LogForm.pas
index fca8021..bfcb5e8 100755 (executable)
--- a/bottleclient/LogForm.pas
+++ b/bottleclient/LogForm.pas
@@ -570,7 +570,7 @@ procedure TfrmLog.mnSaveLogClick(Sender: TObject);
 begin
   if SelectedBottleLog = nil then Exit;
   SaveDialog.FileName := GetDefaultFileName(SelectedBottleLog.Title, '.log');
-  SaveDialog.InitialDir := ExtractFileDir(Pref.LogDir);
+  SaveDialog.InitialDir := Pref.LogDir;
   SaveDialog.DefaultExt := 'log';
   SaveDialog.FilterIndex := 1;
   if SaveDialog.Execute then
@@ -581,7 +581,7 @@ procedure TfrmLog.mnSaveLogChannelClick(Sender: TObject);
 begin
   if SelectedBottleLog = nil then Exit;
   SaveDialog.FileName := GetDefaultFileName(SelectedBottleLog.Title, '.log');
-  SaveDialog.InitialDir := ExtractFileDir(Pref.LogDir);
+  SaveDialog.InitialDir := Pref.LogDir;
   SaveDialog.DefaultExt := 'log';
   SaveDialog.FilterIndex := 1;
   if SaveDialog.Execute then
@@ -592,7 +592,7 @@ procedure TfrmLog.mnSaveLogScriptClick(Sender: TObject);
 begin
   if SelectedBottleLog = nil then Exit;
   SaveDialog.FileName := GetDefaultFileName(SelectedBottleLog.Title, '.txt');
-  SaveDialog.InitialDir := ExtractFileDir(Pref.LogDir);
+  SaveDialog.InitialDir := Pref.LogDir;
   SaveDialog.DefaultExt := 'txt';
   SaveDialog.FilterIndex := 2;
   if SaveDialog.Execute then
@@ -1622,7 +1622,7 @@ var
 begin
   Res := idYes;
   SaveDialog.FileName := GetDefaultFileName(Log.Title, '.xml');
-  SaveDialog.InitialDir := ExtractFileDir(Pref.LogDir);
+  SaveDialog.InitialDir := Pref.LogDir;
   SaveDialog.DefaultExt := 'xml';
   SaveDialog.FilterIndex := 3;
   if SaveDialog.Execute then

diff --git a/bottleclient/MainForm.pas b/bottleclient/MainForm.pas
index d037e02..9d07b99 100755 (executable)
--- a/bottleclient/MainForm.pas
+++ b/bottleclient/MainForm.pas
@@ -3146,6 +3146,7 @@ begin
   else
     Ghost := '';
   frmLog.AddCurrentScriptLog('\83N\83\8a\83b\83v', Script, ClipChannel, '', Ghost, Now(), 0, 0);
+  SetFileModified(false); // \95Ï\8dX\82³\82ê\82Ä\82¢\82È\82¢\82±\82Æ\82É\82µ\82Ä\83N\83\8a\83A\82³\82¹\82é
   ClearEditor;
 end;