From 6a8bcf083a24b4eeb4deabdd00afbd764510e20d Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sun, 4 Jan 2015 22:59:37 +0100
Subject: [PATCH] dbl click in tool list to execute

---
 src/ce_toolseditor.lfm | 1 +
 src/ce_toolseditor.pas | 8 ++++++++
 2 files changed, 9 insertions(+)

diff --git a/src/ce_toolseditor.lfm b/src/ce_toolseditor.lfm
index 6ddb388d..3499a195 100644
--- a/src/ce_toolseditor.lfm
+++ b/src/ce_toolseditor.lfm
@@ -104,6 +104,7 @@ inherited CEToolsEditorWidget: TCEToolsEditorWidget
           Width = 160
           Align = alLeft
           ItemHeight = 0
+          OnDblClick = lstToolsDblClick
           OnSelectionChange = lstToolsSelectionChange
           TabOrder = 0
         end
diff --git a/src/ce_toolseditor.pas b/src/ce_toolseditor.pas
index 7564a685..70aa8e50 100644
--- a/src/ce_toolseditor.pas
+++ b/src/ce_toolseditor.pas
@@ -27,6 +27,7 @@ type
     procedure btnMoveUpClick(Sender: TObject);
     procedure btnMoveDownClick(Sender: TObject);
     procedure btnRunClick(Sender: TObject);
+    procedure lstToolsDblClick(Sender: TObject);
     procedure lstToolsSelectionChange(Sender: TObject; User: boolean);
     procedure propsEdModified(Sender: TObject);
   private
@@ -143,5 +144,12 @@ begin
   CustomTools.tool[lstTools.ItemIndex].execute;
 end;
 
+procedure TCEToolsEditorWidget.lstToolsDblClick(Sender: TObject);
+begin
+  if lstTools.ItemIndex = -1 then
+    exit;
+  CustomTools.tool[lstTools.ItemIndex].execute;
+end;
+
 end.