Webbrowser Zoom

[froschprinz]

Hallo Leute,

ich habe die Lösung selbst gefunden. Und die ist auch noch simpel. Ich habe bei den c++ Leuten gespickt (pfui!)
Falls jemand mal vor dem gleichen Problem steht:

Delphi-Quellcode:

procedure TForm1.TrackBar1Change(Sender: TObject);
var zoom:olevariant;
begin
 zoom:=TrackBar1.Position;
 WebBrowser1.ExecWB(63, OLECMDEXECOPT_PROMPTUSER,zoom);
end;

wobei die 63=OLECMDID_OPTICAL_ZOOM entspricht.

Klappt Super und verzerrt die Seite nicht. Das Zoomen über
WebBrowser1.OleObject.Document.Body.Style.Zoom Ist eigentlich Müll, da die meisten Seiten dabei hops gehen.