Inazio escribió:
Hola Bruno.
Una cosita, estoy trabajando con treeview e intento utilizar un evento de esta clase, el OnClick en concreto. No funciona. Utilizo el OnDblClick y funciona correctamente. Necesito utilizar el OnClick para lo que quiero hacer. ¿ Será que no funciona bien ?. Me lo hechas un vistazo porfa...
Gracias.
Hola, Inazio.
A ver, creo que tienes un error de concepto, me explico. Según creo yo, el evento OnClick se refiere AL CONTROL y NO A LOS ITEMS.
Si lo que quieres es realizar una acción al pulsar un item, lo tienes que hacer por medio del evento OnChange, te cuento como lo hago yo:
Defino un metodo para añadir cada item:
Method AddTreeItem( cTexto, bOnShow, bOnHide, lBold, nImage ) Class TPanelMainTreeMenu
Local hItem AS HANDLE
SetDefaultBlock( bOnShow, {|| Nil })
SetDefaultBlock( bOnHide, {|| Nil })
SetDefaultLogic( lBold, False )
SetDefaultNumeric( nImage, 1 )
hItem := ::oTreeView:TreeItem( , cTexto, nImage )
If lBold
::oTreeView:SetBoldItem( hItem, True )
EndIf
aAdd( ::aTreeMenu, { hItem, bOnShow, bOnHide })
Return hItem
Como puedes ver aqui, utilizo un array aTreeMenu, donde guardo el handle del item, el codeblock al posicionarse y el contrario.
Y en el metodo OnChange tratamos lo que queremos que suceda....
Bueno, espero haberte aclarado algo.....