com nKey nao consigo expandir o Tree? alguém sabe pq?
oBrw:bKeyDown := {|nKey| BrwKeyAtUs(nkey, oBrw) }
..
Static Function BrwKeyAtUs(nKey, oBrw)
If !oBrw:oTreeItem:lOpened .and. oBrw:oTreeItem:nLevel == 1
If nKey == VK_RETURN
oBrw:oTreeItem:Open()
oBrw:Refresh()
Endif
ElseIf oBrw:oTreeItem:lOpened .and. oBrw:oTreeItem:nLevel == 1
If nKey == VK_RETURN
oBrw:oTreeItem:Close()
oBrw:Refresh()
Endif
ElseIf oBrw:oTreeItem:nLevel == 2
If nKey == VK_RETURN
fToggle(oBrw)
Endif
Endif
Return nil
FWH2008 | xHarbour | BCC74 | SQLRDD