Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   TWebBrowser Zoom gültig/ungültig (https://www.delphipraxis.net/183153-twebbrowser-zoom-gueltig-ungueltig.html)

baumina 16. Dez 2014 12:03

TWebBrowser Zoom gültig/ungültig
 
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 9. Jan 2015 09:09

AW: TWebBrowser Zoom gültig/ungültig
 
Hat jemand eine Idee wie ich auf STRG-Mausrad (zoomen) innerhalb des TWebBrowsers reagieren kann und wie ich dort den Zoomfaktor auslesen kann?

baumina 9. Jan 2015 11:31

AW: TWebBrowser Zoom gültig/ungültig
 
OK, den Zoomfaktor erhält man über

Delphi-Quellcode:
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 9. Jan 2015 14:05

AW: TWebBrowser Zoom gültig/ungültig
 
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 9. Jan 2015 16:51

AW: TWebBrowser Zoom gültig/ungültig
 
Und wo ist da das Event?

baumina 13. Jan 2015 07:39

AW: TWebBrowser Zoom gültig/ungültig
 
Wenn man über Document.Body.Style.Zoom geht, werden ich Scrollbalken mitgezoomt, das sieht grausam aus.


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:33 Uhr.

Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf