ReplacePresetEditorフォームを追加。まだ大幅に変更する予定

diff --git a/bottleclient/ReplacePresetEditor.dfm b/bottleclient/ReplacePresetEditor.dfm
new file mode 100644 (file)
index 0000000..9c039c3
--- /dev/null
+++ b/bottleclient/ReplacePresetEditor.dfm
@@ -0,0 +1,73 @@
+object frmReplacePresetEditor: TfrmReplacePresetEditor
+  Left = 0
+  Top = 0
+  Width = 377
+  Height = 274
+  TabOrder = 0
+  object tvwPresets: TTreeView
+    Left = 0
+    Top = 0
+    Width = 377
+    Height = 161
+    Align = alTop
+    Indent = 19
+    TabOrder = 0
+  end
+  object PageControl: TPageControl
+    Left = 0
+    Top = 161
+    Width = 377
+    Height = 113
+    ActivePage = tstPreset
+    Align = alClient
+    Style = tsButtons
+    TabOrder = 1
+    object tstPreset: TTabSheet
+      Caption = #12503#12522#12475#12483#12488
+      TabVisible = False
+      object Label1: TLabel
+        Left = 8
+        Top = 16
+        Width = 54
+        Height = 12
+        Caption = #35373#23450#21517'(&N):'
+        FocusControl = edtTitle
+      end
+      object Label2: TLabel
+        Left = 8
+        Top = 48
+        Width = 83
+        Height = 12
+        Caption = #12471#12519#12540#12488#12459#12483#12488'(&S):'
+        FocusControl = cbxShortCut
+      end
+      object edtTitle: TEdit
+        Left = 96
+        Top = 8
+        Width = 265
+        Height = 20
+        TabOrder = 0
+      end
+      object cbxShortCut: TComboBox
+        Left = 96
+        Top = 40
+        Width = 145
+        Height = 20
+        ItemHeight = 12
+        TabOrder = 1
+      end
+    end
+    object tstPair: TTabSheet
+      Caption = #12506#12450
+      ImageIndex = 1
+      TabVisible = False
+      inline frmStrReplaceFrame: TfrmStrReplaceFrame
+        Left = 8
+        Top = 3
+        Width = 354
+        Height = 100
+        TabOrder = 0
+      end
+    end
+  end
+end

diff --git a/bottleclient/ReplacePresetEditor.pas b/bottleclient/ReplacePresetEditor.pas
new file mode 100644 (file)
index 0000000..c09bbaa
--- /dev/null
+++ b/bottleclient/ReplacePresetEditor.pas
@@ -0,0 +1,30 @@
+unit ReplacePresetEditor;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, 
+  Dialogs, ComCtrls, StrReplaceFrame, StdCtrls, StrReplace;
+
+type
+  TfrmReplacePresetEditor = class(TFrame)
+    tvwPresets: TTreeView;
+    PageControl: TPageControl;
+    tstPreset: TTabSheet;
+    tstPair: TTabSheet;
+    frmStrReplaceFrame: TfrmStrReplaceFrame;
+    Label1: TLabel;
+    Label2: TLabel;
+    edtTitle: TEdit;
+    cbxShortCut: TComboBox;
+  private
+    { Private \90é\8c¾ }
+  public
+    { Public \90é\8c¾ }
+  end;
+
+implementation
+
+{$R *.dfm}
+
+end.