102 lines
3.4 KiB
Plaintext
102 lines
3.4 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (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
|