Body.Style.Zoom

[Delphiturbo]

Hallo

um eine Webbrowser zu zoomen, sind die 2 Varianten möglich :

Delphi-Quellcode:

WebBrowser1.OleObject.Document.Body.Style.Zoom :=2;
WebBrowser1.OleObject.Document.Body.Style.Zoom :='200%';

Ich wollte den Zoomfaktor so eingeben :

Delphi-Quellcode:

var
zoom : Real;
creenwidth : Integer;
begin
creenwidth := Screen.MonitorFromWindow(Handle).Width;
zoom:= creenwidth div Form1.width;
WebBrowser1.OleObject.Document.Body.Style.Zoom :=zoom; // passiert nichts

[Brainshock]

Ich finde hier zwar keine direkte Frage, aber ich gehe mal davon aus, es bezieht sich auf das "passiert nichts" im Quellcode.
Hast du mal kontrolliert, was in zoom drinsteht? Vielleicht ist es ja 1 und es wird deshalb nichts gezoomt.

gruß,

[Delphiturbo]

Hallo

ich have "div" durch "/" ersetzt dann passiert mindestens was.
ich möchte den Webbrowser bei Navigate zoomen

Delphi-Quellcode:

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
//WebBrowser1.OleObject.Document.Body.Style.Zoom:=1.5;
WebBrowser1.OleObject.Document.Body.Style.Zoom:='150%'; // Error aber Delphi Debuger gibt nichts über den Fehler !
end;

[DeddyH]

Zoom ist bestimmt kein String. Schalt endlich mal das ein, was zwischen Deinen Ohren sitzen sollte, sonst hilft Dir bald niemand mehr.

[Muetze1]

Zitat:

Zitat von DeddyH

Zoom ist bestimmt kein String.

Ach, und Variant ist gleich mit ausgeschlossen?

[Delphiturbo]

Vorher habe ich so versucht:

Delphi-Quellcode:

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  Doc: IHTMLDocument2;
  body: OleVariant;
begin
  Doc := IHTMLDocument2(WebBrowser1.Document);
  body := Doc.Body;
// body.Style.Zoom := '150%';
  body.Style.Zoom := 1.50;// hier kommt der Fehler ! Und wie gesagt, Delphi Debuger sagt nicht darüber !
end;

[mkinzler]

Welcher Fehler wird den angezeigt?

[DeddyH]

Zitat:

Zitat von Muetze1

Ach, und Variant ist gleich mit ausgeschlossen?

Der bringt mich langsam völlig aus dem Tritt mit seinen ständigen Zoom-Threads. :?

[Delphiturbo]

Zitat:

Zitat von mkinzler

Welcher Fehler wird den angezeigt?

Der Fehler erscheint nicht bei Kompilieren sondern wenn ich auf das Button Klicke
sehe Anhang

[sirius]

Zitat:

Zitat von Muetze1

Zitat:

Zitat von DeddyH

Zoom ist bestimmt kein String.

Ach, und Variant ist gleich mit ausgeschlossen?

Wusste gar nicht, dass Variant die Prozentrechnung beherrscht :mrgreen: