Enrico,
let's start from beginning
Compile and run this little sample program.
drag another little window over the window of this program
You have to note that refresh or repaint ( you understand me ) is slow
Is much slower if you work online and with a larger table or with more table with relationship between them.
include "fivewin.ch"
function main()
local oWnd, oLbx
use customer
define window oWnd title "Test Browse"
@ 0 , 0 listbox oLbx fields alias "customer" of oWnd
oWnd:oClient:= oLbx
activate window oWnd
return nil
last but not least, please compile this program too.
include "fivewin.ch"
include "xbrowse.ch"
ANNOUNCE RDDSYS
FUNCTION MAIN()
LOCAL oWnd
LOCAL oBrw
LOCAL aRec := {}
LOCAL nIni
LOCAL nRig
LOCAL nFin
LOCAL nCur := 1
SET DELETED ON
SET EXCLUSIVE OFF
USE customer
SET INDEX TO customer
nRig := 20
nIni := 1
nFin := 1
aRec := myload( nIni )
DEFINE WINDOW oWnd
@ 0, 0 XBROWSE oBrw OF oWnd ARRAY aRec AUTOCOLS SIZE 500 , 500
oBrw:CreateFromCode()
oWnd:oClient:= oBrw
ACTIVATE WINDOW oWnd MAXIMIZED
RETURN NIL
FUNCTION MYLOAD( nIni )
LOCAL nR, nF
LOCAL aArray := {}
LOCAL aRecord := {}
FOR nR := nIni TO nIni + 30
aRecord := {}
FOR nF := 1 TO fcount()
AADD( aRecord , fieldget( nF ) )
NEXT i
AADD( aArray , aRecord )
SKIP
NEXT nR
RETURN aArray
INIT PROCEDURE RddInit
REQUEST DBFFPT
REQUEST DBFCDX
rddSetDefault( "DBFCDX" )
It should load some records into an array and here too there is a slow repaint.
If a compare with Excel I see much difference
Now I search other applications with similar cells view and then I will know you if only excel is fast or if only ours programs are slow
have a nice day
marco
