*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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.20" SourceFile="fb2p_classperfile_text.vcx" CPID="1252" /> (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="" />
*
*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
*
HIDDEN ahidden,chidden
PROTECTED aprotected,cprotected
*
Caption = "Form"
chidden =
cprotected =
DoCreate = .T.
Height = 345
Left = 0
Name = "cl_form"
Picture = bmps\scccheckout.bmp
Top = 0
Width = 570
_memberdata =
*
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