Mit TWebBrowser zoomen bzw. verkleinern

[capo]

Hiho oder

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  //50% 
  WebBrowser1.OleObject.Document.Body.Style.Zoom := 0.50;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  //100%
  WebBrowser1.OleObject.Document.Body.Style.Zoom := 1;
end;

{Eine Seite muss bereits in TWebBrowser geladen sein}

//.zoom:=0.25; //25%
//.zoom:=0.5; //50%
//.zoom:=0.75; //75%
//.zoom:=1.5; //100%
//.zoom:=2.0; //200%
//.zoom:=5.0; //500%
//.zoom:=10.0; //1000%

grüsse
capo