PUBLIC obaseform1
obaseform1=NEWOBJECT("baseform1")
obaseform1.Show
RETURN


	**************************************************
*-- Form:         baseform1 (d:\all_zapl\test.scx)
*-- ParentClass:  baseform (d:\komisionni\lib\mc_win95.vcx)
*-- BaseClass:    form
*-- Time Stamp:   10/03/05 01:50:03 PM
*
DEFINE CLASS baseform1 AS Form


	Top = 0
	Left = 0
	Height = 657
	Width = 606
	DoCreate = .T.
	Name = "Baseform1"


	ADD OBJECT grid1 AS grid WITH ;
		Height = 200, ;
		Left = 20, ;
		Top = 226, ;
		Width = 483, ;
		Name = "Grid1"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 56, ;
		Left = 113, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "Push me", ;
		Name = "Command1"


	PROCEDURE Load
		CREATE CURSOR cTest (test1 C(10), Test2 N(5))
		FOR asd= 1 TO 10
		    INSERT INTO cTest VALUES ("aaaa "+TRANSFORM(asd),asd)
		NEXT
		GO TOP
	ENDPROC


	PROCEDURE command1.Click
		RAND(-1)
		m1 = INT((RAND()*1000)+1) % 10
	thisform.Grid1.SetAll("DynamicBackColor",[IIF(RECNO()==]+TRANSFORM(m1)+[,RGB(255,255,255),RGB(0,0,0))],"Column")
		thisform.Grid1.Refresh()
	ENDPROC


ENDDEFINE
*
*-- EndDefine: baseform1
**************************************************