*test form for over 500 records (550) and dynamibackcolor property speed
*dynamicBackcolor applied to grid colums
*The speed is normal for VFP9 and dont slow visibilly. VFP8 might be the same behavior.
*can also  try to change dynamicolor property at runtime(add a button to form)....

publi oform
oform=newObject("asup")
oform.show
read events
retu
*
DEFINE CLASS asup AS form
	Top = 0
	Left = 0
	Height = 429
	Width = 880
    autocenter=.t.
    showWindow=2
	Name = "Form1"

	ADD OBJECT grid1 AS grid WITH ;
		Anchor = 15, ;
		Height = 433, ;
		Left = 1, ;
		Top = 0, ;
		Width = 877, ;
		Name = "Grid1"

	PROCEDURE Destroy
		use in select("ycurs")
		dele file ycurs.dbf
		clea events
	ENDPROC

	PROCEDURE grid1.Init
		_screen.windowstate=1
		close data all
		sele * from home(1)+"samples\data\customer" into  table ycurs1
		sele * from home(1)+"samples\data\customer" into  table ycurs2
		sele * from home(1)+"samples\data\customer" into  table ycurs3
		sele * from home(1)+"samples\data\customer" into  table ycurs4
		sele * from home(1)+"samples\data\customer" into  table ycurs5
		sele * from home(1)+"samples\data\customer" into  table ycurs6

		*create a new table
		sele ycurs1
		copy stru to ycurs.dbf

		use ycurs alias ycurs
		sele ycurs
		appe from "ycurs1.dbf"
		appe from "ycurs2.dbf"
		appe from "ycurs3.dbf"
		appe from "ycurs4.dbf"
		appe from "ycurs5.dbf"
		appe from "ycurs6.dbf"
		close data all

		*clean
			for i=1 to 6
			dele file  ("ycurs"+trans(i)+".dbf")
			endfor
		*populate the grid
		use ycurs alias ycurs
		sele ycurs
		with this
		.recordsource="ycurs"
		.recordsourcetype=1
		.deletemark=.f.
		.gridlines=0
		.autofit()
		.SetAll("DynamicBackColor", "IIF(MOD(RECNO( ), 2)=0, RGB(212,210,208) , RGB(0,255,0))","column")
		.Column3.DynamicBackColor = "rgb(255,164,164)"
		.column5.Dynamicbackcolor ="rgb(255,255,0)"
		.column3.fontbold=.t.
		.column3.forecolor=rgb(128,0,64)
		locate
		.parent.caption=trans(reccount())+ " records loaded"
		endwith
	ENDPROC

ENDDEFINE
*
*-- EndDefine: asup