The code above should show the bitmap LOGOFF in prompt Level1 , ARQMIN in prompt Level2 and KEY_UP in prompt Level3...
But only show bitmap in first prompt, in the others show a blank space
- Code: Select all Expand view
DEFINE WINDOW oWndx FROM 1, 1 TO 31,95 TITLE 'Test' COLOR CLR_BLACK,CLR_WHITE
DEFINE BITMAP oBMP1 RESOURCE "LOGOFF"
DEFINE BITMAP oBMP2 RESOURCE "ARQMIN"
DEFINE BITMAP oBMP3 RESOURCE "KEY_UP"
oImageList = TImageList():New()
oImageList:Add(oBmp1,oBmp1)
oImageList:Add(oBmp2,oBmp2)
oImageList:Add(oBmp3,oBmp3)
oTree = TTreeView():New(0,0,oWndx,CLR_BLACK,CLR_WHITE,.F.,.F.,500,500)
oTree:SetImageList( oImageList )
oAux1 = oTree:Add('Level 1',0)
oAux2 = oAux1:Add('Level 2',1)
oAux3 = oAux2:Add('Level 3',2)
oWndx:oClient = oTree
ACTIVATE WINDOW oWndx ON INIT (oWndx:SetFocus(),oWndx:Maximize(),oTree:ExpandAll())
Thanks for any help
Regards