public
{ Public declarations }
end;
const
EM_GETZOOM = (WM_USER + 224);
EM_SETZOOM = (WM_USER + 225);
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Zoom := 100;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Zoom := 200;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Zoom := 300;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Form1.Zoom := 400;
end;
function TForm1.GetZoom: Integer; // Added by J.G. Boerema
var wp,lp: Integer;
begin
Result := 100;
SendMessage(Richedit1.Handle, EM_GETZOOM, Integer(@wp), Integer(@lp));
if (lp > 0) then Result := MulDiv(100,wp,lp);
end;
procedure TForm1.SetZoom(Value: Integer);
begin
if Value = 0 then
SendMessage(Richedit1.Handle, EM_SETZOOM, 0, 0)
else
SendMessage(Richedit1.Handle, EM_SETZOOM, Value, 100);
end;