XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Auswahlbox erstellen
Lauffähig ab Profan-Version 5.0
-----------------------------------------------
Erklärung:
----------
Dieses Beispiel demonstriert, wie man mit einem Befehl eine
Auswahlbox erzeugen kann.
Es bedeutet:
------------
cls          - erstellt Standardfenster (640 * 480)
@CreateButton(N,S,X1,Y1,X2,Y2)        siehe Profan - Hilfe
@CreateChoiceBox(N,S,X1,X2,Y1,Y2)     siehe Profan - Hilfe
-----------------------------------------------
declare box%,exit%,e%              Variablen declarieren
let e%=0                              Zueiungen
cls
let box%=@CreateChoiceBox(%HWnd,,10,10,200,300)
let exit%=@CreateButton(%HWnd,Beenden,220,10,100,24)
@AddChoice(box%,1.Eintrag)
@AddChoice(box%,2.Eintrag)          > erstellt Einträge in @ChoiceBox
@AddChoice(box%,3.Eintrag)         /

Whilenot e%

    Waitinput                               warten auf Eingabe

    If @GetFocus(exit%)                     wenn exit% den Focus hat

        let e%=1                             lasse e%=1 sein (beendet Programm)

    Endif

Wend