24 lines
712 B
Plaintext
24 lines
712 B
Plaintext
compile subroutine set_list_box_data( Window )
|
|
declare function utility, fieldcount, set_property
|
|
|
|
$insert logical
|
|
EC1 = utility( 'OBJECTLIST', Window, 'COMBOBOX' )
|
|
EC2 = utility( 'OBJECTLIST', Window, 'LISTBOX' )
|
|
EffectedControls = EC1:@fm:EC2
|
|
EfCnt = fieldcount( EffectedControls, @fm )
|
|
for i = 1 to Efcnt
|
|
ThisControl = EffectedControls<i>
|
|
if ThisControl then
|
|
ConfigId = field( ThisControl, '.', 2 )
|
|
Clen = len( ConfigId )
|
|
ConfigId = ConfigId[Clen,'B_']
|
|
ThisListData = xlate( 'LISTBOX_CONFIG', ConfigId, 1, 'X' )
|
|
convert @vm to @fm in ThisListData
|
|
if ThisListData then
|
|
void = set_property( ThisControl, 'LIST', ThisListData )
|
|
end
|
|
end
|
|
next i
|
|
|
|
|