powered by simpleCommunicator - 2.0.38     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / TreeView
13 сообщений из 13, страница 1 из 1
TreeView
    #32216480
Levran
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ребята. Помогите. Создаю treeview. Все идет хорошо до определенного момента. Пока не начинаю вершинам приписывать картинки. Делаю так:
loNode.Image = Iif(IsNull(loNode.Parent),5,2)
(всегда так делал и все работало)
На это Fox выдает мне ошибку 1429:OLE Error. У меня создан класс, наслед. от формы. На него кинут treeview. Если я комментирую эту строчку, то все OK. OLEImageList содержит эти картинки и лежит тоже на форме. Причем я делаю так: This.ImageList = ThisForm.oleImageList (This это TreeView).
Не понимаю своей ошибки. Помогите буду благодарен
...
Рейтинг: 0 / 0
TreeView
    #32216495
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2Levran

Пробуй
Код: plaintext
This.ImageList = ThisForm.oleImageList.Object
...
Рейтинг: 0 / 0
TreeView
    #32216500
Levran
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо за помощь. Сам разобрался. Прикол был вот в чем. Нужно было присвоение Treeview.ImageList =ThisForm.OleImageList делать не в Init TreeView (как я делал), а при построении самого дерева.
...
Рейтинг: 0 / 0
TreeView
    #32218486
Jose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Кто-Нибудь знеат, можно ли в TreeView поставить событие
на нажатие клавиш F1 - F12
...
Рейтинг: 0 / 0
TreeView
    #32218538
IgorProgrammer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Попробуй обрабатывать метод KeyDown TreeView-ра
...
Рейтинг: 0 / 0
TreeView
    #32218539
Crip
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
стандартное ON KEY LABEL тоже должно работать
...
Рейтинг: 0 / 0
TreeView
    #32218572
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Смотря что именно ты хочешь повесить на эти клавиши.

Если по нажатию этих клавишь ты хочешь вызвать другую форму в которой предположительно может содержаться ActiveX-компонент или например CHM-файл, то необходимо предварительно завершить метод TreeView и только потом сделать вызов.

Для этих целей я использую "одноразовый" таймер. Т.е. кладешь на форму таймер с небольшим интервалом срабатывания, например Interval=10 в методе Timer которого пишешь примерно следующее:

Код: plaintext
1.
2.
3.
IF This.Enabled=.T.
	* Собственно запуск нужной формы или открытие CHM-файла
	This.Enabled=.F.
ENDIF


Ну и в событии, например KeyUp в TreeView

*** ActiveX Control Event ***
Код: plaintext
1.
2.
3.
LPARAMETERS keycode, shift
IF keycode= 112 	&& нажатие клавиши F1
	ThisForm.Timer1.Enabled=.T.
ENDIF
...
Рейтинг: 0 / 0
TreeView
    #32219323
Jose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А откуда ты взял, что F1 - это 112 ?
***********************************

По нажатии клавиш загружается программа некоторых расчетов.
...
Рейтинг: 0 / 0
TreeView
    #32219329
Crip
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я делал просто вот так
Код: plaintext
1.
LPARAMETERS keycode, shift
MessageBox( "Эта клавиша имеет код "  + transform(keycode))
...
Рейтинг: 0 / 0
TreeView
    #32219344
karly
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
> LPARAMETERS keycode, shift
> MessageBox("Эта клавиша имеет код " + transform(keycode))

А в хелпе на inkey() посмотреть не проще?
Согласно хелпу, 112 - это клавиша p
...
Рейтинг: 0 / 0
TreeView
    #32219347
Crip
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не проще...У treeview другие коды клавиш...
...
Рейтинг: 0 / 0
TreeView
    #32219398
Jose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Да, я тоже думал сначала, что по inkey нужно. А оказалось....
...
Рейтинг: 0 / 0
TreeView
    #32219400
Jose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Да, а можно так же с помощью этого, например на Ctrl - Enter поставить
...
Рейтинг: 0 / 0
13 сообщений из 13, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / TreeView
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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