PUBLIC oForm

oForm = CREATEOBJECT('GridShape')
oForm.show( 1 )

DEFINE CLASS gridshape AS form


	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT grid1 AS grid WITH ;
		Height =  193 , ;
		Left =  12 , ;
		Top =  48 , ;
		Width =  349 , ;
		Name = "Grid1"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top =  12 , ;
		Left =  24 , ;
		Height =  25 , ;
		Width =  61 , ;
		Caption = "Edit", ;
		Name = "Command1"


	ADD OBJECT command2 AS commandbutton WITH ;
		Top =  12 , ;
		Left =  120 , ;
		Height =  25 , ;
		Width =  61 , ;
		Caption = "Cancel", ;
		Name = "Command2"


	ADD OBJECT shape1 AS shape WITH ;
		Top =  48 , ;
		Left =  12 , ;
		Height =  84 , ;
		Width =  361 , ;
		BackStyle =  0 , ;
		BorderStyle =  0 , ;
		Name = "Shape1"


	ADD OBJECT shape2 AS shape WITH ;
		Top =  156 , ;
		Left =  2 , ;
		Height =  84 , ;
		Width =  370 , ;
		BackStyle =  0 , ;
		BorderStyle =  0 , ;
		Name = "Shape2"


	PROCEDURE Load
		CREATE CURSOR test (cChar c( 10 ))

		FOR i =  1  TO  10  
			INSERT INTO test (cChar) VALUES (TRANSFORM(i))
		ENDFOR 

		GO TOP IN test
	ENDPROC


	PROCEDURE command1.Click
		thisform.shape1.ZOrder( 0 )
		thisform.shape2.ZOrder( 0 )
	ENDPROC


	PROCEDURE command2.Click
		thisform.shape1.ZOrder( 1 )
		thisform.shape2.ZOrder( 1 )
	ENDPROC


	PROCEDURE shape1.Init
		this.ZOrder( 1 )
	ENDPROC


	PROCEDURE shape2.Init
		this.ZOrder( 1 )
	ENDPROC


ENDDEFINE