METHOD ScrollDlgUp() CLASS TGet
#Define nDHEIGHT_ WndHeight( GetDesktopWindow() )
#Define nBOTTOM_ ClientToScreen(::oWnd:hWnd, {WndTop(::hWnd)+ ::nHeight(), WndLeft(::hWnd)})[1]
*
DO WHILE nBOTTOM_ > (nDHEIGHT_/ 2)
::oWnd:oVScroll:GoDown()
SysRefresh()
ENDDO
RETURN NIL
*
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 40 guests