Hallo zusammen,
bitte nicht gleich zucken, wenn ich mit diesem Thema komme. Ich weis es wurde schon in vielen Foren behandelt. Aber leider funktioniert das mit dem Zoomen nicht auf allen Seiten zufriedenstellend.
Ich verwende z.B.
WebBrowser1.OleObject.Document.Body.Style.Zoom :='150%';
Und bei vielen Seiten geht das auch. Aber z.B. werden bei Google nicht alle Elemente gezoomt und die Seite sieht dann ganzschön dämlich aus.
Gleichen Effekt hat auch:
Delphi-Quellcode:
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
var
zoom:integer;
Document: OleVariant;
Doc: IHTMLDocument2;
body: OleVariant;
begin
zoom:=150;
Doc := IHTMLDocument2(WebBrowser1.Document);
body := Doc.Body;
body.Style.Zoom := Format('
%d%%',[zoom]);
end;
Auch bei Seiten die Frames enthalten wird nicht alle gezoomt. Die Funktionen zommen ja nur den Body. Und was ist mit dem Rest?
Habt Ihr eine Lösung. Es muss doch möglich sein alles zu Zoomen.
Oder gibt es da irgendeinen Trick (z.B.Bildschirmauflösung vom Webbrowser verändern)