Page History
...
PART property, ID property, MV property, TYPE property
Example
| Code Block |
|---|
function KeyControls(Window)
* returns an @fm-delimited list of key controls
declare function Get_Property
* get list of all controls
CtrlList = Get_Property(Window, "CTRLMAP")
convert @fm to @rm in CtrlList
* get field positions of all controls
PosList = Get_Property(CtrlList, str("POS": @rm, | count(CtrlList, @rm)): "POS")
* build list of keys
KeyList = ""
loop
locate "0" in PosList using @rm setting Pos else Pos = 0
while Pos
KeyList<-1> = field(CtrlList, @rm, Pos)
PosList = field(PosList, @rm, Pos+1, 999) ; * create new PosList
CtrlList = field(CtrlList, @rm, Pos+1, 999) ; * create new CtrlList
repeat
return KeyList |
