Oder noch schlimmer:
Delphi-Quellcode:
const cW: Integer = 600;
cH: Integer = 400;, //Breite und Höhe des Forms auf dem Etwicklungsrechner
scW: Integer = 1280;
scH: Integer = 1024;//Auflösung auf dem Etwicklungsrechner
//obige Werte können/ sollten natürlich entsprechend angepasst werden für andere Größen ;-)
begin
Width:= Round( cW/scW * Screen.Width);
Height:= Round( cH/scH * Screen.Height);
end;
MfG
Binärbaum
//Edit: Werte vertauscht-> korrigiert