Hacer zoom a un richedit
 

Hola,

quisiera preguntar si existe alguna forma de poder hacer un zoom a un richedit, es decir poderlo ampliar usando el ctr y la ruedita como en los otros editores.

Un saludo a todos y muchas gracias por todo.

Creo que alguna vez se ha hablado de un componente o una función para hacer un efecto "lupa", haz una búsqueda por los foros, a ver si lo encuentras.

Creo que tal y como dice Casimiro, puedes aplicar una especie de "lupa" al componente, pero si lo que quieres es que el documento funcione realmente con la opción de ZOOM, deberás buscar otro componente, pues el richedit standard no está pensado para eso.

Hola.

En esta página encontré información acerca de hacer zoom a un Richedit normal, para hacerlo con la tecla Control + la "ruedita" hice lo siguiente.

Código Delphi [-]
// el evento OnKeyDown de el RichEdit  
procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_CONTROL then
   mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); 

end;

// el evento OnKeyUp de el RichEdit
procedure TForm1.RichEdit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin

  if key = VK_CONTROL then
     mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

end;

:(:(:(

Perdón, por la parte que me toca, porque acabo de enterarme de tal cosa y mi respuesta es errónea por completo. Es más, mi deducción también lo ha sido.
Tal y como indicas aquí funciona en el RichEdit normal. :eek::eek::eek:

Botón izquierdo + Rueda.

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

Creo que vamos a ser muchos los sorprendidos... :)

beginner01, gracias por participarnos la información.;)

Saludos.

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.