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.