Mit TWebBrowser zoomen bzw. verkleinern

[MrKnogge]

Abend,

ich zeige in meinem Programm zuzsätzliche Informationen und Bilder in einem kleinen TWebBrowser an, nun würde ich gerne den Inhalt vergrößern / verkleinern können.

Ich habe mal nach TWebbrowser Zoom gesucht, und auch folgendes gefunden:
http://www.delphipraxis.net/internal...ebbrowser+zoom

Nur habe ich hier leider keine zoom-Funktion gefunden (trotz angegeben).

Könnt ihr mir weiterhelfen ?



[edit]tippfehler :roll: [/edit]

[mkinzler]

Vielleicht solltest du dir in der Seite gennante TEmbeddedWB mal genauer anschauen.

[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

[MrKnogge]

Danke für die schnellen Antworten, TEmbeddedWB hab ich mir nicht angeschaut, da er in seinem Beitrag geschrieben hatte, dies bräuchte man nicht.

Die Zoom-Funktion per OleObject reicht vollkommen aus.