TWebBrowser Zoom gültig/ungültig

[baumina]

Ich möchte meinem TWebBrowser gerne das Zoomen beibringen. Dafür habe ich folgendes gefunden:

Delphi-Quellcode:

var
  ZoomFac : OLEVariant;

begin
  ZoomFac := 200;
  WebBrowser1.ExecWB(63, OLECMDEXECOPT_DONTPROMPTUSER, ZoomFac);
end;

Klappt für ein JPG z.B. prima. Für eine PDF-Datei natürlich nicht, da kommt die Fehlermeldung :

Zitat:

Es wurde versucht ein Drop-Ziel zu widerrufen, das nicht registriert wurde.

Wenn ich mir meinen IE so anschaue, der zeigt mir in der Statusleiste für z.B. JPG-Dateien die Zoomauswahl an, für z.B.: PDF-Dateien nicht.

Wie stelle ich fest ob ich das angezeigte Element zoomen kann bzw. nicht kann, um meinen Zoombutton wie beim IE anzuzeigen bzw. zu verbergen.

[baumina]

Hat jemand eine Idee wie ich auf STRG-Mausrad (zoomen) innerhalb des TWebBrowsers reagieren kann und wie ich dort den Zoomfaktor auslesen kann?

[baumina]

OK, den Zoomfaktor erhält man über

ZoomFaktor := WebBrowser1.OleObject.Document.ParentWindow.Screen.deviceXDPI * 100 / WebBrowser1.OleObject.Document.ParentWindow.Screen.logicalXDPI;

Ein Event wann gezoomt wird, habe ich nicht gefunden, das habe ich nun über einen Timer gelöst.

Schönes Wochenende euch allen.

[hathor]

Vielleicht geht es damit:
Das Document muss natürlich den Focus haben:

Delphi-Quellcode:

var 
WB : TWebBrowser;
WBsizer : Single;
...
WBsizer:= WBsizer + 0.01; // vergrößern
WBsizer:= WBsizer - 0.01; // verkleinern
...
WBsizer:= 1.0; // = 100 %
WB_SetFocus(WB);
WB.OleObject.Document.Body.Style.Zoom := WBsizer;

[DeddyH]

Und wo ist da das Event?

[baumina]

Wenn man über Document.Body.Style.Zoom geht, werden ich Scrollbalken mitgezoomt, das sieht grausam aus.