AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

TWebBrowser Zoom gültig/ungültig

Ein Thema von baumina · begonnen am 16. Dez 2014 · letzter Beitrag vom 13. Jan 2015
Antwort Antwort
Benutzerbild von baumina
baumina

Registriert seit: 5. Mai 2008
Ort: Oberschwaben
1.275 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#1

TWebBrowser Zoom gültig/ungültig

  Alt 16. Dez 2014, 12:03
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.
Hinter dir gehts abwärts und vor dir steil bergauf ! (Wolfgang Ambros)
  Mit Zitat antworten Zitat
Benutzerbild von baumina
baumina

Registriert seit: 5. Mai 2008
Ort: Oberschwaben
1.275 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#2

AW: TWebBrowser Zoom gültig/ungültig

  Alt 9. Jan 2015, 09:09
Hat jemand eine Idee wie ich auf STRG-Mausrad (zoomen) innerhalb des TWebBrowsers reagieren kann und wie ich dort den Zoomfaktor auslesen kann?
Hinter dir gehts abwärts und vor dir steil bergauf ! (Wolfgang Ambros)
  Mit Zitat antworten Zitat
Benutzerbild von baumina
baumina

Registriert seit: 5. Mai 2008
Ort: Oberschwaben
1.275 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#3

AW: TWebBrowser Zoom gültig/ungültig

  Alt 9. Jan 2015, 11:31
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.
Hinter dir gehts abwärts und vor dir steil bergauf ! (Wolfgang Ambros)
  Mit Zitat antworten Zitat
hathor
(Gast)

n/a Beiträge
 
#4

AW: TWebBrowser Zoom gültig/ungültig

  Alt 9. Jan 2015, 14:05
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;

Geändert von hathor ( 9. Jan 2015 um 14:09 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.286 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: TWebBrowser Zoom gültig/ungültig

  Alt 9. Jan 2015, 16:51
Und wo ist da das Event?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von baumina
baumina

Registriert seit: 5. Mai 2008
Ort: Oberschwaben
1.275 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#6

AW: TWebBrowser Zoom gültig/ungültig

  Alt 13. Jan 2015, 07:39
Wenn man über Document.Body.Style.Zoom geht, werden ich Scrollbalken mitgezoomt, das sieht grausam aus.
Hinter dir gehts abwärts und vor dir steil bergauf ! (Wolfgang Ambros)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:47 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