Get()
Get() – GetList definieren
Die mit CreateGet() erzeugte GetList kann mit Get() näher definiert werden. Jeder Aufruf von Get() entspricht einem Eingabe-Feld im später aufgerufenen Dialogfeld, dabei werden Variablen des Typs C, N, U als Editfeld, D als Datum, und L als Checkbox dargestellt. Die Eingaben des Benutzers in diesen Feldern werden in den jeweiligen Variablen gespeichert. Mit dem Aufruf von ReadGets() wird die GetList als DialogFenster eingeblendet.
Parameter | Beschreibung |
---|---|
aGetList:O | GetList Objekt |
aVar:R | Ergebnis-Parameter: Variable für Defaultanzeige im Editfeld |
aLeft:N | Abstand von Links; default = 0 |
aTop:N | Abstand von Oben; default = 0 |
aWidth:N | Breite; default = 0 |
aHeight:N | Höhe; default = 0 |
aLabel:C | Bezeichnung; default = Leerstring |
aLabelTop:L | Label; default = true |
aPicture:C | Eingabemaske für Variablen vom Typ N, C oder U; |
aWhen:C | When-Codeblock als Text; |
aRange:A | Gültigkeitsbereich für Variablen die nicht von Typ L sind; default = nil() |
aValidation:C | Codeblock zur Validierung als Text; |
Rückgabewert
Objekt - GetObjekt
Beispiel
| oGetList, oDab005:DB := 'waDAB005', cName:C := 'Name', dDatum:D := date |
oGetList := CreateGet('Get-Fenster', 10, 10, 300, 250),
Get(oGetList, cName, 10, 40, 150, 20, 'Name'),
Get(oGetList, dDatum, 10, 90, 150, 20, 'Datum'),
if ReadGets(oGetList) then
Meld('Name: ' + cName + crlf + 'Datum: ' + DToC(dDatum)),
endif,