[beginner01]

Empezado por r_e_g_2007

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.

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;