*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (ES) AUTOGENERADO - ¡¡ATENCIÓN!! - ¡¡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_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ó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>

	ButtonCount = 2
	Height = 66
	Name = "cl_commandgroup"
	una_prop_cmgroup = .F.		&& Con comentario, pero sin valor
	Value = 1
	Width = 94
	Command1.Caption = "Command1"
	Command1.Height = 27
	Command1.Left = 5
	Command1.Name = "Command1"
	Command1.Top = 5
	Command1.Width = 84
	Command2.Caption = "Command2"
	Command2.Height = 27
	Command2.Left = 5
	Command2.Name = "Command2"
	Command2.Top = 34
	Command2.Width = 84

ENDDEFINE

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 chidden,ahidden
	PROTECTED cprotected,aprotected
	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

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
	*</DefinedPropArrayMethod>

	Height = 16
	Name = "cl_imagen"
	Picture = bmps\sobrepostal.bmp
	Width = 17
	
	PROCEDURE un_metodo_de_clase		&& Para testear si el código se va a la clase cl_form
		* ESTE CODIGO ES DE "cl_imagen::un_metodo_de_clase"
	ENDPROC

ENDDEFINE

DEFINE CLASS cl_olebound AS oleboundcontrol 
 	*< CLASSDATA: Baseclass="oleboundcontrol" Timestamp="" Scale="Pixels" Uniqueid="" />

	Height = 100
	Name = "cl_olebound"
	Width = 100

ENDDEFINE

DEFINE CLASS cl_olecontrol AS olecontrol 
 	*< CLASSDATA: Baseclass="olecontrol" Timestamp="" Scale="Pixels" Uniqueid="" Nombre="cl_olecontrol" Parent="" ObjName="cl_olecontrol" OLEObject="C:\Windows\system32\richtx32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABCpJ18M8c8BAwAAAAACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAEoAAAAAAAAABAAAAAIAAAD+////BQAAAAYAAAD+////BwAAAP7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAACKDQAA7QYAACFDNBIBAAYArAAAAAAA//8AAP//AQAAAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACADAAAAFJpZ2h0TWFyZ2luABEAAABODQAAAAcAAAAAAAAAAAAAAAUAAABUZXh0ABQAAABIAAAAAAsAAABPAAAAAAUAAIAAAAAAAAABAAAAAQABAAIACAAAAHtccnRmMVxhbnNpXGFuc2ljcGcxMjUyXGRlZmYwe1xmb250dGxlY29udHJvbDEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" />

	Height = 67
	Name = "cl_olecontrol"
	Width = 131

ENDDEFINE

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
		*p: propiedad_de_clase_con_valor		&& Tiene un valor por defecto
		*p: propiedad_de_clase_sin_valor		&& Una propiedad sin valor para heredar
	*</DefinedPropArrayMethod>

	ButtonCount = 2
	Height = 46
	Name = "cl_optiongroup"
	propiedad_de_clase_con_valor = UN VALOR DE LA CLASE		&& Tiene un valor por defecto
	propiedad_de_clase_sin_valor = .F.		&& Una propiedad sin valor para heredar
	Value = 1
	Width = 71
	Option1.Caption = "Option1"
	Option1.Height = 17
	Option1.Left = 5
	Option1.Name = "Option1"
	Option1.Top = 5
	Option1.Value = 1
	Option1.Width = 61
	Option2.Caption = "Option2"
	Option2.Height = 17
	Option2.Left = 5
	Option2.Name = "Option2"
	Option2.Top = 24
	Option2.Width = 61
	
	PROCEDURE propiedad_de_clase_con_valor_access
		*To do: Modify this routine for the Access method
		RETURN THIS.propiedad_de_clase_con_valor
		
	ENDPROC

	PROCEDURE propiedad_de_clase_con_valor_assign
		LPARAMETERS vNewVal
		*To do: Modify this routine for the Assign method
		THIS.propiedad_de_clase_con_valor = m.vNewVal
		
	ENDPROC

ENDDEFINE

DEFINE CLASS proj_hook AS projecthook 
 	*< CLASSDATA: Baseclass="projecthook" Timestamp="" Scale="Pixels" Uniqueid="" />

	Height = 22
	Name = "proj_hook"
	Width = 23

ENDDEFINE
