Changeset: 237 fdbozzo - 07/05/2014 20:47:21:

- Agregado soporte de evaluación de propiedades desde archivo externo (props_*.txt)
- Agregado soporte de evaluación de propiedades por clase
- La propiedad Picture de una clase form se pierde y no muestra la imagen. No ocurre con la propiedad Picture de los controles (Fidel Charny)
- Algunas opciones del optiongroup pierden el width cuando se subclasan de una clase con autosize=.T. (Miguel Duran)

TESTS/DATOS_READONLY/fb2p_dbc.prg

@@ -0,0 +1,224 @@
+* *********************************************************************
+* *
+* * 2013/12/09                   FB2P_DBC.DBC                   22:32:26
+* *
+* *********************************************************************
+* *
+* * Description:
+* * This program was automatically generated by GenDBCX Version 1.1,
+* * a modified version of Microsoft's utility GenDBC Version 2.26.67.
+* *
+* *********************************************************************
+
+
+LPARAMETERS tcMethod
+LOCAL oDBC
+oDBC = CreateObject('GenDBCX')
+IF TYPE('oDBC') != 'O'
+	RETURN
+ENDIF
+cExactSet = SET('EXACT')
+SET EXACT ON
+IF EMPTY(tcMethod)
+	=oDBC.GenerateAll()
+ELSE
+	=EVALUATE('oDBC.' + tcMethod)
+ENDIF
+IF cExactSet = 'OFF'
+	SET EXACT OFF
+ENDIF
+
+
+DEFINE CLASS GenDBCX AS Custom
+	PROTECTED aTables[1]
+	PROTECTED nTables
+
+	PROCEDURE CustomProcess
+		*-- Your code goes here
+	ENDPROC
+
+	PROCEDURE Init
+		IF FILE('FB2P_DBC.DBC')
+			OPEN DATABASE FB2P_DBC.DBC
+			this.nTables = ADBOBJECTS(this.aTables, 'Table')
+		ENDIF
+		LOCAL ARRAY xx[1]
+		IF ADIR(xx,'*.DBC') > 0 OR ADIR(xx,'*.DBF') > 0
+			IF MessageBox('Warning!  This program will overwrite your existing database and tables!  Continue?', 308, 'GenDBCX Warning...') != 6
+				RETURN .F.
+			ENDIF
+		ENDIF
+	ENDPROC
+
+	PROCEDURE CreateDBC
+		*-- Create the Database Container
+		CLOSE DATA ALL
+		CREATE DATABASE 'FB2P_DBC.DBC'
+
+		********* Procedure Re-Creation *********
+		IF !FILE([FB2P_DBC.krt])
+			? [Warning! No Procedure File Found!]
+		ELSE
+			CLOSE DATABASE
+			USE 'FB2P_DBC.DBC'
+			g_SetSafety = SET('SAFETY')
+			SET SAFETY OFF
+			LOCATE FOR Objectname = 'StoredProceduresSource'
+			IF FOUND()
+				APPEND MEMO Code FROM [FB2P_DBC.krt] OVERWRITE
+				REPLACE Code WITH SUBSTR(Code, 70, 13140)
+			ENDIF
+			LOCATE FOR Objectname = 'StoredProceduresObject'
+			IF FOUND()
+				APPEND MEMO Code FROM [FB2P_DBC.krt] OVERWRITE
+				REPLACE Code WITH SUBSTR(Code, 13210)
+			ENDIF
+			IF UPPER(g_SetSafety) = 'ON'
+				SET SAFETY ON
+			ENDIF
+			USE
+			OPEN DATABASE [FB2P_DBC.DBC]
+		ENDIF
+
+	ENDPROC
+
+
+	**************************************************
+	** Table setup for NOMBRELARGODELDBF
+	**************************************************
+	PROCEDURE tbNOMBRELARGODELDBF
+		LPARAMETERS tnPassNumber
+
+		DO CASE
+		CASE tnPassNumber = 1
+			=this.RemoveTable('NOMBRELARGODELDBF', 'C:\DESA\FOXBIN2PRG\TESTS\DATOS_READONLY\FB2P_DBF.DBF')
+
+			CREATE TABLE 'FB2P_DBF.DBF' NAME 'NOMBRELARGODELDBF' ( ;
+				NOMBRE               C(30) NOT NULL CHECK .NOT.EMPTY(nombre) ERROR "El nombre est<73> vac<61>o" DEFAULT ".", ;
+				EDAD                 N(3, 0) NOT NULL, ;
+				ID                   I NOT NULL, ;
+				BIGTEXT              M NOT NULL, ;
+				DEPTO                C(10) NOT NULL ;
+			)
+			***** Create each index for NOMBRELARGODELDBF *****
+			SET COLLATE TO 'MACHINE'
+			ALTER TABLE 'NOMBRELARGODELDBF' ADD PRIMARY KEY ID TAG ID
+			SET COLLATE TO 'GENERAL'
+			INDEX ON NOMBRE TAG I_NOMBRE
+			SET COLLATE TO 'MACHINE'
+			INDEX ON DEPTO TAG DEPTO
+
+		CASE tnPassNumber = 2
+			***** Change properties for NOMBRELARGODELDBF *****
+			DBSetProp('NOMBRELARGODELDBF.NOMBRE', 'Field', 'Caption', "'Nombre:'")
+			DBSetProp('NOMBRELARGODELDBF.NOMBRE', 'Field', 'Comment', "Comentario de 'Nombre'")
+			DBSetProp('NOMBRELARGODELDBF.NOMBRE', 'Field', 'InputMask', "!XXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
+			DBSetProp('NOMBRELARGODELDBF.NOMBRE', 'Field', 'Format', "A")
+			DBSetProp('NOMBRELARGODELDBF', 'Table', 'Comment', "Comentario de la tabla 'fb2p_dbf'")
+			CREATE TRIGGER ON 'NOMBRELARGODELDBF' FOR DELETE AS del_trg()
+			CREATE TRIGGER ON 'NOMBRELARGODELDBF' FOR INSERT AS __ri_insert_nombrelargodeldbf().AND.(ins_trg())
+			CREATE TRIGGER ON 'NOMBRELARGODELDBF' FOR UPDATE AS __ri_update_nombrelargodeldbf().AND.(upd_trg())
+			ALTER TABLE 'NOMBRELARGODELDBF' SET CHECK edad>10 ERROR "Mensaje de error de la regla edad > 10"
+		ENDCASE
+	ENDPROC
+
+
+	**************************************************
+	** Table setup for FB2P_DEPTO
+	**************************************************
+	PROCEDURE tbFB2P_DEPTO
+		LPARAMETERS tnPassNumber
+
+		DO CASE
+		CASE tnPassNumber = 1
+			=this.RemoveTable('FB2P_DEPTO', 'C:\DESA\FOXBIN2PRG\TESTS\DATOS_READONLY\FB2P_DEPTO.DBF')
+
+			CREATE TABLE 'FB2P_DEPTO.DBF' NAME 'FB2P_DEPTO' ( ;
+				DEPTO                C(10) NOT NULL, ;
+				DESCRIP              C(50) NOT NULL ;
+			)
+			***** Create each index for FB2P_DEPTO *****
+			SET COLLATE TO 'MACHINE'
+			ALTER TABLE 'FB2P_DEPTO' ADD PRIMARY KEY DEPTO TAG DEPTO
+
+		CASE tnPassNumber = 2
+			***** Change properties for FB2P_DEPTO *****
+			DBSetProp('FB2P_DEPTO', 'Table', 'Comment', "Comentario de 'fb2p_depto'")
+			CREATE TRIGGER ON 'FB2P_DEPTO' FOR DELETE AS __ri_delete_fb2p_depto()
+		ENDCASE
+	ENDPROC
+
+
+	***** Relations Setup *****
+	PROCEDURE SetRelations
+		ALTER TABLE 'NOMBRELARGODELDBF' ADD FOREIGN KEY TAG DEPTO REFERENCES FB2P_DEPTO TAG DEPTO
+	ENDPROC
+
+	***** Referential Integrity Setup *****
+	PROCEDURE SetRI
+		CLOSE DATABASE
+		USE 'FB2P_DBC.DBC'
+		LOCATE FOR ObjectType = 'Table' AND UPPER(ALLTRIM(ObjectName)) == 'NOMBRELARGODELDBF'
+		IF FOUND()
+			nObjectID = ObjectID
+			LOCATE FOR ObjectType = 'Relation' AND 'depto'$Property AND 'fb2p_depto'$Property AND 'depto'$Property AND ParentID = nObjectID
+			IF FOUND()
+				REPLACE RiInfo WITH 'ICR   '
+			ELSE
+				? "Could not set RI Information, line " + ltrim(str(lineno()))
+			ENDIF
+		ENDIF
+		USE
+	ENDPROC
+
+	FUNCTION RemoveTable(tcTable, tcFile)
+		LOCAL ARRAY laTables[1]
+		=ADBOBJECTS(laTables,'Table')
+		IF ASCAN(laTables,tcTable) = 0
+			*-- No such table in the current dbc, nothing to do!
+			RETURN .t.
+		ENDIF
+		IF !FILE(tcFile)
+			*-- If the file has been erased, REMOVE TABLE fails with a 'File does not
+			*-- exist' error, because it can't find the file to either remove its
+			*-- database reference or delete the file .
+			*-- We'll work around this problem by creating a phony file with the same
+			*-- name, and use REMOVE TABLE DELETE to both remove the table reference
+			*-- in the dbc, and erase the phony file.
+			LOCAL lhFile
+			lhFile = FCREATE(tcFile)
+			IF lhFile = -1
+				RETURN .f.
+			ENDIF
+			=FCLOSE(lhFile)
+		ENDIF
+		REMOVE TABLE (tcTable) DELETE
+		=ADBOBJECTS(laTables,'Table')
+		RETURN ASCAN(laTables,tcTable) = 0
+	ENDFUNC
+
+
+	PROCEDURE GenerateAll
+		=this.CreateDBC()
+		=this.CreateTables()
+
+		*-- Call custom method
+		=this.CustomProcess()
+
+		=this.RulesTriggersProperties()
+		=this.SetRelations()
+		=this.SetRI()
+	ENDPROC
+
+	PROCEDURE CreateTables
+		*-- Create Tables
+		=this.tbNOMBRELARGODELDBF(1)
+		=this.tbFB2P_DEPTO(1)
+	ENDPROC
+
+	PROCEDURE RulesTriggersProperties
+		*-- Finish Tables (add rules/triggers/properties)
+		=this.tbNOMBRELARGODELDBF(2)
+		=this.tbFB2P_DEPTO(2)
+	ENDPROC
+ENDDEFINE

TESTS/DATOS_READONLY/fb2p_frm_1.sc2

@@ -2,12 +2,42 @@
 * (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
 * (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
 *--------------------------------------------------------------------------------------------------------------------------------------------------------
-*< FOXBIN2PRG: Version="1.19" SourceFile="C:\DESA\foxbin2prg\TESTS\DATOS_READONLY\fb2p_frm_1.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_frm_1.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
 *
-*< OLE: Nombre="Cl_form1.Cl_olecontrol1" Parent="Cl_form1" ObjName="Cl_olecontrol1" OLEObject="C:\Windows\system32\richtx32.ocx" Checksum="617849590" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFBjW5n1Hc8BAwAAAIACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAOAAAAAAAAAABAAAAAIAAAD+////BQAAAAYAAAAIAAAABwAAAP7///8JAAAA/v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAACKDQAA7QYAACFDNBIBAAYArAAAAAAA//8AAP////8AAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACACwAAAEFwcGVhcmFuY2UACQAAAEkKAAAAAAAAAAwAAABCb3JkZXJTdHlsZQAJAAAASQoAAAABAAAADQAAAAAAAAUAAIAAAAAAAAABAAAAAAABAAIACAAAAHtccnRmMVxhbnNpXGFuc2ljcGcxMjUyXGRlZmYwe1xmb250dABCdWxsZXRJbmRlbnQAEQAAAE4NAAAABwAAAAAAAAAAAAAAEAAAAERpc2FibGVOb1Njcm9sbAAFAAAATAAAAABibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAABSaWdodE1hcmdpbgARAAAATg0AAAAHAAAAAAAAAAAAAAAFAAAAVGV4dAAUAAAASAAAAAALAAAAT2xlY29udHJvbDENAAAAQXV0b1ZlcmJNZW51AAUAAABMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" />
+
 *
-DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx" 
- 	*< CLASSDATA: Baseclass="form" Timestamp="2014/01/30 20:58:05" Scale="" Uniqueid="_3XW0B1R2O" />
+#INCLUDE "..\..\include\principal.h"
+
+DEFINE CLASS cl_form1 AS cl_form OF "fb2p_test.vcx" 
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
+
+	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
+	*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="txtPromotor" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="lblPromotor" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="txtIdenc" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="lblIdenc" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="txtCalific" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="lblCalific" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="txtFecha" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="lblFecha" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="txtResultado" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="lblResultado" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grdEncuestas" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grdEncuestas.Column1.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grdEncuestas.Column1.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grdEncuestas.Column2.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grdEncuestas.Column2.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grdEncuestas.Column3.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grdEncuestas.Column3.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grdEncuestas.Column4.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grdEncuestas.Column4.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grdEncuestas.Column5.Header1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="grdEncuestas.Column5.Text1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Commandgroup1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Cl_olecontrol1" UniqueID="" Timestamp="" />
+
 	AllowOutput = .T.
 	AlwaysOnBottom = .F.
 	AlwaysOnTop = .F.
@@ -66,12 +96,12 @@ DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
 	MouseIcon = ..\..\
 	MousePointer = 0
 	Movable = .T.
-	Name = "Cl_form1"
+	Name = "cl_form1"
 	OLEDragMode = 0
 	OLEDragPicture = ..\..\
 	OLEDropEffects = 3
 	OLEDropMode = 0
-	Picture = ..\..\
+	Picture = bmps\fondogris.bmp
 	RightToLeft = .F.
 	ScaleMode = 3
 	ScrollBars = 0
@@ -133,7 +163,7 @@ DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
 		Name = "Cl_olecontrol1", ;
 		Top = 256, ;
 		Width = 131
-		*< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="olecontrol" UniqueID="_3XW0BXGCR" Timestamp="2013/12/03 20:18:24" ZOrder="2900" OLEObject="C:\Windows\system32\richtx32.ocx" CheckSum="617849590" />
+		*< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="olecontrol"  Nombre="cl_form1.Cl_olecontrol1" Parent="cl_form1" ObjName="Cl_olecontrol1" OLEObject="C:\Windows\system32\richtx32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMC9jhY4as8BAwAAAIACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAOAAAAAAAAAABAAAAAIAAAD+////BQAAAAYAAAAIAAAABwAAAP7///8JAAAA/v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAACKDQAA7QYAACFDNBIBAAYArAAAAAAA//8AAP////8AAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACACwAAAEFwcGVhcmFuY2UACQAAAEkKAAAAAAAAAAwAAABCb3JkZXJTdHlsZQAJAAAASQoAAAABAAAADQAAAAAAAAUAAIAAAAAAAAABAAAAAAABAAIACAAAAHtccnRmMVxhbnNpXGFuc2ljcGcxMjUyXGRlZmYwe1xmb250dABCdWxsZXRJbmRlbnQAEQAAAE4NAAAABwAAAAAAAAAAAAAAEAAAAERpc2FibGVOb1Njcm9sbAAFAAAATAAAAABibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAABSaWdodE1hcmdpbgARAAAATg0AAAAHAAAAAAAAAAAAAAAFAAAAVGV4dAAUAAAASAAAAAALAAAAT2xlY29udHJvbDENAAAAQXV0b1ZlcmJNZW51AAUAAABMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" />
 
 	ADD OBJECT 'Commandgroup1' AS commandgroup WITH ;
 		BackColor = 255,128,255, ;
@@ -161,7 +191,7 @@ DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
 		Command2.RightToLeft = .F., ;
 		Command2.Top = 8, ;
 		Command2.Width = 96
-		*< END OBJECT: BaseClass="commandgroup" UniqueID="_3XW0BCM76" Timestamp="2013/12/03 20:18:24" ZOrder="2700" />
+		*< END OBJECT: BaseClass="commandgroup" />
 
 	ADD OBJECT 'grdEncuestas' AS grid WITH ;
 		ColumnCount = 5, ;
@@ -197,12 +227,12 @@ DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
 		Column5.Name = "Column5", ;
 		Column5.ReadOnly = .T., ;
 		Column5.Width = 58
-		*< END OBJECT: BaseClass="grid" UniqueID="_3XW0B58PA" Timestamp="2013/12/15 18:50:25" ZOrder="1600" />
+		*< END OBJECT: BaseClass="grid" />
 
 	ADD OBJECT 'grdEncuestas.Column1.Header1' AS header WITH ;
 		Caption = "promotor", ;
 		Name = "Header1"
-		*< END OBJECT: BaseClass="header" UniqueID="_3XW0B58PB" Timestamp="2013/12/03 19:56:18" ZOrder="1700" />
+		*< END OBJECT: BaseClass="header" />
 
 	ADD OBJECT 'grdEncuestas.Column1.Text1' AS textbox WITH ;
 		BackColor = 255,255,255, ;
@@ -212,12 +242,12 @@ DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
 		Name = "Text1", ;
 		ReadOnly = .T., ;
 		RightToLeft = .F.
-		*< END OBJECT: BaseClass="textbox" UniqueID="_3XW0B58PC" Timestamp="2013/12/15 18:50:25" ZOrder="1800" />
+		*< END OBJECT: BaseClass="textbox" />
 
 	ADD OBJECT 'grdEncuestas.Column2.Header1' AS header WITH ;
 		Caption = "idenc", ;
 		Name = "Header1"
-		*< END OBJECT: BaseClass="header" UniqueID="_3XW0B58PD" Timestamp="2013/12/03 19:56:18" ZOrder="1900" />
+		*< END OBJECT: BaseClass="header" />
 
 	ADD OBJECT 'grdEncuestas.Column2.Text1' AS textbox WITH ;
 		BackColor = 255,255,255, ;
@@ -227,12 +257,12 @@ DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
 		Name = "Text1", ;
 		ReadOnly = .T., ;
 		RightToLeft = .F.
-		*< END OBJECT: BaseClass="textbox" UniqueID="_3XW0B58PE" Timestamp="2013/12/15 18:50:25" ZOrder="2000" />
+		*< END OBJECT: BaseClass="textbox" />
 
 	ADD OBJECT 'grdEncuestas.Column3.Header1' AS header WITH ;
 		Caption = "calific", ;
 		Name = "Header1"
-		*< END OBJECT: BaseClass="header" UniqueID="_3XW0B58PF" Timestamp="2013/12/03 19:56:18" ZOrder="2100" />
+		*< END OBJECT: BaseClass="header" />
 
 	ADD OBJECT 'grdEncuestas.Column3.Text1' AS textbox WITH ;
 		BackColor = 255,255,255, ;
@@ -242,12 +272,12 @@ DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
 		Name = "Text1", ;
 		ReadOnly = .T., ;
 		RightToLeft = .F.
-		*< END OBJECT: BaseClass="textbox" UniqueID="_3XW0B58PG" Timestamp="2013/12/15 18:50:25" ZOrder="2200" />
+		*< END OBJECT: BaseClass="textbox" />
 
 	ADD OBJECT 'grdEncuestas.Column4.Header1' AS header WITH ;
 		Caption = "fecha", ;
 		Name = "Header1"
-		*< END OBJECT: BaseClass="header" UniqueID="_3XW0B58PH" Timestamp="2013/12/03 19:56:18" ZOrder="2300" />
+		*< END OBJECT: BaseClass="header" />
 
 	ADD OBJECT 'grdEncuestas.Column4.Text1' AS textbox WITH ;
 		BackColor = 255,255,255, ;
@@ -257,12 +287,12 @@ DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
 		Name = "Text1", ;
 		ReadOnly = .T., ;
 		RightToLeft = .F.
-		*< END OBJECT: BaseClass="textbox" UniqueID="_3XW0B58PI" Timestamp="2013/12/15 18:50:25" ZOrder="2400" />
+		*< END OBJECT: BaseClass="textbox" />
 
 	ADD OBJECT 'grdEncuestas.Column5.Header1' AS header WITH ;
 		Caption = "resultado", ;
 		Name = "Header1"
-		*< END OBJECT: BaseClass="header" UniqueID="_3XW0B58PJ" Timestamp="2013/12/03 19:56:18" ZOrder="2500" />
+		*< END OBJECT: BaseClass="header" />
 
 	ADD OBJECT 'grdEncuestas.Column5.Text1' AS textbox WITH ;
 		BackColor = 255,255,255, ;
@@ -272,7 +302,7 @@ DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
 		Name = "Text1", ;
 		ReadOnly = .T., ;
 		RightToLeft = .F.
-		*< END OBJECT: BaseClass="textbox" UniqueID="_3XW0B58PK" Timestamp="2013/12/15 18:50:25" ZOrder="2600" />
+		*< END OBJECT: BaseClass="textbox" />
 
 	ADD OBJECT 'lblCalific' AS label WITH ;
 		AutoSize = .T., ;
@@ -286,7 +316,7 @@ DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
 		Width = 34, ;
 		WordWrap = .T., ;
 		ZOrderSet = 10
-		*< END OBJECT: BaseClass="label" UniqueID="_3XW0B58P5" Timestamp="2013/12/15 18:50:25" ZOrder="1100" />
+		*< END OBJECT: BaseClass="label" />
 
 	ADD OBJECT 'lblFecha' AS label WITH ;
 		AutoSize = .T., ;
@@ -300,7 +330,7 @@ DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
 		Width = 34, ;
 		WordWrap = .T., ;
 		ZOrderSet = 12
-		*< END OBJECT: BaseClass="label" UniqueID="_3XW0B58P7" Timestamp="2013/12/15 18:50:25" ZOrder="1300" />
+		*< END OBJECT: BaseClass="label" />
 
 	ADD OBJECT 'lblIdenc' AS label WITH ;
 		AutoSize = .T., ;
@@ -314,7 +344,7 @@ DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
 		Width = 30, ;
 		WordWrap = .T., ;
 		ZOrderSet = 8
-		*< END OBJECT: BaseClass="label" UniqueID="_3XW0B58P3" Timestamp="2013/12/15 18:50:25" ZOrder="900" />
+		*< END OBJECT: BaseClass="label" />
 
 	ADD OBJECT 'lblPromotor' AS label WITH ;
 		AutoSize = .T., ;
@@ -328,7 +358,7 @@ DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
 		Width = 51, ;
 		WordWrap = .T., ;
 		ZOrderSet = 6
-		*< END OBJECT: BaseClass="label" UniqueID="_3XW0B58P1" Timestamp="2013/12/15 18:50:25" ZOrder="700" />
+		*< END OBJECT: BaseClass="label" />
 
 	ADD OBJECT 'lblResultado' AS label WITH ;
 		AutoSize = .T., ;
@@ -342,7 +372,7 @@ DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
 		Width = 57, ;
 		WordWrap = .T., ;
 		ZOrderSet = 14
-		*< END OBJECT: BaseClass="label" UniqueID="_3XW0B58P9" Timestamp="2013/12/15 18:50:25" ZOrder="1500" />
+		*< END OBJECT: BaseClass="label" />
 
 	ADD OBJECT 'Optiongroup1' AS optiongroup WITH ;
 		BackColor = 0,128,255, ;
@@ -374,7 +404,7 @@ DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
 		Option2.Top = 12, ;
 		Option2.Value = 1, ;
 		Option2.Width = 88
-		*< END OBJECT: BaseClass="optiongroup" UniqueID="_3XW0BCM77" Timestamp="2013/12/03 20:18:24" ZOrder="2800" />
+		*< END OBJECT: BaseClass="optiongroup" />
 
 	ADD OBJECT 'Shape1' AS shape WITH ;
 		BorderStyle = 2, ;
@@ -387,7 +417,7 @@ DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
 		Top = 284, ;
 		Width = 101, ;
 		ZOrderSet = 0
-		*< END OBJECT: BaseClass="shape" UniqueID="_3XW0BQM70" Timestamp="2013/12/03 20:18:24" ZOrder="500" />
+		*< END OBJECT: BaseClass="shape" />
 
 	ADD OBJECT 'txtCalific' AS textbox WITH ;
 		Comment = "", ;
@@ -404,7 +434,7 @@ DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
 		Top = 164, ;
 		Width = 38, ;
 		ZOrderSet = 9
-		*< END OBJECT: BaseClass="textbox" UniqueID="_3XW0B58P4" Timestamp="2013/12/15 18:50:25" ZOrder="1000" />
+		*< END OBJECT: BaseClass="textbox" />
 
 	ADD OBJECT 'txtFecha' AS textbox WITH ;
 		Comment = "", ;
@@ -420,7 +450,7 @@ DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
 		Top = 192, ;
 		Width = 73, ;
 		ZOrderSet = 11
-		*< END OBJECT: BaseClass="textbox" UniqueID="_3XW0B58P6" Timestamp="2013/12/15 18:50:25" ZOrder="1200" />
+		*< END OBJECT: BaseClass="textbox" />
 
 	ADD OBJECT 'txtIdenc' AS textbox WITH ;
 		Comment = "", ;
@@ -437,7 +467,7 @@ DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
 		Top = 192, ;
 		Width = 149, ;
 		ZOrderSet = 7
-		*< END OBJECT: BaseClass="textbox" UniqueID="_3XW0B58P2" Timestamp="2013/12/15 18:50:25" ZOrder="800" />
+		*< END OBJECT: BaseClass="textbox" />
 
 	ADD OBJECT 'txtPromotor' AS textbox WITH ;
 		Comment = "", ;
@@ -454,7 +484,7 @@ DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
 		Top = 164, ;
 		Width = 149, ;
 		ZOrderSet = 5
-		*< END OBJECT: BaseClass="textbox" UniqueID="_3XW0B58P0" Timestamp="2013/12/15 18:50:25" ZOrder="600" />
+		*< END OBJECT: BaseClass="textbox" />
 
 	ADD OBJECT 'txtResultado' AS textbox WITH ;
 		Comment = "", ;
@@ -471,7 +501,7 @@ DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
 		Top = 220, ;
 		Width = 81, ;
 		ZOrderSet = 13
-		*< END OBJECT: BaseClass="textbox" UniqueID="_3XW0B58P8" Timestamp="2013/12/15 18:50:25" ZOrder="1400" />
+		*< END OBJECT: BaseClass="textbox" />
 
 	PROCEDURE grdEncuestas.AfterRowColChange
 		LPARAMETERS nColIndex
@@ -482,8 +512,12 @@ DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
 
 ENDDEFINE
 
-DEFINE CLASS Dataenvironment AS dataenvironment 
- 	*< CLASSDATA: Baseclass="dataenvironment" Timestamp="2014/01/30 20:58:05" Scale="" Uniqueid="_3XW0B1R2N" ClassIcon="1" />
+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="" />
+
 	AutoCloseTables = .T.
 	AutoOpenTables = .T.
 	Comment = ""
@@ -500,31 +534,17 @@ DEFINE CLASS Dataenvironment AS dataenvironment
 
 	ADD OBJECT 'Cursor1' AS cursor WITH ;
 		Alias = "encuestas", ;
-		BufferModeOverride = 1, ;
-		Comment = "", ;
 		CursorSource = encuestas.dbf, ;
-		Exclusive = .F., ;
-		Filter = "", ;
-		Height = 98, ;
+		Height = 90, ;
 		Left = 10, ;
 		Name = "Cursor1", ;
-		NoDataOnLoad = .F., ;
-		Order = "", ;
-		OrderDirection = 0, ;
-		ReadOnly = .F., ;
-		Tag = "", ;
 		Top = 20, ;
-		Width = 102
-		*< END OBJECT: BaseClass="cursor" UniqueID="_3XW0B58OZ" Timestamp="2014/01/30 20:58:05" ZOrder="300" />
+		Width = 90
+		*< END OBJECT: BaseClass="cursor" />
 	
 	PROCEDURE BeforeOpenTables
 		*-- Comentario en m<>todo [Dataenvironment.BeforeOpenTables]
 		
 	ENDPROC
 
-	PROCEDURE Cursor1.Init
-		*-- Comentario en m<>todo [Dataenvironment.Cursor1.Init]
-		
-	ENDPROC
-
 ENDDEFINE

TESTS/DATOS_READONLY/fb2p_frm_2.sc2

@@ -2,11 +2,12 @@
 * (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
 * (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
 *--------------------------------------------------------------------------------------------------------------------------------------------------------
-*< FOXBIN2PRG: Version="1.19" SourceFile="C:\DESA\foxbin2prg\TESTS\DATOS_READONLY\FB2P_FRM_2.SCX" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_frm_2.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
 *
 *
-DEFINE CLASS Dataenvironment AS dataenvironment 
- 	*< CLASSDATA: Baseclass="dataenvironment" Timestamp="2013/12/03 19:54:07" Scale="" Uniqueid="_3XW0B26O0" ClassIcon="1" />
+DEFINE CLASS dataenvironment AS dataenvironment 
+ 	*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
+
 	DataSource = .NULL.
 	Height = 0
 	Left = 0
@@ -16,13 +17,20 @@ DEFINE CLASS Dataenvironment AS dataenvironment
 
 ENDDEFINE
 
-DEFINE CLASS Form1 AS form 
- 	*< CLASSDATA: Baseclass="form" Timestamp="2014/02/03 19:55:29" Scale="" Uniqueid="_3XW0B26O1" />
+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="Commandgroup1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" />
+
 	*<DefinedPropArrayMethod>
 		*p: a_otra
-		*a: ^a_prop[1,0]		&& array
+		*a: a_prop[1,0]		&& array
 		*p: _prop
 	*</DefinedPropArrayMethod>
+
 	AllowOutput = .T.
 	AlwaysOnBottom = .F.
 	AlwaysOnTop = .F.
@@ -65,7 +73,7 @@ DEFINE CLASS Form1 AS form
 	HScrollSmallChange = 10
 	Icon = ..\..\
 	KeyPreview = .F.
-	Left = 0
+	Left = 2
 	LockScreen = .F.
 	MacDesktop = 0
 	MaxButton = .T.
@@ -96,7 +104,7 @@ DEFINE CLASS Form1 AS form
 	Tag = ""
 	Themes = .T.
 	TitleBar = 1
-	Top = 0
+	Top = 1
 	Visible = .T.
 	VScrollSmallChange = 10
 	WhatsThisButton = .F.
@@ -177,7 +185,7 @@ DEFINE CLASS Form1 AS form
 		Command3.Name = "Command3", ;
 		Command3.Top = 63, ;
 		Command3.Width = 84
-		*< END OBJECT: BaseClass="commandgroup" UniqueID="_3Y813WLQU" Timestamp="2014/02/03 19:55:29" ZOrder="400" />
+		*< END OBJECT: BaseClass="commandgroup" />
 
 	ADD OBJECT 'Optiongroup1' AS optiongroup WITH ;
 		ButtonCount = 3, ;
@@ -207,7 +215,7 @@ DEFINE CLASS Form1 AS form
 		Option3.Name = "Option3", ;
 		Option3.Top = 43, ;
 		Option3.Width = 61
-		*< END OBJECT: BaseClass="optiongroup" UniqueID="_3ZO00KYM8" Timestamp="2014/02/03 19:55:29" ZOrder="600" />
+		*< END OBJECT: BaseClass="optiongroup" />
 
 	ADD OBJECT 'Pageframe1' AS pageframe WITH ;
 		ActivePage = 2, ;
@@ -224,6 +232,6 @@ DEFINE CLASS Form1 AS form
 		Page2.Name = "Page2", ;
 		Page3.Caption = "Page3", ;
 		Page3.Name = "Page3"
-		*< END OBJECT: BaseClass="pageframe" UniqueID="_3ZO00KYM7" Timestamp="2014/02/03 19:55:29" ZOrder="500" />
+		*< END OBJECT: BaseClass="pageframe" />
 
 ENDDEFINE

TESTS/DATOS_READONLY/fb2p_test.vc2

@@ -5,10 +5,13 @@
 *< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
 *
 
+*
+*< LIBCOMMENT: Comentario principal de "fb2p_test.vcx" />
 *
 DEFINE CLASS cl_commandgroup AS commandgroup 		&& Descripci<63>n de cl_CommandGroup
  	*< CLASSDATA: Baseclass="commandgroup" Timestamp="" Scale="Pixels" Uniqueid="" />
 
+	#INCLUDE "..\..\include\principal.h"
 	*<DefinedPropArrayMethod>
 		*p: una_prop_cmgroup		&& Con comentario, pero sin valor
 	*</DefinedPropArrayMethod>
@@ -46,13 +49,13 @@ DEFINE CLASS cl_form AS form OLEPUBLIC		&& mi OLE server DLL
 	*<DefinedPropArrayMethod>
 		*p: chidden		&& Prop.Hidden
 		*p: cprotected		&& Prop.Protegida
-		*a: ^ahidden[1,0]		&& Array Oculto
-		*a: ^aprotected[1,0]		&& Array Protegido
+		*a: ahidden[1,0]		&& Array Oculto
+		*a: aprotected[1,0]		&& Array Protegido
 		*p: _memberdata		&& XML Metadata for customizable properties
 	*</DefinedPropArrayMethod>
 
-	HIDDEN chidden
-	PROTECTED cprotected
+	HIDDEN chidden,ahidden
+	PROTECTED cprotected,aprotected
 	Caption = "Form"
 	chidden = 		&& Prop.Hidden
 	cprotected = 		&& Prop.Protegida
@@ -60,6 +63,7 @@ DEFINE CLASS cl_form AS form OLEPUBLIC		&& mi OLE server DLL
 	Height = 345
 	Left = 0
 	Name = "cl_form"
+	Picture = bmps\scccheckout.bmp
 	Top = 0
 	Width = 570
 	_memberdata = <VFPData>
@@ -153,7 +157,7 @@ DEFINE CLASS cl_imagen AS image OLEPUBLIC		&& otro ole
  	*< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" />
 
 	*<DefinedPropArrayMethod>
-		*m: *un_metodo_de_clase		&& Para testear si el c<>digo se va a la clase cl_form
+		*m: un_metodo_de_clase		&& Para testear si el c<>digo se va a la clase cl_form
 	*</DefinedPropArrayMethod>
 
 	Height = 16
@@ -180,8 +184,8 @@ DEFINE CLASS cl_optiongroup AS optiongroup 		&& descripcion
  	*< CLASSDATA: Baseclass="optiongroup" Timestamp="" Scale="Pixels" Uniqueid="" />
 
 	*<DefinedPropArrayMethod>
-		*m: *propiedad_de_clase_con_valor_access
-		*m: *propiedad_de_clase_con_valor_assign
+		*m: propiedad_de_clase_con_valor_access
+		*m: propiedad_de_clase_con_valor_assign
 		*p: propiedad_de_clase_con_valor		&& Tiene un valor por defecto
 		*p: propiedad_de_clase_sin_valor		&& Una propiedad sin valor para heredar
 	*</DefinedPropArrayMethod>