Listbox

[s2176]

Добрый день!!!
Не получается сделать 2 listbox'а в одном интерфейсе!
Один работает нормально

[s2176]

Небольшое уточнение:
если описано так:
screen Sc1
fields
fff1: [List 'Город'];
fff2: [List 'VisaElectron','SberCard'];
...
cmInit:
{ ... SetEnumList(Sc1,fff1,m_city); ...
}
.... то работает, а вот так:
screen Sc1
fields
fff1: [List 'Город'];
fff2: [List 'Тип карты'];
...
cmInit:
{ SetEnumList(Sc1,fff1,m_city);
SetEnumList(Sc1,fff2,m_card);
}
... не работает .... причем "портится" первое поле, в него попадает содержимое из второго

[Tangar]

все работает.
Скомпли следующее :

interface test1 'ОГОГО';
create view
var sHw : string;
fff1,
fff2 : word;
;
var RegisterNames: array[1..1] of string;
var RegisterNames2: array[1..1] of string;
var RegisterNumbers: array[1..1] of integer;
screen Sc1 notablenavigation;
fields
fff1: [List 'Первый'];
fff2: [List 'Второй'];
<<

`Первый ` .@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
`Второй ` .@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@


>>
end;

HandleEvent
cmInit :
{
RegisterNames[1] := 'ff1 1';
RegisterNames[2] := 'ff1 2';
RegisterNames[3] := 'ff1 3';

RegisterNames2[1] := 'ff2 1';
RegisterNames2[2] := 'ff2 2';
RegisterNames2[3] := 'ff2 3';

RegisterNumbers[1] := 10;
RegisterNumbers[2] := 0;
RegisterNumbers[3] := 1;

SetEnumList(Sc1,#fff1, RegisterNames, RegisterNumbers);
SetEnumList(Sc1,#fff2, RegisterNames2, RegisterNumbers);
}
end;
end.

[s2176]

Огромное спасибо! Действительно заработало!
Все дело в "решетке"