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