Forum > General

[SOLVED] SynEdit resize text

(1/1)

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  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---procedure TFrmMain.SynEditJsonDataMouseWheelDown(Sender: TObject;  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);begin  if (ssCtrl in Shift) and Sender.InheritsFrom(TSynEdit) then begin    TSynEdit(Sender).Font.Size := TSynEdit(Sender).Font.Size - 1;    Handled := true;  end;end; procedure TFrmMain.SynEditJsonDataMouseWheelUp(Sender: TObject;  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);begin  if (ssCtrl in Shift) and Sender.InheritsFrom(TSynEdit) then begin    TSynEdit(Sender).Font.Size := TSynEdit(Sender).Font.Size + 1;  end;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:

--- Quote ---add emCtrlWheelZoom to SynEdit.MouseOptions.
--- End quote ---
I had overlooked that option.
Thanks, zoom now works fine.

Navigation

[0] Message Index