expandir tree em xbrowse

expandir tree em xbrowse

Postby Sistem » Thu Nov 29, 2018 7:52 pm

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
User avatar
Sistem
 
Posts: 226
Joined: Sun May 13, 2012 7:52 am

Re: expandir tree em xbrowse

Postby Sistem » Thu Nov 29, 2018 10:41 pm

resolvido
alterei por espaço VK_SPACE e funcionou
FWH2008 | xHarbour | BCC74 | SQLRDD
User avatar
Sistem
 
Posts: 226
Joined: Sun May 13, 2012 7:52 am


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Antonio Linares, russimicro and 60 guests