При построениии делаю This.LockScreen = .T.
OneLavel_="One"
TwoLavel_="Two"
o = THISFORM.oleTree.Nodes
oleTree = THISFORM.oleTree
o.Clear
SELECT QProfilesFields
SCAN
idprrofilesf=QProfilesFields.id
KeyLabel_=OneLavel_+ALLTRIM(STR(idprrofilesf))
Caption_=ALLTRIM(QProfilesFields.Caption)
IF QProfilesFields.ShowReg=.F.
o.ADD(,1,"&KeyLabel_","&Caption_",1)
oleTree.Nodes("&KeyLabel_").Selected=.F.
oleTree.Nodes("&KeyLabel_").SelectedImage=1
ELSE
o.ADD(,1,"&KeyLabel_","&Caption_",2)
oleTree.Nodes("&KeyLabel_").Selected=.T.
oleTree.Nodes("&KeyLabel_").SelectedImage=2
ENDIF
ENDSCAN
This.LockScreen = .F.

Пояснение к коду
в таблице QProfilesFields есть две группы ShowReg=T/F
Пытаюсь создать Nodes где одни имеют картинку "1" и Selected=.F. а другие "2" и Selected=.T.
Делает.
При KeyPress treeview делаю
LPARAMETERS keyascii
key_=This.SelectedItem.Key
IF keyascii=32
IF this.Nodes(key_).Selected= .F.
MESSAGEBOX("Не помечено")
ELSE
MESSAGEBOX("Помечено")
ENDIF
ENDIF

Сранно но всегда Selected= .T.(точно знаю что Selected берёт у правельного Nodes) в чем дело непойму
Помогите пожалуйста

oleTree.Nodes(m.KeyLabel_).image
Да вот это будет кстаки Спасибо.

Помогите загвоздка.
?oleTree.Nodes(m.KeyLabel_).image Это помогло но не отвсех болезней.
Спрашиваю у свойства image 1 или 2 и потом меняю картинку. А потом происходит слеущее и в тоже время непонятное: Когда стоишь на Nodes у которого поменял картинку с 1 на 2. Вижу картинку 1. Ухожу с него вижу картинку 2. Вожвращаюсь на него вижу картинку 1.
Не знаю что и делать.

ВладимирМ Всё понятно. Большое спасибо