From da619d8479b4384f53de71b96bab194f84f8ff26 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sun, 19 Apr 2015 05:07:03 +0200
Subject: [PATCH] spotted synedit bug, cursor/zoom/scroll

---
 src/ce_synmemo.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index d7578fe3..01164746 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -600,14 +600,13 @@ begin
   identifierToD2Syn;
   if not (Shift = [ssCtrl]) then exit;
   //
-  IncPaintLock;
   case Key of
     VK_ADD: if Font.Size < 50 then Font.Size := Font.Size + 1;
     VK_SUBTRACT: if Font.Size > 3 then Font.Size := Font.Size - 1;
     VK_DECIMAL: Font.Size := fDefaultFontSize;
   end;
-  DecPaintLock;
   TCEEditorHintWindow.FontSize := Font.Size;
+  UpdateCursor;
   fCanShowHint:=false;
   fDDocWin.Hide;
 end;
@@ -705,6 +704,7 @@ begin
   result := inherited DoMouseWheel(Shift, WheelDelta, MousePos);
   fCanShowHint:=false;
   fHintTimer.Enabled:=false;
+  //SynEdit bug: begin scroll, press CTRL still while. Wrong cursor size sometimes.
 end;
 {$ENDREGION --------------------------------------------------------------------}