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

shortcut editor pass the new shortcut value to the observers

This commit is contained in:
Basile Burg 2015-02-23 06:20:33 +01:00
parent 9ea1608f74
commit 6df102dac4
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/ce_shortcutseditor.pas
View File

@ -15,6 +15,8 @@ type
private private
fIdentifier: string; fIdentifier: string;
fData: TShortcut; fData: TShortcut;
fDeclarator: ICEEditableShortCut;
property declarator: ICEEditableShortCut read fDeclarator write fDeclarator;
published published
property identifier: string read fIdentifier write fIdentifier; property identifier: string read fIdentifier write fIdentifier;
property data: TShortcut read fData write fData; property data: TShortcut read fData write fData;
@ -220,13 +222,23 @@ begin
end; end;
procedure TCEShortcutEditor.LabeledEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure TCEShortcutEditor.LabeledEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
sh: TShortCut;
begin begin
if tree.Selected = nil then exit; if tree.Selected = nil then exit;
if tree.Selected.Level = 0 then exit; if tree.Selected.Level = 0 then exit;
if tree.Selected.Data = nil then exit; if tree.Selected.Data = nil then exit;
// //
if Key = VK_RETURN then shortcutCatcher.Enabled := false if Key = VK_RETURN then
else TShortcutItem(tree.Selected.Data).data := Shortcut(Key, Shift); shortcutCatcher.Enabled := false
else
begin
sh := Shortcut(Key, Shift);
TShortcutItem(tree.Selected.Data).data := sh;
TShortcutItem(tree.Selected.Data).declarator.scedSendItem(
tree.Selected.Parent.Text,
tree.Selected.Text, sh );
end;
// //
updateEditCtrls; updateEditCtrls;
end; end;
@ -281,6 +293,7 @@ begin
itm := TShortcutItem(fShortcuts.items.Add); itm := TShortcutItem(fShortcuts.items.Add);
itm.identifier := idt; itm.identifier := idt;
itm.data:= sht; itm.data:= sht;
itm.declarator := obs;
tree.Items.AddChildObject(prt, idt, itm); tree.Items.AddChildObject(prt, idt, itm);
cat := ''; cat := '';
idt := ''; idt := '';