forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

dbl click in tool list to execute

This commit is contained in:
Basile Burg 2015-01-04 22:59:37 +01:00
parent bce244b754
commit 6a8bcf083a
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/ce_toolseditor.lfm
View File

@ -104,6 +104,7 @@ inherited CEToolsEditorWidget: TCEToolsEditorWidget
Width = 160 Width = 160
Align = alLeft Align = alLeft
ItemHeight = 0 ItemHeight = 0
OnDblClick = lstToolsDblClick
OnSelectionChange = lstToolsSelectionChange OnSelectionChange = lstToolsSelectionChange
TabOrder = 0 TabOrder = 0
end end

8
src/ce_toolseditor.pas
View File

@ -27,6 +27,7 @@ type
procedure btnMoveUpClick(Sender: TObject); procedure btnMoveUpClick(Sender: TObject);
procedure btnMoveDownClick(Sender: TObject); procedure btnMoveDownClick(Sender: TObject);
procedure btnRunClick(Sender: TObject); procedure btnRunClick(Sender: TObject);
procedure lstToolsDblClick(Sender: TObject);
procedure lstToolsSelectionChange(Sender: TObject; User: boolean); procedure lstToolsSelectionChange(Sender: TObject; User: boolean);
procedure propsEdModified(Sender: TObject); procedure propsEdModified(Sender: TObject);
private private
@ -143,5 +144,12 @@ begin
CustomTools.tool[lstTools.ItemIndex].execute; CustomTools.tool[lstTools.ItemIndex].execute;
end; end;
procedure TCEToolsEditorWidget.lstToolsDblClick(Sender: TObject);
begin
if lstTools.ItemIndex = -1 then
exit;
CustomTools.tool[lstTools.ItemIndex].execute;
end;
end. end.