Page 1 of 1

expandir tree em xbrowse

Posted: Thu Nov 29, 2018 7:52 pm
by Sistem
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

Re: expandir tree em xbrowse

Posted: Thu Nov 29, 2018 10:41 pm
by Sistem
resolvido
alterei por espaço VK_SPACE e funcionou