From 1bbff471ee26fb05c1c7fd5f0179df6d95c8861b Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Mon, 28 Dec 2015 05:15:08 +0100
Subject: [PATCH] page control, added hardcoded shortcuts
ctrl+shift+alt+left/right to change active page
---
src/ce_editor.pas | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/src/ce_editor.pas b/src/ce_editor.pas
index 32b82e5d..dbce049e 100644
--- a/src/ce_editor.pas
+++ b/src/ce_editor.pas
@@ -302,7 +302,15 @@ procedure TCEEditorWidget.memoKeyDown(Sender: TObject; var Key: Word; Shift: TSh
begin
case Key of
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;
if fKeyChanged then
beginDelayedUpdate;