XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Hauptfenster prozentual zur Bildschirmgröße erstellen
Lauffähig ab Profan-Version 6.6
decimals 0
declare x%, y%         Koordinaten der linken oberen Ecke des Fensters
declare breite%, höhe% des Fensters
In den beiden folgenden Zeilen wird der Anteil des Fensters an der
Bildschirmgröße festgelegt (hier: 1/3)
breite% = %MaxX / 3
höhe%   = %MaxY / 3
Die beiden folgenden Zeilen sorgen dafür, dass das Fenster zentriert
auf dem Bildschirm auftaucht. Sie dürfen  n i c h t  geändert werden,
auch wenn oben der Wert 1/3 geändert wird.
x%     = (%MaxX - breite%) / 2
y%     = (%MaxY - höhe%)   / 2
window x%, y% - breite%, höhe%
print Bildschirmgröße  (b/h):, %MaxX; /; %MaxY
print Fenstergröße     (b/h):, (%WinRight - %WinLeft); /; (%WinBottom - %WinTop),(=äußere Fenstergröße)
print Fensterinnenraum (b/h):, @Width(%HWnd); /;  @Height(%HWnd),(=nutzbare Größe)
print Ränder           (b/h):, ((%WinRight - %WinLeft)-@Width(%HWnd)); /; ((%WinBottom - %WinTop)-@Height(%HWnd))
waitkey