Zoom-Faktor anpassen ?

[Delphiturbo]

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 :mrgreen:

Das ist aber bestimmt keine gute Idee, da dies nur beim mir so gut aussieht :gruebel:
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 ?

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;

[SirThornberry]

einmal reicht doch. Und genau wie du den Zoomfactor vom Form berechnest kannst du ihn auch für alles andere Berechnen.