imagelist on tree

[Silvio.Falconi]

with

Code: Select all  Expand view

oImageList := TImageList():New()
   oImageList:Add( TBitmap():Define( "open",, oBar2 ), ;        // nImage == 0 (default if not specified)
                   TBitmap():Define( "close",, oBar2 ) )


   @ 15, 1 TREEVIEW oTree OF oBar2 SIZE 190, 180
         oTree:SetImageList( oImageList )

Now run !!



but the second level must have arrow.bmp and not the same as first