*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frmexample.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment 
 	*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Cursor1" UniqueID="" Timestamp="" />

	*<PropValue>
		DataSource = .NULL.
		Height = 200
		Left = 1
		Name = "Dataenvironment"
		Top = 220
		Width = 520
	*</PropValue>

	ADD OBJECT 'Cursor1' AS cursor WITH ;
		Alias = "lproperty", ;
		CursorSource = lproperty.dbf, ;
		Height = 90, ;
		Left = 10, ;
		Name = "Cursor1", ;
		Top = 20, ;
		Width = 90
		*< END OBJECT: BaseClass="cursor" />

ENDDEFINE

DEFINE CLASS form1 AS form 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Listproperty1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Listproperty1.ctnBox.grdList.clmProperty.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Listproperty1.ctnBox.grdList.clmValue.Text1" UniqueID="" Timestamp="" />

	*<PropValue>
		AllowOutput = .F.
		AutoCenter = .T.
		BorderStyle = 3
		Caption = "Propiedades"
		DoCreate = .T.
		Height = 444
		Name = "form1"
		Width = 297
	*</PropValue>

	ADD OBJECT 'Listproperty1' AS listproperty WITH ;
		Anchor = 15, ;
		Height = 442, ;
		Left = 0, ;
		Name = "Listproperty1", ;
		Top = 0, ;
		Width = 295, ;
		ctnBox.btnButton.Name = "btnButton", ;
		ctnBox.cboCombo.Name = "cboCombo", ;
		ctnBox.ctnSplitter.Name = "ctnSplitter", ;
		ctnBox.grdList.clmProperty.ControlSource = "lproperty.property", ;
		ctnBox.grdList.clmProperty.Header1.Name = "Header1", ;
		ctnBox.grdList.clmProperty.Name = "clmProperty", ;
		ctnBox.grdList.clmValue.ControlSource = "lproperty.display", ;
		ctnBox.grdList.clmValue.Header1.Name = "Header1", ;
		ctnBox.grdList.clmValue.Name = "clmValue", ;
		ctnBox.grdList.Name = "grdList", ;
		ctnBox.grdList.RecordSource = "lproperty", ;
		ctnBox.Name = "ctnBox", ;
		ctnBox.txtTextbox.Name = "txtTextbox", ;
		cusFuncs.Name = "cusFuncs"
		*< END OBJECT: ClassLib="_lproperty.vcx" BaseClass="container" />

	ADD OBJECT 'Listproperty1.ctnBox.grdList.clmProperty.Text1' AS textbox WITH ;
		BackColor = 192,192,192, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Listproperty1.ctnBox.grdList.clmValue.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Load
		Set Talk Off
		Set Deleted On
		Set Century On
		Set Notify Off
		Set Confirm Off
		Set Debug Off 
	ENDPROC

ENDDEFINE