Automatische Skalierung bei DelphiX

[chaoslion]

geht so:
die prozedur lässt du vor jeder Zeichenprozedur laufen

Delphi-Quellcode:

procedure CorrectTo640480(var x: Single;var y: Single;var w: Single;var h: Single );
begin
  x := x*ScreenWidth / 640;
  y := y*ScreenHeight / 480;
  w := w*ScreenWidth / 640;
  h := h*ScreenHeight / 480;
end;

so kannst du immer von 640x480 ausgehen, egal welche Auflösung du hast;
screenheight/width ist nat immer die aktuelle Auflösung.