261 lines
11 KiB
Plaintext
261 lines
11 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (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_cust_rsv_kwd AS custom
|
|
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*p: nota
|
|
*p: note && Reserved keyword
|
|
*</DefinedPropArrayMethod>
|
|
|
|
Height = 53
|
|
Name = "cl_cust_rsv_kwd"
|
|
nota =
|
|
note = && Reserved keyword
|
|
Width = 135
|
|
|
|
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 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
|
|
|
|
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
|