XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fenster mit Rahmen erstellen
Lauffähig ab Profan-Version 6.6
Erklärung:
----------
Dieses Beispiel demonstriert, wie ein Fenster immer
zentriert und in einer vorgegebenen Größe x%, Y%
dargestellt wird.
Außerdem wird ein Rahmen im Fenster erzeugt.
Es bedeuten:
------------
X%     - Breite des Fensters
Y%     - Höhe des Fensters
%maxX  - horizontale Auflösung des Bildschirmes
%maxY  - vertikale Auflösung des Bildschirmes
Window x1,y1 - x2,y2       siehe Profan - Hilfe
CreateGroupBox(N,S,X1,Y1,X2,Y2)
%HWnd     : Integer - Handle des übergeordneten Fensters
Das ist...     : String  - Text, der links oben im Rahmen steht
5,0 : Integer - Linke obere Ecke des Rahmens
gbx%,gby% : Integer - Größe des Rahmens
-----------------------------------------------
declare X%,Y%,gbx%,gby%          Variablen declarieren
x% = 300                                                beachte, dass X% < %maxX
y% = 300                                                beachte, dass Y% < %maxY
gbx% = sub(X%,17)    maxmale Breite des Hauptfensters minus 17 Pixel von rechts (300-17)
gby% = sub(y%,50)    maxmale Höhe des Hauptfensters minus 50 Pixel von unten (300-50)
window div(sub(%maxx,x%),2), div(sub(%maxy,y%),2)-x%,y%
CreateGroupBox(%HWnd,Das ist der Rahmen,5,0,gbx%,gby%)
waitinput                                                warten auf Eingabe