Nuevo test para la característica ClassPerFile

2017-02-18 12:18:45 +01:00
parent f220ee75b6
commit e307377d40
11 changed files with 402 additions and 0 deletions
--- a/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_form.vc2
+++ b/TESTS/DATOS_READONLY/fb2p_classperfile_text.cl_form.vc2
@@ -0,0 +1,121 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (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="fb2p_classperfile_text.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+DEFINE CLASS cl_form AS form OLEPUBLIC		&& mi OLE server DLL
+ 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" ProjectClassIcon="bmps\container.ico" ClassIcon="bmps\container.ico" />
+
+	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
+	*< OBJECTDATA: ObjPath="Cl_optiongroup1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Cl_commandgroup1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Cl_imagen1" UniqueID="" Timestamp="" />
+	*< OBJECTDATA: ObjPath="Cl_imagen2" UniqueID="" Timestamp="" />
+
+	*<DefinedPropArrayMethod>
+		*p: chidden		&& Prop.Hidden
+		*p: cprotected		&& Prop.Protegida
+		*a: ahidden[1,0]		&& Array Oculto
+		*a: aprotected[1,0]		&& Array Protegido
+		*p: _memberdata		&& XML Metadata for customizable properties
+	*</DefinedPropArrayMethod>
+
+	HIDDEN ahidden,chidden
+	PROTECTED aprotected,cprotected
+	Caption = "Form"
+	chidden = 		&& Prop.Hidden
+	cprotected = 		&& Prop.Protegida
+	DoCreate = .T.
+	Height = 345
+	Left = 0
+	Name = "cl_form"
+	Picture = bmps\scccheckout.bmp
+	Top = 0
+	Width = 570
+	_memberdata = <VFPData>
+		<memberdata name="ahidden" display="aHidden"/>
+		<memberdata name="aprotected" display="aProtected"/>
+		<memberdata name="chidden" display="cHidden"/>
+		<memberdata name="cprotected" display="cProtected"/>
+		</VFPData>		&& XML Metadata for customizable properties
+
+	ADD OBJECT 'Cl_commandgroup1' AS cl_commandgroup WITH ;
+		BackColor = 255,128,192, ;
+		Height = 66, ;
+		Left = 8, ;
+		Name = "Cl_commandgroup1", ;
+		Top = 88, ;
+		Width = 244, ;
+		Command1.Caption = "Abrir", ;
+		Command1.Height = 52, ;
+		Command1.Left = 8, ;
+		Command1.Name = "Command1", ;
+		Command1.Picture = bmps\carpetaabierta.bmp, ;
+		Command1.Top = 4, ;
+		Command1.Width = 104, ;
+		Command2.Caption = "Cerrar", ;
+		Command2.Height = 52, ;
+		Command2.Left = 124, ;
+		Command2.Name = "Command2", ;
+		Command2.Picture = bmps\carpetacerrada.bmp, ;
+		Command2.Top = 4, ;
+		Command2.Width = 104
+		*< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="commandgroup" />
+
+	ADD OBJECT 'Cl_imagen1' AS cl_imagen WITH ;
+		Height = 34, ;
+		Left = 452, ;
+		Name = "Cl_imagen1", ;
+		Picture = bmps\sobrepostal.bmp, ;
+		Stretch = 1, ;
+		Top = 276, ;
+		Width = 38
+		*< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="image" />
+
+	ADD OBJECT 'Cl_imagen2' AS cl_imagen WITH ;
+		Height = 34, ;
+		Left = 500, ;
+		Name = "Cl_imagen2", ;
+		Picture = bmps\treeview.bmp, ;
+		Stretch = 1, ;
+		Top = 276, ;
+		Width = 38
+		*< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="image" />
+
+	ADD OBJECT 'Cl_optiongroup1' AS cl_optiongroup WITH ;
+		BackColor = 0,128,255, ;
+		Height = 68, ;
+		Left = 8, ;
+		Name = "Cl_optiongroup1", ;
+		Top = 12, ;
+		Width = 244, ;
+		Option1.Height = 52, ;
+		Option1.Left = 8, ;
+		Option1.Name = "Option1", ;
+		Option1.Picture = bmps\scccheckout.bmp, ;
+		Option1.Style = 1, ;
+		Option1.Top = 8, ;
+		Option1.Width = 104, ;
+		Option2.Height = 52, ;
+		Option2.Left = 124, ;
+		Option2.Name = "Option2", ;
+		Option2.Picture = bmps\scccheckout.bmp, ;
+		Option2.Style = 1, ;
+		Option2.Top = 8, ;
+		Option2.Width = 104
+		*< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="optiongroup" />
+	
+	PROCEDURE Cl_optiongroup1.Init
+		*-- Prueba para comprobar que respeta espacios y TABS del c<>digo
+		TEXT TO xx
+			* TAB a la izquierda del asterisco
+				* 2 TAB a la izquierda del asterisco
+		 * 1 ESPACIO a la izquierda del asterisco
+		  * 2 ESPACIOS a la izquierda del asterisco
+		1 TAB a la derecha del asterisco *	
+		1 ESPACIO a la derecha del asterisco * 
+		ENDTEXT && Esto termina sin ENTER
+	ENDPROC
+
+ENDDEFINE