FiveTech Support Forums

Ola Pessoal
Mesmo com a dica do timer nao funcionou

Nao funciona e executa varias vezes o array e mesmo com o Timer nao esta marcando o SetCheck
FUNCTION TreeChk()
LOCAL oDlg, oTree, oBtn
PRIVATE oMenu ,oSubMenu,oPlano := {}

  oPlano := SqlArray("SELECT codigo,descricao FROM planoCont " )
  oMenu := Len( oPlano ), oSubMenu := Array( 3 )

   DEFINE DIALOG oDlg

   @ 0, 0 TREEVIEW oTree OF oDlg SIZE 100, 150 CHECKBOXES

   @ 3, 20 BUTTON oBtn PROMPT "Test"

   ACTIVATE DIALOG oDlg CENTERED ON INIT TreeInit( oTree, oDlg )
  MsgInfo( oTree:aItems[ 1 ]:GetCheck() )

return nil

FUNCTION TreeInit( oTree, oDlg )

   local oTmr

   DEFINE TIMER oTmr OF oDlg ACTION BuildTree( oTree, oDlg ), oTmr:End()

   ACTIVATE TIMER oTmr

RETURN nil

FUNCTION BuildTree( oTree, oDlg )
LOCAL nI
FOR nI = 1 To Len( oPlano )
oMenu[ nI ] = oTree:Add( Str(oPlano[nI,1] ,3) + "-" + oPlano[nI,2] )
oTree:SetCheck( oMenu[ nI ], .T. )

     * oSubMenu[ 1 ] = oMenu[ 1 ]:Add( "Imprimir..." )

      *oMenu[ 2 ]:= oTree:Add( "Proyectos" )
      *   oSubMenu[ 2 ]:= oMenu[ 2 ]:Add( "Definir Proyectos" )
      *   oTree:SetCheck( oSubMenu[ 2 ], .T. )
      *   oSubmenu[ 3 ]:= oMenu[ 2 ]:Add( "Actualización datos" )
   NEXT

   oTree:Expand()

return nil

Ola Antonio

Ná verdade um dos problemas estava no codigo

Observe aqui

PRIVATE oMenu ,oSubMenu,oPlano := {}

oMenu := Len( oPlano ), oSubMenu := Array( 3 ) estava errado

o Correto seria
PRIVATE oMenu := {} ,oSubMenu := {} ,oPlano := {}
oMenu := Array( Len( oPlano ) ), oSubMenu := Array( 3 )

Isso Resolveu parte do problema

Agora estou com outro problema

Gostaria q. as Opcoes dos menus tivesse cores diferentes das do SubMenus é possivel ?
oTree:SetColor( oMenu[ 1 ], CLR_BLACK )

oTree:SetColor( oSubMenu[ 2 ], CLR_RED )

Entendeu ?

Marcelo,

Você conseguiu colocar cores diferentes nos itens do Tree ?

Olá Vilian

Não e até hoje como vc pode ver ai obtive um retorno de minha pergunta que irá fazer um ano