removed binary sources (FoxBin2Prg)
This commit is contained in:
Lutz
@@ -4,257 +4,16 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
|
||||
*< EXTERNAL_CLASS: Name="cl_commandgroup" Baseclass="commandgroup" />
|
||||
*< EXTERNAL_CLASS: Name="cl_cust_rsv_kwd" Baseclass="custom" />
|
||||
*< EXTERNAL_CLASS: Name="cl_form" Baseclass="form" />
|
||||
*< EXTERNAL_CLASS: Name="cl_imagen" Baseclass="image" />
|
||||
*< EXTERNAL_CLASS: Name="cl_olebound" Baseclass="oleboundcontrol" />
|
||||
*< EXTERNAL_CLASS: Name="cl_olecontrol" Baseclass="olecontrol" />
|
||||
*< EXTERNAL_CLASS: Name="cl_optiongroup" Baseclass="optiongroup" />
|
||||
*< EXTERNAL_CLASS: Name="proj_hook" Baseclass="projecthook" />
|
||||
|
||||
*
|
||||
*< LIBCOMMENT: Comentario principal de "fb2p_test.vcx" />
|
||||
*
|
||||
DEFINE CLASS cl_commandgroup AS commandgroup && Descripci<63>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
|
||||
*
|
||||
Reference in New Issue
Block a user