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

added <Ctrl> + <middle mouse button> shortcut to restore editor zoom

This commit is contained in:
Basile Burg 2014-11-11 14:55:53 +01:00
parent 611e28f878
commit d89a57a933
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_synmemo.pas
View File

@ -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);