oDlg:bPainted:={|| PonCheck(oTree)}
Function PonCheck (oTree)
oTree:aItems[1]:SetCheck(.T.)
Return (nil)
oSubMenu[ 1 ]:SetCheck( .T. )
cnavarro wrote:Angel, has probado asi?
- Code: Select all Expand view
ACTIVATE DIALOG oDlg CENTERED ON INIT BuildTree( oTree ) ;
VALID ( MsgInfo( oTree:aItems[ 1 ]:GetCheck() ), .T. )