自動置換のUndo対応

diff --git a/bottleclient/MainForm.pas b/bottleclient/MainForm.pas
index 9a4b48c..4b3d134 100755 (executable)
--- a/bottleclient/MainForm.pas
+++ b/bottleclient/MainForm.pas
@@ -645,12 +645,10 @@ begin
   //\91\97\90M\83X\83N\83\8a\83v\83g\92u\8a·\83p\83^\81[\83\93\83e\83L\83X\83g\83\8d\81[\83h
   FSendScriptReplace:=TStringList.Create;
   try
-        FSendScriptReplace.LoadFromFile(
-                ExtractFilePath(Application.Exename) + 'replace.txt');
-
+    FSendScriptReplace.LoadFromFile(
+      ExtractFilePath(Application.Exename) + 'replace.txt');
   except
-        ShowMessage('replace.txt\82ª\82 \82è\82Ü\82¹\82ñ\81B');
-
+    ShowMessage('replace.txt\82ª\82 \82è\82Ü\82¹\82ñ\81B');
   end;
 
 
@@ -3243,37 +3241,35 @@ end;
 
 procedure TfrmSender.mnAutoReplaceClick(Sender: TObject);
 var
-        NowPos:integer;
-        Counter:integer;
-        Work,BeforeReplace,AfterReplace:string;
-
+  NowPos: integer;
+  Counter: integer;
+  Work, BeforeReplace, AfterReplace: String;
 begin
-        //\91\97\90M\83X\83N\83\8a\83v\83g\92u\8a·
-        if Not (FSendScriptReplace.Text='') then begin
-                if memScript.SelText='' then begin
-                        //\8c»\8dÝ\82Ì\83J\81[\83\\83\8b\88Ê\92u
-                        NowPos:=memScript.SelStart;
-                        Work:=memScript.Lines.Text;
-
-                        for Counter:=0 to (FSendScriptReplace.Count div 2)-1 do begin
-                                BeforeReplace:=FSendScriptReplace.Strings[Counter*2];
-                                AfterReplace:=FSendScriptReplace.Strings[Counter*2+1];
-
-                                //\8dÄ\92u\8a·\96h\8e~\8f\88\97\9d
-                                Work:=StringReplace(Work,AfterReplace,BeforeReplace,[rfReplaceAll]);
-                                //\96{\92u\8a·                                                              
-                                Work:=StringReplace(Work,BeforeReplace,AfterReplace,[rfReplaceAll]);
-                        end;
-
-                        memScript.Lines.Text:=Work;
-                        memScript.SelStart:=NowPos;
-
-                        //\8am\94F\94­\93®
-                        btnConfirm.Click;
-
-                end;
-        end;
+  //\91\97\90M\83X\83N\83\8a\83v\83g\92u\8a·
+  if not (FSendScriptReplace.Text = '') then
+  begin
+    if memScript.SelText = '' then
+    begin
+      //\8c»\8dÝ\82Ì\83J\81[\83\\83\8b\88Ê\92u
+      NowPos:=memScript.SelStart;
+      Work:=memScript.Lines.Text;
+      for Counter:=0 to (FSendScriptReplace.Count div 2)-1 do
+      begin
+        BeforeReplace:=FSendScriptReplace.Strings[Counter*2];
+        AfterReplace:=FSendScriptReplace.Strings[Counter*2+1];
+        //\8dÄ\92u\8a·\96h\8e~\8f\88\97\9d
+        Work:=StringReplace(Work,AfterReplace, BeforeReplace, [rfReplaceAll]);
+        //\96{\92u\8a·
+        Work:=StringReplace(Work,BeforeReplace, AfterReplace, [rfReplaceAll]);
+      end;
+      memScript.SelectAll;
+      memScript.SelText := Work;
+      memScript.SelStart := NowPos;
 
+      //\8am\94F\94­\93®
+      btnConfirm.Click;
+    end;
+  end;
 end;
 
 procedure TfrmSender.tbtnAutoReplaceClick(Sender: TObject);