Почему не работает динамический ListBox?

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Juve
Постоянный гость
Сообщения: 60
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва
Контактная информация:

Почему не работает динамический ListBox?

Сообщение Juve »

Есть поле Field1:Integer , есть обработчик на кнопку... в нем SetEnumList(Sheet1,Field1,MyList) где MyList[0]=:'Текст1'
MyList[1]:='Текст2' и т.д...все компилится без ошибок но список в ListBox`e Field1 не появляется, что я делаю не так?
Maverick
Абориген
Сообщения: 943
Зарегистрирован: 29 мар 2005, 17:49
Откуда: External Developer
Контактная информация:

Re: Почему не работает динамический ListBox?

Сообщение Maverick »

ну во первых.
поле должно быть типа word
во вторых этому полю нужно сопоставить массив
Изображение
Знающий людей разумен.
Знающий себя просветлён.
Побеждающий людей силен.
Побеждающий самого себя могущественнен
Juve
Постоянный гость
Сообщения: 60
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва
Контактная информация:

Re: Почему не работает динамический ListBox?

Сообщение Juve »

Меня наверно плющит,но сделано вот так:

Var
a: array [0..2] of String;
Field1: Word;
Screen Sc1
Fields
Field1: [List 'ass'];
.....
.....
.....
End; // Sc1
HandleEvent
CmTry:
{
a[0]:='dfg0';
a[1]:='dfg1';
a[2]:='dfg2';
SetEnumList(Sс1,Field1,а);
}
End; // HandleEvent
End; // Iface
И почему же оно не работает,нет ни ошибок,ни результатов...при срабатывании CmTry ничего не меняется...
Goblin
Местный житель
Сообщения: 474
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Сибирь-матушка
Контактная информация:

Re: Почему не работает динамический ListBox?

Сообщение Goblin »

Массив объяви [1..3] - заработает ...
не любит почему-то word число 0 ...
Питаю патологические отвращение и ненависть в особо тяжелой и крайне запущенной формах к семейству программ Microsoft Business Solution !
Восславим господа Кришну за то, что у нас есть ГАЛАКТИКА !
GTHack
Местный житель
Сообщения: 517
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Новосибирск Новосибирск
Контактная информация:

Re: Почему не работает динамический ListBox?

Сообщение GTHack »

видимо у Juve заработало ....
у меня не хочет, вот текст всего фейса

interface testlist;
create view testlist as select * from systdate;
Var
a: array [1..3] of String;
Field1: Word;
Screen Sc1
Fields
Field1: [List 'ass'];
<<
.@@@@@@@@@@@@@
>>
End;

HandleEvent
CmInit:
{
a[1]:='dfg0';
a[2]:='dfg1';
a[3]:='dfg2';
SetEnumList(Sc1,Field1,a);
}
End; // HandleEvent
End.
[url=http://blog.gtalex.ru]Блог GTAlex[/url]
GTHack
Местный житель
Сообщения: 517
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Новосибирск Новосибирск
Контактная информация:

Re: Почему не работает динамический ListBox?

Сообщение GTHack »

описание field1 в create view
и всё путем
[url=http://blog.gtalex.ru]Блог GTAlex[/url]
GTHack
Местный житель
Сообщения: 517
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Новосибирск Новосибирск
Контактная информация:

Re: Почему не работает динамический ListBox?

Сообщение GTHack »

еще прикольчик
если перед объявлением field1 в create view
поставить какой нибудь field2:comp
выпадающее меню работать не будет,
а вот если поставить field2:comp после field1 - работает
(Галактика 5.84)
[url=http://blog.gtalex.ru]Блог GTAlex[/url]
Ответить