Saudações a todos.
Esta é minha primeira participação neste forum, e espero poder
contar com a ajuda dos colegas e também poder ajudar quando
meus conhecimentos assim o permitirem.
No momento gostaria de saber se é possível a partir de um Objeto Menu ( oMenu )
já criado, gerar um outro Objeto Tree ( oTree ).
Obrigado.
Flavio
FWH 14.04 - xHarbour - Bcc582 - Pelles
Araras, SP, Brasil.
function MenuTree( oMenu )
local oDlg
DEFINE DIALOG oDlg SIZE 200, 300
ACTIVATE DIALOG oDlg CENTERED ;
ON INIT AddItems( oMenu:aMenuItems, TTreeView():New( 1, 2, oDlg,,,,, 180, 250 ) )
return nil
function AddItems( aItems, oItem )
AEval( aItems, { | oMenuItem, oIt | oIt := oItem:Add( oMenuItem:cPrompt ),;
If( ValType( oMenuItem:bAction ) == "O",;
AddItems( oMenuItem:bAction:aItems, oIt ),) } )
return nilAntonio Linares,
É isso mesmo que estou precisando, só fiquei com uma
dúvida:
Como faço para a função retornar o Objeto oTree?
Obrigado.
function MenuTree( oMenu )
local oDlg, oTree
DEFINE DIALOG oDlg SIZE 200, 300
ACTIVATE DIALOG oDlg CENTERED ;
ON INIT AddItems( oMenu:aMenuItems, oTree := TTreeView():New( 1, 2, oDlg,,,,, 180, 250 ) )
return oTree
function AddItems( aItems, oItem )
AEval( aItems, { | oMenuItem, oIt | oIt := oItem:Add( oMenuItem:cPrompt ),;
If( ValType( oMenuItem:bAction ) == "O",;
AddItems( oMenuItem:bAction:aItems, oIt ),) } )
return nilFuncionou perfeitamente.
Muito obrigado