From d89a57a933ccdc711a18276e269616a676150630 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Tue, 11 Nov 2014 14:55:53 +0100
Subject: [PATCH] added <Ctrl> + <middle mouse button> shortcut to restore
 editor zoom

---
 src/ce_synmemo.pas | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index bd1fb7bc..14060b2a 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -29,6 +29,7 @@ type
     procedure KeyDown(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;
   public
     constructor Create(aOwner: TComponent); override;
     destructor destroy; override;
@@ -74,7 +75,7 @@ begin
   fStoredFontSize := Font.Size;
 
   MouseOptions := MouseOptions +
-    [ emAltSetsColumnMode, emDragDropEditing, emCtrlWheelZoom];
+    [emAltSetsColumnMode, emDragDropEditing, emCtrlWheelZoom];
   Gutter.LineNumberPart.ShowOnlyLineNumbersMultiplesOf := 5;
   Gutter.LineNumberPart.MarkupInfo.Foreground := clGray;
   Gutter.SeparatorPart.LineOffset := 1;
@@ -226,6 +227,13 @@ begin
   identifierToD2Syn;
 end;
 
+procedure TCESynMemo.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y:Integer);
+begin
+  inherited;
+  if (Button = mbMiddle) and (Shift = [ssCtrl]) then
+    Font.Size := fStoredFontSize;
+end;
+
 initialization
   D2Syn := TSynD2Syn.create(nil);
   LfmSyn := TSynLFMSyn.Create(nil);