¿ how to use Tree Control ?

[danielmaximiliano]

Hola a Todos :
jugando con el control tree y usando ItemsID.
como saber si ya TENGO DEFINIDO un nodo o un item dentro de ese nodo
ej:

Code: Select all

     tree
       *---- POLIZA1000                  ID 1000
       *           *-COBERTURA1            ID 10001
       *           *-COBERTURA2            ID 10002
       *-----POLIZA2000                  ID 2000             <-----Existe ya???? 
                    *-COBERTURA1            ID 20001
                    *-COBERTURA2            ID 20002

necesito saber si ya esta definido el NODO o ITEM nodo

solo defino el Tree

Code: Select all

DEFINE TREE Polizas 
                    AT 60 , 6 WIDTH 215 HEIGHT 478 
                    VALUE 0 
                    FONT "Arial" SIZE 9 
                    TOOLTIP "Contenedor de Polizas" 
                    ON CHANGE SelectPoliza() 
                    ON DBLCLICK ActivaPoliza() 
                    NODEIMAGES { 'Cerrar.bmp' ,'Abrir.bmp'} 
                    END TREE

despues voy agregando los items, pero no incluye la imagen del nodo

Code: Select all

Treeytab.Polizas.AddItem( "Poliza     : " + Str( nNuminpo , 5 )  , nAsegura , nNuminpo )
Treeytab.Polizas.AddItem( "Cia        : " + Str( nNcompani , 2 ) , nAsegura , nNuminpo + 1 , {'varios.bmp'} )  <-- no carga la imagen
 

desde ya muchas gracias por la ayuda
DaNiElMaXiMiLiAnO

[danielmaximiliano]

Hola a Todos de nuevo:
estoy intentando usar el Control Tree, pero tengo un problema y no se como solucionarlo.
Resulta que busco un dato

Code: Select all

cBusca:= Str(Treeytab.Text_1.Value ,6)

si existe lo coloco en el nodo 0 del TREE

Code: Select all

Apellidoasegurado  :=  Rtrim(bapellid) + Space(1) + Rtrim(bnombrea)
        Treeytab.Polizas.AddItem(Apellidoasegurado,  0, Basegura )

despues busco en la tabla para agregar datos suplementarios.

Code: Select all

Do While (Treeytab.Text_1.Value = basegura .AND. !EOF())

si tiene mas datos lo agrego al nodo ID Basegura

Code: Select all

 Treeytab.Polizas.AddItem( "Poliza : " + Str(bpolizan), Basegura , bpolizan , 'Poliza_64.bmp' )
Treeytab.Polizas.AddItem( "NIP        : " + Str(bnuminpo), bpolizan, bnuminpo )
Treeytab.Polizas.AddItem( "Cia        : " + Str(bcompani) + "   Secc : " + Str(bseccion,2) , bpolizan, bnuminpo + 1 , {'varios.bmp'} )   
Treeytab.Polizas.AddItem( "NIE        : " + Str(bnuminen) + "   CO   : " + anomoper        , bpolizan, bnuminpo + 2 , {'varios.bmp'} )
Treeytab.Polizas.AddItem( "Emisiòn    : " + DToC(bfechaem) , bpolizan, bnuminpo + 3 , {'varios.bmp'} )
Treeytab.Polizas.AddItem( "Vigencia   : " + DToC(bfechavi) , bpolizan, bnuminpo + 4 , {'varios.bmp'} )
Treeytab.Polizas.AddItem( "Vigencia Fi: " + DToC(bfechavi) , bpolizan, bnuminpo + 5 , {'varios.bmp'} 

resulta que el Item ID bPolizan puede repetirse y me genera un error ( mirar la captura del error )
como usar la Funcion IsControlDefined ( <ControlName> , <WindowName> ) --> lBoolean para discriminar ese error antes que se genere ????
desde ya muchas gracias
DaNiElMaXiMiLiAnO
para

[danielmaximiliano]

Hola a Todos:
para solucionar el problema que las polizas se podian repetir y darme error ya que tomaba dicho numero de poliza para asignar como ID: era tomar el valor del registro "Recno()" para cargarlo al TREE

Code: Select all

main.tree_1.additem("Asegurado :"+cName +cLastname, 0 , nAsegu)
nRecno := Recno()
nPoliza  := nRecno + 0.01
main.tree_1.additem("Poliza : "+STR(nPoliza), nAsegu , {"peter.bmp"}, nPoliza)
nPoliza  := nPoliza + 0.01
main.tree_1.additem(".................
nPoliza  := nPoliza + 0.01
main.tree_1.additem(".................

Tree y Tab.jpg (82.5 KiB) Viewed 3393 times

ahora el caso es borrar dicho Asegurado del TREE sin poner un boton, ¿se puede agregar un Context menu al tree como en Minigui Extended?

Translate google
Hi Everyone:
to solve the problem that the policies could be repeated and give me error and taking the policy number to assign as ID, was to take the registry value "recno ()" to load the TREE
Now the case is clear that without putting TREE Assured of a button, ¿can add a Context menu at the tree as Miniguide Extended?