FiveTech Software tech support forums

Hola. He revisado el foro en busca de info para meter un tree en un diálogo pero me he rendido, no lo consigo. Así que desde mi diálogo llamo a una window con un tree. Si compilo solo la parte de la window me sale la window con el tree y todo correcto, pero si la llamo desde un botón de mi diálogo se crea la ventana y luego me da un fallo:
Application
===========
Path and name: C:\PRU\MENU.EXE
Size: 1,355,200 bytes
Max files handles permited: ( SetHandleCount() ) 255
Error ocurred at: 13-08-2006, 12:44:46
Error description: Error BASE/1066 Argument error: conditional
Args:
[ 1] = A { ... } Array

Stack Calls
===========
Called from LOCKERRHAN(0)
Called from (b)INITHANDL$(0)
Called from TTREEVIEW:NEW(0)
Called from CREATREE(425)
Called from (b)CHILDTREE(408)
Called from TMDICHILD:ACTIVATE(0)
Called from (b)TMDICHILD(0)
Called from CHILDTREE(408)
Called from (b)SEL_LA_FAM(373)
Called from TMDIFRAME:ACTIVATE(0)
Called from SEL_LA_FAM(373)
Called from (b)EDIT_AR(197)
Called from TBTNBMP:CLICK(0)
Called from TBTNBMP:LBUTTONUP(0)
Called from TBTNBMP:HANDLEEVEN(0)

El fallo aparentemente es en la línea 425 que os marco en negrita


LOCAL oTree
LOCAL oRoot
LOCAL oLink

LOCAL nStep

@ 0, 0 TREE oTree OF oChild ;
SIZE 0, 0 PIXEL;
BITMAPS { "Paper","FoldClose","FoldOpen", "BookClose", "BookOpen", "Tabla", "Procedimiento", "Usuario", "Server", "Ejecutivo", "Respaldo" } ;
TREE STYLE nOr( TVS_HASLINES, TVS_HASBUTTONS );
ON DBLCLICK ClickTree(oTree)

oTree:bRClicked = {|nRow,nCol| MenuTree(oTree,nRow,nCol)}

oChild:SetControl(oTree)

oRoot := oTree:GetRoot()

oRoot := oRoot:AddLastChild( "Servidor", 9, 9 )

oRoot:AddLastChild( "Ejecutivo", 0, 10 )

Si alguien necesita más código para investigar que me pase su mail y se lo mando por no hacer este post inmenso.
Si alguien tiene alguna idea me sería de gran ayuda. Yo me rindo con los trees.

FW 2.4 - Clipper 5.2 - dBase III+ - Blinker 5.0

En samples\TreeDlg.prg tienes un ejemplo

hola. gracias por responder, pero en samples solo tengo un treeview.prg y un treedemo.prg, no me aparece ningún treedlg.prg . si me lo puedes mandar al correo mi mail es chocochester arroba hotmail punto com
gracias.

Me temo que no va a funcionar con la versión de FW que tienes.

vaya .... y con qué versión me funcionaría? me da horror cambiar!!!! jeje. creo que está la 2.7, pero ya puesto tendría que ser para harbour ... ummm. no se.

Te envio el ejemplo y lo pruebas y así salimos de dudas