Alguien puede darme un ejemplo de tree desde recurso

[miarcod]

He probado el ejemplos que hay pero no encuentro ninguno que utilice los recursos:

Code: Select all  Expand view

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
 

Consigo que aparezca el tree pero no me aparecen las imágenes

Gracias

[horacio]

A mi me sucede lo mismo, inclusive el ejemplo que trae FWH no trae imágenes. ¿ se podrá ?. Saludos

[andresreyes_mzt]

la llamada a este metodo debe de ser dentro del ON INIT del dialogo, cuando el objeto treeview ya esta creado de lo contrario no funciona.

oTree:SetImageList( oImageList )

Saludos.

[miarcod]

Gracias, ya funciona

[Patricio Avalos Aguirre]

Hola

Andres Reyes nuevamente por aqui

Una Consulta, alguna novedad de la estupenda WinDebug..

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=9768&p=47129#p47129

[andresreyes_mzt]

Hola Patricio,

Sin novedades todavía, sigo trabajando en varios proyectos al mismo tiempo, y sobre todo aprendiendo cosas nuevas cada día, que por supuesto se verán reflejadas en las nuevas versiones mis programas. Espero no sea largo el tiempo, pero ahí estaremos,

Saludos,

Andrés Reyes