xBrowse com Tree (Resolvido)

[joaosolution]

Srs.

Bom dia

Estou fazendo um xbrowse com tree para menu.

Já está funcionando, ficou desta maneira:

http://imgur.com/uqQwB5c

Quando clico duas vezes na coluna da Função (em vermelho) funciona o duplo click sem problemas, quando clico na opção Menu(verde) o duplo click não funciona.

O duplo click na coluna Menu só funciona para abrir o tree, mas não para selecionar a linha.

Alguém sabe como resolver.

Att

João Bosco

[kapiaba]

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=26937&p=149513&hilit=xBrowse+con+Tree#p149513

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=15430&p=80091&hilit=xbrowse+con+tree#p80091

http://forums.fivetechsupport.com/viewtopic.php?f=22&t=12197&p=60955&hilit=xbrowse+con+tree#p60955

[joaosolution]

João

Obrigado pelas dicas!!

Mas em nenhuma vi algo sobre quando executo o duplo click no tem do xBrowse.

Att

João Bosco

[kapiaba]

veja \samples\xbrwtree.prg se ajuda.

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=28553&p=159893&hilit=bLDClickData#p159893

[joaosolution]

Boa tarde

Venho agradecer ao João Santos pela ajuda.

Segue código com solução de como ler a função :bLDClickData do xBrowse com tree para saber, se clicando na primeira coluna, vai estar no primeiro ou segundo nível do tree, e desta maneira poder abrir o tree, ou executar alguma função.

   @ 60,02 XBROWSE oBrwFuncao OF oWndMenu LINES CELL

      oBrwFuncao:SetTree( oTree,           ; // Tree object
         { "","","" }  ) // [Optional] Bitmap Resources Open, Close and NoChildren

      ADD TO oBrwFuncao DATA oBrwFuncao:oTreeItem:Cargo[ 1 ] HEADER "Função"

   oBrwFuncao:aCols[ 1 ]:cHeader  := "Menu"
   oBrwFuncao:aCols[ 1 ]:nWidth   := 160
   
   oBrwFuncao:aCols[ 1 ]:bLDClickData := { |r,c,f,o| Toggle(aFuncoes) }

   oBrwFuncao:lHScroll := .F.
   oBrwFuncao:nMarqueeStyle := 5
   oBrwFuncao:createFromCode()

   oWndMenu:oClient := oBrwFuncao


   ACTIVATE WINDOW oWndMenu  
   
   
Endif

RETURN NIL


//---------------------------------------------------------------------------------------------
STATIC FUNCTION Toggle(aFuncoes)

local oItem := oBrwFuncao:oTreeItem


If !oItem:lOpened .and. oItem:nLevel == 1
   
   //Somente abre o Tree
oItem:Open()
   
Elseif oItem:nLevel == 2

   //Executa função
Eval(aFuncoes)
   
Endif
   
Return nil

Att

João Bosco