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

page control, added hardcoded shortcuts ctrl+shift+alt+left/right to change active page

This commit is contained in:
Basile Burg 2015-12-28 05:15:08 +01:00
parent 36aa1aafc6
commit 1bbff471ee
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ce_editor.pas
View File

@ -302,7 +302,15 @@ procedure TCEEditorWidget.memoKeyDown(Sender: TObject; var Key: Word; Shift: TSh
begin begin
case Key of case Key of
VK_CLEAR,VK_RETURN,VK_BACK : fKeyChanged := true; VK_CLEAR,VK_RETURN,VK_BACK : fKeyChanged := true;
VK_UP, VK_DOWN, VK_LEFT, VK_RIGHT: updateImperative; VK_UP, VK_DOWN, VK_LEFT, VK_RIGHT:
begin
if Shift <> [ssCtrl, ssAlt, ssShift] then
updateImperative
else begin
if Key = VK_LEFT then pageControl.pageIndex := pageControl.pageIndex -1
else if Key = VK_RIGHT then pageControl.pageIndex := pageControl.pageIndex +1;
end;
end;
end; end;
if fKeyChanged then if fKeyChanged then
beginDelayedUpdate; beginDelayedUpdate;