Ich habe nun einen anderen Code genommen
Nun klappt
Delphi-Quellcode:
ScaleBy(120, 100); /120%
Form1.Width:=(form1.Width) + (form1.Width div 5);
Form1.Height:=(form1.Height) + (form1.height div 5);
WebBrowser1.OleObject.Document.Body.Style.Zoom := 1.2; // 120%
jetzt habe ich mindestens den selben Zoomfaktor
Ich habe ein kleines Problem:
Bei ScaleBy(); wird nur Integer akzeptiert !
Ich muss meine Form gross wie Möglich skalieren
d.h. die neue Breite der Form :
Form1.Width:=IntToStr(Screen.MonitorFromWindow(Han dle).Width)
und dann kann ich den Zoomfaktor berechnen :
Zommfaktor = (Screen.MonitorFromWindow(
Handle).Width * 100) div Form1.Width
wie kann ich diese Form in Delphi eingeben, da er nur Integer akzeptiert?