Hacer zoom a un richedit

[Casimiro Noteví]

Si no lo veo, no lo creo.
El richedit estandar lo hace, sin tener que programar nada

[ecfisa]

Creo que vamos a ser muchos los sorprendidos...

beginner01, gracias por participarnos la información.

Saludos.

[ecfisa]

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.