FiveTech Support Forums

function main()

#Include "FiveWin.ch"


   LOCAL oDlg, oTree, oImageList 
   local oFont
   local cDirect1:= space(40)

   DEFINE FONT oFont NAME "Arial" SIZE 0, -11 

        DEFINE DIALOG oDlg FROM 0, 0 TO 26, 79 ;
        TITLE "Test Tree" ;
          GRADIENT { { 1, nRGB( 199, 216, 237 ), nRGB( 237, 242, 248 ) } }


   oImageList = TImageList():New() 
   oImageList:Add( TBitmap():Define( , "folder.bmp", oDlg ),; 
                   TBitmap():Define( , "folder.bmp", oDlg ) ) 
   @ 0.25, 0.5 TREEVIEW oTree OF oDlg SIZE 306,170 
   oTree:bLClicked := { | nRow, nCol, nKeyFlags | MyClick1Test( nRow, nCol, oTree, cDirect1 ) } 

   @ 9.95, 22.5 BUTTON "&Exit"   OF oDlg ACTION oDlg:End() SIZE 40, 12

   ACTIVATE DIALOG oDlg CENTERED ON INIT AddItems1Test( oTree, oImageList, cDirect1 ) 

Return NIL 

******************************************************************************** 
Function AddItems1Test( oTree, oImageList, cDirect1 ) 
 
   local oItem1, oItem2, oItem3 
   local lItem1a:= .t., lItem2a:= .t., lItem3a:= .t. 

   oTree:SetImageList( oImageList ) 
  
   oItem1 = oTree:Add( "Personnel", 1 ) 

     oItem11 = oItem1:Add( "Add",   6) ; oItem11:Cargo:={"Personnel", 1} 
     oItem12 = oItem1:Add( "View",   6) ; oItem12:Cargo:={"Personnel", 2} 
     oItem13 = oItem1:Add( "Edit", 6) ; oItem13:Cargo:={"Personnel", 3} 


   oTree:Expand() 

Return NIL 

******************************************************************************** 
Function Myclick1Test( nRow, nCol, oTree, cDirect1 ) 


   local oItem, array, Mydate, Mget, hItem, II, oItemRadio 

   oItem := oTree:HitTest( nRow, nCol ) 

   IF oItem != NIL 
      IF oItem:Cargo != NIL      
         array := oItem:Cargo 
         DO CASE 
           CASE array[1] = "Personnel" 
              if array[2] = 1 
                   msginfo(" Item 1")
              elseif array[2] = 2 
                   msginfo(" Item 2")
              elseif array[2] = 3 
                   msginfo(" Item 3")
              endif      
         ENDCASE 
      ENDIF 
   ENDIF 

return nil 

********************************