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

messages, support for quick jump using kbrd 

- arrows up/down: as single LMB
- enter: as double LMB
This commit is contained in:
Basile Burg 2015-05-03 18:02:26 +02:00
parent 588d99a473
commit c65c724c74
1 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ce_messages.pas
View File

@ -277,9 +277,10 @@ end;
procedure TCEMessagesWidget.ListKeyDown(Sender: TObject; var Key: Word; procedure TCEMessagesWidget.ListKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState); Shift: TShiftState);
var var
i: NativeInt; i: Integer;
begin begin
if Key in [VK_BACK, VK_DELETE] then case Key of
VK_BACK, VK_DELETE:
begin begin
if List.SelectionCount > 0 then if List.SelectionCount > 0 then
begin begin
@ -289,6 +290,11 @@ begin
end end
else clearbyContext(amcAll); else clearbyContext(amcAll);
end; end;
VK_UP, VK_DOWN:
if fOptions.singleMessageClick then handleMessageClick(nil);
VK_RETURN:
handleMessageClick(nil);
end;
end; end;
procedure TCEMessagesWidget.selCtxtClick(Sender: TObject); procedure TCEMessagesWidget.selCtxtClick(Sender: TObject);