Bildschirmauflösung stört

[Binärbaum]

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