powered by simpleCommunicator - 2.0.38     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / TreeView again
4 сообщений из 4, страница 1 из 1
TreeView again
    #32223589
Jose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Господа, проблема такая:
Есть у меня таблица с данными и соответствующими 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
TreeView again
    #32223627
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну ты силен. А разбить команду на 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
TreeView again
    #32223879
Jose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В коллекции ImageList имеется не только index, а также Key, который имеет символьное значение и, соответственно на него можно таким образом ссылаться.
Поэтому во втором случае все работает нормально.
Если поставить Index, как ты говоришь, то происходит то же самое:
на корневые ставить не хочет (Syntax error) на остальные же без проблем.

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


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