Zoom-Faktor anpassen ?

Hallo

Die Form wird Maximum skaliert
Webbrowser wird aber mit einer anderen Methode skaliert
Ich habe einfach mehrmals den Zoomfaktor von Webbrowser geändert bis er mit der Form
angepasst hat

Das ist aber bestimmt keine gute Idee, da dies nur beim mir so gut aussieht

Wenn man einen PC mit einer anderen Größe hat oder eine andere Bildschirmauflösung verwendet, dann kann es sein, dass die Form und der Webbrowser nicht mit dem selben Zoomfaktor skaliert werden

Hat jemand eine Idee um das Problem zu verhindern ?

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.FormCreate(Sender: TObject);

var

  sWidth: Double;

  sHeight: Double;

begin

LoadHTMLToWebBrowser(Webbrowser1,memo1.Lines);

  sWidth := Screen.MonitorFromWindow(Handle).Width / Width;

  sHeight := Screen.MonitorFromWindow(Handle).Height / Height;

  if sWidth < sHeight then

  begin

    ScaleBy(Round(Screen.MonitorFromWindow(Handle).Width * 1.01), Width);

  end

  else

  begin

    ScaleBy(Round(Screen.MonitorFromWindow(Handle).Height * 1.01), Height);

  end;

  WindowState := wsMaximized;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  WebBrowser1.OleObject.Document.Body.Style.Zoom := 1.25;

end;

Zoom-Faktor anpassen ?

Zoom-Faktor anpassen ?

Forumregeln