Bildschirmauflösung stört

[Koller]

Ich verwende die Bildschirmauflösung 1280*1024. Mein Kumpel aber eine kleinere, sodass mein Programm total überdimensioniert aussieht und fast die gesamte Breite des Bildschirms einnimmt, was bei mir noch lange nicht der fall ist. Wisst Ihr was man da machen kann, dass es demtentsprechend skaliert wird?

[sniper_w]

Aber natürlich...

Delphi-Quellcode:

// on create event
var scalex, scaley : integer;

begin
 scalex := 80; // 80% von Screen.Width
 scaley := 80; // 80% von Screen.height 
 width := screen.width * ( scaleX ) div 100;
 height := screen.height * (scaleY ) div 100;
end;

[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