Forum: Sonstige Fragen zu Delphi
Delphi
by WoTo,
7. Feb 2006
Sorry, hatte vergessen zu erwähnen, daß folgende Konstanten zu definieren sind:
const
ScreenHeightDev = 1024;
ScreenWidthDev = 1280;
Gruß,
Woto
Forum: Sonstige Fragen zu Delphi
Delphi
by WoTo,
7. Feb 2006
Hallo,
versuche mal folgendes:
Scaled := true;
x := Screen.width;
y := screen.height;
if (y <> ScreenHeightDev) or (x <> ScreenWidthDev) then begin
form1.height := (form1.clientheight * y div ScreenHeightDev) + form1.height-form1.clientheight;
form1.width := (form1.clientwidth * x div ScreenWidthDev) + form1.height-form1.clientheight;