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.