XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Text auf Dialogfenster positionieren
Lauffähig ab Profan-Version 5.0
Erklärung:
----------
Dieses Beispiel demonstriert, wie man einen Text auf eine Dialogbox
poitionieren kann.
Es bedeuten:
------------
WindowStyle N                       siehe Profan - Hilfe
Window X1,Y1-X2,Y2                  siehe Profan - Hilfe
@CreateDialog(N,S,X1,Y1,X2,Y2)      siehe Profan - Hilfe
@CreateText(N,S,X1,Y1,X2,Y2)        siehe Profan - Hilfe
-----------------------------------------------
declare dialogbox%,text%         Variablen declarieren
WindowStyle 80                   Fentertil wird festgesetzt
Window 0,0-0,0                   Fenster wird erstellt        /  ergibt unsichtbares Fenster
let dialogbox%=CreateDialog(%HWnd,Dialogbox,40,40,300,300)
let text%=@CreateText(dialogbox%,Text auf Dialogbox,20,20,200,23)
waitinput                         warten auf Eingabe