StrReplaceFrameフレームを作成・追加

diff --git a/bottleclient/StrReplaceFrame.dfm b/bottleclient/StrReplaceFrame.dfm
new file mode 100644 (file)
index 0000000..c90b8f5
--- /dev/null
+++ b/bottleclient/StrReplaceFrame.dfm
@@ -0,0 +1,56 @@
+object frmStrReplaceFrame: TfrmStrReplaceFrame
+  Left = 0
+  Top = 0
+  Width = 354
+  Height = 100
+  TabOrder = 0
+  DesignSize = (
+    354
+    100)
+  object lblOldPattern: TLabel
+    Left = 0
+    Top = 8
+    Width = 100
+    Height = 12
+    Caption = #32622#25563#12377#12427#25991#23383#21015'(&N):'
+  end
+  object lblNewPattern: TLabel
+    Left = 0
+    Top = 32
+    Width = 101
+    Height = 12
+    Caption = #32622#25563#24460#12398#25991#23383#21015'(&P):'
+  end
+  object edtNewPattern: TEdit
+    Left = 111
+    Top = 24
+    Width = 244
+    Height = 20
+    Anchors = [akLeft, akTop, akRight]
+    TabOrder = 0
+  end
+  object edtOldPattern: TEdit
+    Left = 111
+    Top = 0
+    Width = 244
+    Height = 20
+    Anchors = [akLeft, akTop, akRight]
+    TabOrder = 1
+  end
+  object cbxUseRegExp: TCheckBox
+    Left = 0
+    Top = 56
+    Width = 193
+    Height = 17
+    Caption = #27491#35215#34920#29694'(&R)'
+    TabOrder = 2
+  end
+  object cbxDontIgnoreCase: TCheckBox
+    Left = 0
+    Top = 80
+    Width = 193
+    Height = 17
+    Caption = #22823#25991#23383#12539#23567#25991#23383#12434#21306#21029#12377#12427'(&C)'
+    TabOrder = 3
+  end
+end

diff --git a/bottleclient/StrReplaceFrame.pas b/bottleclient/StrReplaceFrame.pas
new file mode 100644 (file)
index 0000000..f097c0f
--- /dev/null
+++ b/bottleclient/StrReplaceFrame.pas
@@ -0,0 +1,67 @@
+unit StrReplaceFrame;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
+  Dialogs, StdCtrls, StrReplace;
+
+type
+  TfrmStrReplaceFrame = class(TFrame)
+    edtNewPattern: TEdit;
+    edtOldPattern: TEdit;
+    lblOldPattern: TLabel;
+    lblNewPattern: TLabel;
+    cbxUseRegExp: TCheckBox;
+    cbxDontIgnoreCase: TCheckBox;
+  private
+    FPairRec: TReplacePairRec;
+    procedure SetPairRec(const Value: TReplacePairRec);
+    procedure UpdateControls;
+    procedure ControlsToData;
+    function GetPairRec: TReplacePairRec;
+  public
+    property PairRec: TReplacePairRec read GetPairRec write SetPairRec;
+  end;
+
+implementation
+
+{$R *.dfm}
+
+{ TfrmStrReplaceFrame }
+
+procedure TfrmStrReplaceFrame.ControlsToData;
+begin
+  with FPairRec do
+  begin
+    BeforeStr  := edtOldPattern.Text;
+    AfterStr   := edtNewPattern.Text;
+    UseRegExp  := cbxUseRegExp.Checked;
+    IgnoreCase := not cbxDontIgnoreCase.Checked;
+  end;
+end;
+
+function TfrmStrReplaceFrame.GetPairRec: TReplacePairRec;
+begin
+  ControlsToData;
+  Result := FPairRec;
+end;
+
+procedure TfrmStrReplaceFrame.SetPairRec(const Value: TReplacePairRec);
+begin
+  FPairRec := Value;
+  UpdateControls;
+end;
+
+procedure TfrmStrReplaceFrame.UpdateControls;
+begin
+  with FPairRec do
+  begin
+    edtOldPattern.Text := BeforeStr;
+    edtNewPattern.Text := AfterStr;
+    cbxUseRegExp.Checked := UseRegExp;
+    cbxDontIgnoreCase.Checked := not IgnoreCase;
+  end;
+end;
+
+end.