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.