Browse Source

Add missing list double click handler.

Martijn Laan 1 year ago
parent
commit
9d0ad7e7a7
2 changed files with 8 additions and 0 deletions
  1. 1 0
      Projects/Src/IDE.SignToolsForm.dfm
  2. 7 0
      Projects/Src/IDE.SignToolsForm.pas

+ 1 - 0
Projects/Src/IDE.SignToolsForm.dfm

@@ -38,6 +38,7 @@ object SignToolsForm: TSignToolsForm
       ItemHeight = 13
       ItemHeight = 13
       TabOrder = 0
       TabOrder = 0
       OnClick = SignToolsListBoxClick
       OnClick = SignToolsListBoxClick
+      OnDblClick = SignToolsListBoxDblClick
     end
     end
     object AddButton: TButton
     object AddButton: TButton
       Left = 480
       Left = 480

+ 7 - 0
Projects/Src/IDE.SignToolsForm.pas

@@ -29,6 +29,7 @@ type
     procedure AddButtonClick(Sender: TObject);
     procedure AddButtonClick(Sender: TObject);
     procedure RemoveButtonClick(Sender: TObject);
     procedure RemoveButtonClick(Sender: TObject);
     procedure EditButtonClick(Sender: TObject);
     procedure EditButtonClick(Sender: TObject);
+    procedure SignToolsListBoxDblClick(Sender: TObject);
   private
   private
     FSignTools: TStringList;
     FSignTools: TStringList;
     procedure CommandDocImageClick(Sender: TObject);
     procedure CommandDocImageClick(Sender: TObject);
@@ -185,4 +186,10 @@ begin
   UpdateSignToolsButtons;
   UpdateSignToolsButtons;
 end;
 end;
 
 
+procedure TSignToolsForm.SignToolsListBoxDblClick(Sender: TObject);
+begin
+  if EditButton.Enabled then
+    EditButton.Click;
+end;
+
 end.
 end.