Alguien puede darme un ejemplo de tree desde recurso
Posted: Mon Mar 16, 2009 10:40 am
He probado el ejemplos que hay pero no encuentro ninguno que utilice los recursos:
Consigo que aparezca el tree pero no me aparecen las imágenes
Gracias
Code: Select all
STATIC FUNCTION Prueba2()
local oDlg, oTree, oImageList
DEFINE DIALOG oDlg TITLE "TreeView from source" RESOURCE "A_PRUEBA"
oTree := TTreeview():ReDefine( 110, oDlg, 0, GetSysColor( COLOR_WINDOW ) )
oImageList := TimageList():New()
oImageList:Add( TBitmap():Define( "IMG1",, oDlg ) )
oImageList:Add( TBitmap():Define( "IMG2",, oDlg ) )
oImageList:Add( TBitmap():Define( "IMG3",, oDlg ) )
oTree:SetImageList( oImageList )
ACTIVATE DIALOG oDlg CENTERED ;
ON INIT AddItems( oTree )
return nil
function AddItems( oTree )
local oItem1, oItem2, oItem3
oItem1 = oTree:Add( "First", 1 )
oItem1:Add( "One", 2 )
oItem1:Add( "Two", 1 )
oItem1:Add( "Three",2 )
oItem2 = oTree:Add( "Second" )
oItem2:Add( "Hello" )
oItem2:Add( "World" )
oItem3 = oTree:Add( "Third", 3 )
oItem3:Add( "Last" )
oItem3:Add( "item" )
return nil
Gracias