Auflösung anpassen ?

[dataspider]

Hi,
leg die procedure in irgendeine Unit, füge diese in der Uses eines Forms ein und rufe es am Besten im Constructor oder im OnCreate des Forms auf: ScaleForm(Self);
Der Fehler ist sicher nur der Doppelpunkt bei Const...

Delphi-Quellcode:

procedure ScaleForm(AForm: TCustomForm);
const
   screenwidthdev  = 1250; // Einstellungen auf dem Entwicklungsrechner
   screenheightdev =  960; // dito
var
   x,y:integer;
begin
   scaled := true;
   x:= Screen.width;
   y:= Screen.Height;
   if(y <> ScreenHeightDev) or (x <> ScreenwidthDev) then
     begin
        AForm.Height := (AForm.ClientHeight* y div ScreenHeightDev) +
                                AForm.Height- AForm.ClientHeight;
        AForm.Width  := (AForm.ClientWidth * x div ScreenWidthDev)  +
                                AForm.Height - AForm.ClientHeight;
        AForm(x,Screenwidthdev);
     end;
end;

Cu, Frank