From 9a13de3c053d8fa9ae4f2f074d1d62bf25e3a7f1 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sun, 7 Dec 2014 10:51:20 +0100
Subject: [PATCH] editor position buffer on key up

---
 src/ce_synmemo.pas | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index 1627a629..c5fa3198 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -43,6 +43,7 @@ type
   protected
     procedure SetHighlighter(const Value: TSynCustomHighlighter); override;
     procedure KeyDown(var Key: Word; Shift: TShiftState); override;
+    procedure KeyUp(var Key: Word; Shift: TShiftState); override;
     procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
     procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y:Integer); override;
     procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y:Integer); override;
@@ -298,9 +299,6 @@ end;
 
 procedure TCESynMemo.KeyDown(var Key: Word; Shift: TShiftState);
 begin
-  if Key in [VK_PRIOR, VK_NEXT] then
-    fPositions.store;
-  //
   inherited;
   identifierToD2Syn;
   //
@@ -311,6 +309,13 @@ begin
   end;
 end;
 
+procedure TCESynMemo.KeyUp(var Key: Word; Shift: TShiftState);
+begin
+  if Key in [VK_PRIOR, VK_NEXT, Vk_UP] then
+    fPositions.store;
+  inherited;
+end;
+
 procedure TCESynMemo.MouseMove(Shift: TShiftState; X, Y: Integer);
 begin
   inherited;