GhostChListの編集ボタンを追加（仮）

diff --git a/bottleclient/SettingForm.dfm b/bottleclient/SettingForm.dfm
index d3f2dbf..11a13ac 100755 (executable)
--- a/bottleclient/SettingForm.dfm
+++ b/bottleclient/SettingForm.dfm
@@ -1023,6 +1023,7 @@ object frmSetting: TfrmSetting
         RowSelect = True
         TabOrder = 0
         ViewStyle = vsReport
+        OnDblClick = lvwGhostChListDblClick
       end
       object btnGhostChAdd: TButton
         Left = 344
@@ -1036,7 +1037,7 @@ object frmSetting: TfrmSetting
       end
       object btnGhostChDelete: TButton
         Left = 344
-        Top = 72
+        Top = 112
         Width = 75
         Height = 25
         Hint = #36984#25246#12373#12428#12390#12356#12427#12522#12473#12488#12434#21066#38500#12377#12427
@@ -1053,6 +1054,16 @@ object frmSetting: TfrmSetting
         Caption = #12481#12515#12531#12493#12523#12468#12540#12473#12488#12434#26377#21177#12395#12377#12427'(&T)'
         TabOrder = 3
       end
+      object btnGhostChEdit: TButton
+        Left = 344
+        Top = 72
+        Width = 75
+        Height = 25
+        Hint = #36984#25246#12373#12428#12390#12356#12427#12522#12473#12488#12434#32232#38598#12377#12427
+        Caption = #32232#38598'(&E)'
+        TabOrder = 4
+        OnClick = lvwGhostChListDblClick
+      end
     end
   end
   object btnClose: TButton

diff --git a/bottleclient/SettingForm.pas b/bottleclient/SettingForm.pas
index 4b58827..f7ad986 100755 (executable)
--- a/bottleclient/SettingForm.pas
+++ b/bottleclient/SettingForm.pas
@@ -124,6 +124,7 @@ type
     btnGhostChDelete: TButton;
     cbxGhostCh: TCheckBox;
     cbxNotShowLog: TCheckBox;
+    btnGhostChEdit: TButton;
 
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure edtProxyPortKeyPress(Sender: TObject; var Key: Char);
@@ -154,6 +155,7 @@ type
     procedure tstPresetReplaceShow(Sender: TObject);
     procedure btnGhostChDeleteClick(Sender: TObject);
     procedure btnGhostChAddClick(Sender: TObject);
+    procedure lvwGhostChListDblClick(Sender: TObject);
   private
     { Private \90é\8c¾ }
     FOldLUID: String;
@@ -854,5 +856,35 @@ begin
   end;
 end;
 
+procedure TfrmSetting.lvwGhostChListDblClick(Sender: TObject);
+begin
+  with lvwGhostChList do
+  begin
+    //\95Ò\8fW\83{\83^\83\93\82©\82ç\82Ì\8cÄ\82Ñ\8fo\82µ\82©\82à
+    if Selected <> nil then
+    begin
+      Application.CreateForm(TfrmGhostChEditor, frmGhostChEditor);
+      try
+        with frmGhostChEditor do
+        begin
+          ChName := Pref.GhostChList.Strings[Selected.index * 2];
+          ChGhost := Pref.GhostChList.Strings[Selected.index * 2 + 1];
+          if Execute then
+          begin
+            with lvwGhostChList do
+            begin
+              Selected.Caption := ChName;
+              Selected.SubItems.Text := ChGhost;
+              Pref.GhostChList.Strings[Selected.index * 2] := ChName;
+              Pref.GhostChList.Strings[Selected.index * 2 + 1] := ChGhost;
+            end;
+          end;
+        end;
+      finally
+        frmGhostChEditor.Release;
+      end;
+    end;
+  end;
+end;
 
 end.