Code: Select all
oTree := TTreeView():Redefine( 601, oFolder:adialogs[1] )
oTree:bChanged := { |oTree,oItem| MyClick( oTree:GetSelected(),@aoGets,@aoChecks ) }
oTree:SetColor(rgb(0,0,0),rgb(255,255,255))
oImageList := TImageList():New(32,32) // imagelist items are zero-based!
oImageList:Add( TBitmap():Define( "FOLDER_OPEN",, oDlg ),TBitmap():Define( "FOLDER_OPEN",, oDlg ) )
oImageList:Add( TBitmap():Define( "FILE",, oDlg ),TBitmap():Define( "FILE",, oDlg ) )
oImageList:Add( TBitmap():Define( "FILEUP",, oDlg ),TBitmap():Define( "FILEUP",, oDlg ) )
oImageList:Add( TBitmap():Define( "FILE_CHECK",, oDlg ),TBitmap():Define( "FILE_CHECK",, oDlg ) )
Code: Select all
if oUser:VisibilidadArbol = "Si"
oTree:Show()
else
oTree:Hide()
end if
Muchas Gracias y Saludos,