bbaad331a5
NOTE: This Bug Fix implies that when tx2 files are regenerated, differences will occur almost certainly for the first time, so do not regenerate all tx2 files unnecesarily to keep differences at minimum.
245 lines
11 KiB
Plaintext
245 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_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
|