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.

[madtom]

Hallo,

auf http://www.swissdelphicenter.ch/de/showcode.php?id=1537 wurde das auch schon mal beschrieben, allerdings mit dem falschen (1.) Parameter.

[jik]

Hallo Leute,

das Thema ist zwar schon angestaubt, aber für mich aktuell.

Bei der Lösung mit

Code:

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

erhalte ich diese Fehlermeldung:
EOleException Versuch, ein Drop-Ziel zu widerrufen, das nicht registriert wurde

Welchen Wert hast du bei der Trackbar? Kann ja nur ein ganzzahliger sein, oder? Ich habe es mit 150, 1.5, 20 ... probiert, es kommt immer diese Meldung.
wb ist TEmbeddedWB.

Hat jemend einen Tipp?

Viele Grüße
jk