[SOLVED] SynEdit resize text

[Hansvb]

Hi,

I would like to resize the text in a TSynEdit with mouse scrolling. I have the following but it doesn't work well. If you reduce the size, the text suddenly becomes large again.

Code: Pascal  [Select][+][-]

1. procedure TFrmMain.SynEditJsonDataMouseWheelDown(Sender: TObject;
2.   Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
3. begin
4.   if (ssCtrl in Shift) and Sender.InheritsFrom(TSynEdit) then begin
5.     TSynEdit(Sender).Font.Size := TSynEdit(Sender).Font.Size - 1;
6.     Handled := true;
7.   end;
8. end;
9.  
10. procedure TFrmMain.SynEditJsonDataMouseWheelUp(Sender: TObject;
11.   Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
12. begin
13.   if (ssCtrl in Shift) and Sender.InheritsFrom(TSynEdit) then begin
14.     TSynEdit(Sender).Font.Size := TSynEdit(Sender).Font.Size + 1;
15.   end;
16. end;

It is for Windows only.

[Martin_fr]

Make sure you don't go through zero.
Negative font sizes are valid values, and the font becomes larger. (IIRC pixels vs points).

SynEdit already has zoom.

add emCtrlWheelZoom to SynEdit.MouseOptions.

[Hansvb]

add emCtrlWheelZoom to SynEdit.MouseOptions.

I had overlooked that option.
Thanks, zoom now works fine.