プリセット置換後自動でローカル確認するオプションを追加。

[winbottle/winbottle.git] / bottleclient / StrReplace.pas

diff --git a/bottleclient/StrReplace.pas b/bottleclient/StrReplace.pas
index b19744a..f90b759 100644 (file)
--- a/bottleclient/StrReplace.pas
+++ b/bottleclient/StrReplace.pas
@@ -64,9 +64,11 @@ type
     FTitle: string;
     FPairs: TReplacePairCollection;
     FShortCut: TShortCut;
+    FConfirmAfterReplace: Boolean;
     procedure SetPairs(const Value: TReplacePairCollection);
     procedure SetShortCut(const Value: TShortCut);
     procedure SetTitle(const Value: string);
+    procedure SetConfirmAfterReplace(const Value: Boolean);
   public
     constructor Create(Collection: TCollection); override;
     destructor Destroy; override;
@@ -75,6 +77,7 @@ type
     property Pairs: TReplacePairCollection read FPairs write SetPairs;
     property Title: string read FTitle write SetTitle;
     property ShortCut: TShortCut read FShortCut write SetShortCut;
+    property ConfirmAfterReplace: Boolean read FConfirmAfterReplace write SetConfirmAfterReplace;
   end;
 
   TReplacePresetCollection = class(TCollection)
@@ -209,6 +212,7 @@ begin
     Pairs.Assign(Src.Pairs);
     Title := Src.Title;
     ShortCut := Src.ShortCut;
+    ConfirmAfterReplace := Src.ConfirmAfterReplace;
   end;
 end;
 
@@ -239,6 +243,11 @@ begin
   FTitle := Value;
 end;
 
+procedure TReplacePreset.SetConfirmAfterReplace(const Value: Boolean);
+begin
+  FConfirmAfterReplace := Value;
+end;
+
 { TReplacePresets }
 
 procedure TReplacePresets.Assign(Source: TPersistent);