Гость
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / TreeView again / 4 сообщений из 4, страница 1 из 1
31.07.2003, 12:23
    #32223589
Jose
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TreeView again
Господа, проблема такая:
Есть у меня таблица с данными и соответствующими Parent и Key
для создания TreeView

Пишу в init формы

o = ThisForm.Olecontrol1
o.ImageList = ThisForm.Olecontrol2
select _menu
scan
If _menu.parent = 0
o.Nodes.Add(,,alltr(str(_menu.key)+"_"),_menu.text).image = "Pict"
else
o.Nodes.Add(alltr(str(_menu.parent)+"_"),4,alltr(str(_menu.key)
+"_"),_menu.text).image = "Pict"

endif

ckey = _menu.key
endscan

Соответственно в ImageList создал картинку с именем Pict.
Fox на первый o.Nodes.add...image выдает ошибку "Syntax error" (это только тогда, когда стоит image), на второй же (если первый пропустить или не писать вообще) никаких ошибок не выдает, все нормально проходит.
В чем, собственно говоря, дело ?
...
Рейтинг: 0 / 0
31.07.2003, 12:46
    #32223627
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TreeView again
Ну ты силен. А разбить команду на 2 (или хотя бы почитать описание метода ADD()) - принципы не позволяют?


LOCAL lnImageIndex
lnImageIndex=ThisForm.Olecontrol2.ListImages("Pict").Index

Вариант 1

LOCAL loNode
loNode=o.Nodes.Add(,,alltr(str(_menu.key)+"_"),_menu.text)
loNode.image = m.lnImageIndex

Вариант 2

o.Nodes.Add(,,alltr(str(_menu.key)+"_"),_menu.text, m.lnImageIndex )

Кстати, а что у тебя получается во втором случае? Насколько я в курсе, свойство Image принимает исключительно числовые значения, т.е. индекс картинки в коллекции ImageList, но никак не символьное значение ключа.
...
Рейтинг: 0 / 0
31.07.2003, 14:48
    #32223879
Jose
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TreeView again
В коллекции ImageList имеется не только index, а также Key, который имеет символьное значение и, соответственно на него можно таким образом ссылаться.
Поэтому во втором случае все работает нормально.
Если поставить Index, как ты говоришь, то происходит то же самое:
на корневые ставить не хочет (Syntax error) на остальные же без проблем.

Может что еще подскажешь ?
...
Рейтинг: 0 / 0
31.07.2003, 15:37
    #32223984
Jose
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TreeView again
Странно,...... но в 8-ом почему-то заработало ?!
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / TreeView again / 4 сообщений из 4, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]