SETLBOX |
Setlbox is used to initialise a selection in a left-most list.
Setlbox is used to initialise one or more selections, or re-select a record automatically following an unauthorised de-selection.
Setlbox abrev
|
Element |
Description |
Restrictions |
|
abrev |
Abbreviation allocated to this pick box |
|
# initialisation: pre-selection of 1st and last record
# display of treebox elements
$AFFICHEBOX
Treebox [ZMT] SEL
& [F:ZMT]YITMREF Titled "",
& [F:ZMT]YUOM Titled "",
& [F:ZMT]YITMDES Titled ""
& Sized(160,240)
& Titled "Pick window"
& At(40,40)
& As [PIC]
Boxact [PIC]
Fillbox [PIC]
# pre-selection of 1st and last record
Read [ZMT] First
Setlbox [PIC]
Read [ZMT] Last
Setlbox [PIC]
Return
# replaces a selection or de-selection following checks
$SAIPIC
Boxinp [PIC] Using RESU
Case RESU
When GSTAPIC
Repeat
Pick
[PIC]
Case
status
When 7, 44 : Break
When 37 : Gosub SELECTION
When 41 : Gosub DESELECTION
Endcase
Until 1=0
When GSTAPKF : Goto FIN
When GSTAESC, GSTAFIN : Goto FIN
Endcase
Goto SAIPIC
# de-selects if selection impossible following check
$SELECTION
If ...
Dislbox [PIC]
Endif
Return
# selects if de-selection impossible following check
$DESELECTION
If ...
Setlbox [PIC]
Endif
Return
Setlbox is used to initialise a selection in a left-most list.
Setlbox is used to initialise one or more selections, or re-select a record automatically following an unauthorised de-selection.
The functional routine concerned must be initiated manually since selection or deselection is ignored by the Pick instruction.
|
Error |
Description |
|
|
|
Treebox - Pickbox - Listbox - Pick - Boxact - Fillbox - Currbox - Dislbox
|
|