Para acabar de solucionar el problema de xBrowse y SQLRDD, dado que Nages no contesta a los mensajes, necesito poder mover la barra de scroll vertical.
Sin embargo, oBrw:VGoBottom() ni SendMsg( VK_DOWN ) funcionan. No hacen nada.
Aquí va un ejemplo.
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
Muchas gracias. Un saludo