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,
Weitere Verknüpfungen