Auflösung anpassen ?

[Vader]

hallo,

hab da einen code von kiar aufgeschnappt,frage wo muß ich den code mit const reinschreiben ?

Delphi-Quellcode:

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 
        frmMain.Height := (frmMain.ClientHeight* y div ScreenHeightDev) + 
                                frmMain.Height- frmMain.ClientHeight; 
        frmMain.Width  := (frmMain.ClientWidth * x div ScreenWidthDev)  + 
                                frmMain.Height - frmMain.ClientHeight; 
        scaleBy(x,Screenwidthdev); 
     end; 
   // Achtung frmMain muss durch dein Formular ausgetauscht werden

mfg vader

[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

[Vader]

danke !