Gracias a
beginner01 que me iluminó, quedé interesado en lograr el zoom desde otro control como un SpinEdit por ejemplo.
Buscando encontré estos mensajes:
EM_SETZOOM y
EM_GETZOOM
Esperando que tambíen sea de utilidad, esta fué la prueba:
Código Delphi
[-]
...
const
EM_GETZOOM = $04E0;
EM_SETZOOM = $04E1;
function RichEditGetZoom(RE: TRichEdit): TPoint;
var
P: TPoint;
begin
RE.Perform(EM_GETZOOM, Integer(@P.X), Integer(@P.Y));
Result := P;
end;
procedure RichEditSetZoom(RE: TRichEdit; P: TPoint);
begin
RE.Perform(EM_SETZOOM, P.X, P.Y);
end;
procedure TForm1.spSetZoomChange(Sender: TObject);
var
P: TPoint;
begin
P.X := spSetZoom.Value;
P.Y := 2;
RichEditSetZoom(RichEdit1, P);
end;
procedure TForm1.btnGetZoomClick(Sender: TObject);
begin
ShowMessage(Format('ZoomActual : %d / %d', [RichEditGetZoom(RichEdit1).X, RichEditGetZoom(RichEdit1).Y]));
end;
...
Un saludo.