Hallo
einige Kunden verwenden entweder auf gösse Bildschirm-Auflösung oder Sie haben
einen Großen Bildschirm (ab 19 zoll).
Meine Programm-Größe ist damit zu klein, darum wollen die Leute gerne das Programm
skalieren (vergrößern) !
Wer gibt mir einen Tipp, um in solchen Fällen, die Möglichkeit dem User geben
das Programm auf seinen Bildschirm anpassen zu können ?
Mit dem Code z.B. wird auf Form liegende Objekte skaliert auch Webbrowser:
Delphi-Quellcode:
var
sWidth: Double;
sHeight: Double;
begin
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;
// nun webbrowser Inhalt zoomen:
WebBrowser1.OleObject.Document.Body.Style.Zoom := 1.25
{Zoomfaktor};
end;
Das Problem in Code, es gibt 2 Zoomfaktoren:
Einer skaliert Delphi-Objekte
Anderer skaliert (zoomt) Webbrowser Content
Manch mal wird die Zoomfaktoren nicht identisch
Darum suche ich eine andere Lösung