Problemas SetCheck Tree

[marca]

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

[Antonio Linares]

Marcelo,

Prueba este ejemplo:

Code: Select all

#include "FiveWin.ch"

    memvar oMenu, oSubMenu

    function TreeChk()   
       
       local oDlg, oTree, oBtn
       private oMenu := Array( 3 ), 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 )

    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 )

       oMenu[ 1 ] = oTree:Add( "Principal" )
          oTree:SetCheck( oMenu[ 1 ], .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" )

       oTree:Expand()

    return nil
 

[marca]

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 ?

[vilian]

Marcelo,

Você conseguiu colocar cores diferentes nos itens do Tree ?

[marca]

Olá Vilian

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