To finish solving the problem of xBrowse and SQLRDD, since Nages doesn't answer the messages, I need to be able to move the vertical scroll bar.
However, oBrw:VGoBottom() and SendMsg( VK_DOWN ) do not work. They don't do anything.
Here is an example.
Code: Select all
#Include "FiveWin.Ch"
#include "xbrowse.ch"
#include "hbcompat.ch"
FUNCTION Main()
use c:\fwh\samples\customer
TESTBROWSE()
dbcloseall()
quit
return nil
function TESTBROWSE()
local oDlg
local oBrw
define dialog oDlg title "Test xBrowse " + cvaltochar(datetime()) from 0,0 to 24,79
@ 0,0 xbrowse oBrw datasource alias() of oDlg fastedit autocols autosort ;
SIZE -1, -1 PIXEL
oBrw:nRowHeight := 25
oBrw:lAutoappend := .t.
oBrw:CreateFromCode()
activate dialog oDlg centered ;
on init ( oBrw:VGoBottom(), oBrw:oVScroll:SendMsg( VK_DOWN ) )
return nil
Thank you very much. Greetings