Formular skalieren???

[Markus K.]

Hallo romber,
so müsstest du das Formular skalieren können (Code ist ungetestet).

Delphi-Quellcode:

const ScreenHeight={Auflösung der y-Achse};
      ScreenWidth={Auflösung der x-Achse};
var x,y:Integer;
begin
     Scaled:=True;
     x:=Screen.Width;
     y:=Screen.Height;
     if (y <> ScreenHeight) or (x <> ScreenWidth)
     then begin
          Form.Height:=((Form.ClientHeight*y) div ScreenHeight)+Form.Height-Form.ClientHeight;
          Form.Width:=((Form.ClientWidth*x) div ScreenWidth)+Form.Width-Form.ClientWidth;
          ScaleBy(x,ScreenWidth);
          end;
end;

Tschüß Markus