Obteniendo el "check" de un item de un treeview

[AngelSalom]

Hola amigos, en mi versión de FW (fwh 12.04) este ejemplo siempre devuelve .T. esté el check del item en cuestión marcado o no. ¿Está solucionado en versiones más recientes?

Gracias,

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, oTree

   DEFINE DIALOG oDlg

   @ 0, 0 TREEVIEW oTree OF oDlg SIZE 200, 200 CHECKBOXES

   ACTIVATE DIALOG oDlg CENTERED ON INIT BuildTree( oTree )

   MsgInfo( oTree:aItems[ 1 ]:GetCheck() )

return nil

function BuildTree( oTree )

   local oMenu := Array( 2 ), oSubMenu := Array( 3 )

   oMenu[ 1 ]:= oTree:Add( "Principal" )
      oSubMenu[ 1 ]:= oMenu[ 1 ]:Add( "Imprimir..." )
      oSubMenu[ 1 ]:SetCheck( .T. )

   oMenu[ 2 ]:= oTree:Add( "Proyectos" )
      oSubMenu[ 2 ]:= oMenu[ 2 ]:Add( "Definir Proyectos" )
      oSubmenu[ 3 ]:= oMenu[ 2 ]:Add( "Actualización datos" )

   oTree:Expand()

return nil

[cnavarro]

Angel, has probado asi?

Code: Select all  Expand view

   ACTIVATE DIALOG oDlg CENTERED ON INIT BuildTree( oTree ) ;
      VALID ( MsgInfo( oTree:aItems[ 1 ]:GetCheck() ), .T. )

 

[AngelSalom]

Diste en el clavo!
Gracias

Angel, has probado asi?

Code: Select all  Expand view

   ACTIVATE DIALOG oDlg CENTERED ON INIT BuildTree( oTree ) ;
      VALID ( MsgInfo( oTree:aItems[ 1 ]:GetCheck() ), .T. )

 

[AngelSalom]

... y ahora, este trozo de código tampoco hace caso, vamos que no pone el Check activado.

Code: Select all  Expand view

oSubMenu[ 1 ]:SetCheck( .T. )

[AngelSalom]

Me contesto, hay que poner

Code: Select all  Expand view

oDlg:bPainted:={|| PonCheck(oTree)}
Function PonCheck (oTree)
  oTree:aItems[1]:SetCheck(.T.)
Return (nil)  
 

[cnavarro]

... y ahora, este trozo de código tampoco hace caso, vamos que no pone el Check activado.

Code: Select all  Expand view

oSubMenu[ 1 ]:SetCheck( .T. )

Angel, en el metodo SetCheck, el primer parámetro es el objeto oItem, es decir

Code: Select all  Expand view

oTree:SetCheck( , .T. )
 

por lo que el cambio, si no le pasas el objeto, es el item seleccionado en ese momento
De otra forma, podrías, por ejemplo:

Code: Select all  Expand view

oTree:SetCheck( oTree:aItems[ 2 ] , .T. )