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 ?
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;