Module SigCJTreeViewDemo - Simple.vw

     1Use Windows.pkg
     2Use DFClient.pkg
     3Use cSigCJTreeView.pkg
     4
     5Deferred_View Activate_oSigCJTreeViewDemo_Simple_View for ;
     6Object oSigCJTreeViewDemo_Simple_View is a dbView
     7
     8    Set Border_Style to Border_Thick
     9    Set Size to 200 300
    10    Set Location to 6 9
    11    Set Label to "Codejock Demo - Treeview - Simple" 
    12    Set Icon to "SIG.ico"
    13
    14    Object oSigCJTreeView1 is a cSigCJTreeView  
    15        Set Size to 188 100
    16        Set Location to 7 8
    17               
    18        Procedure OnCreateTree
    19            Handle  hoNode hoRoot
    20
    21            Get Add_Root_Node "Martin" to hoNode
    22                Get Add_Child_Node "Chip" to hoNode
    23                Get Add_Child_Node "Pin"  to hoNode
    24                Set psImage of hoNode to "Newdoc.ico" 
    25
    26            Get Add_Root_Node "Ian"   to hoNode
    27                Get Add_Child_Node "Humbugs" to hoNode
    28                Set psImage of hoNode to "Newdoc.ico" 
    29                
    30            Get Add_Root_Node "Peter" to hoNode
    31                Get Add_Child_Node "Humbugs" to hoNode
    32                Set psImage of hoNode to "Newdoc.ico" 
    33
    34            Get Add_Root_Node "Nick" to hoNode
    35            Set psImage of hoNode to "Newdoc.ico" 
    36        End_Procedure
    37
    38    End_Object
    39
    40Cd_End_Object
    41