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.