200 lines
10 KiB
Plaintext
200 lines
10 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="C:\DESA\foxbin2prg\TESTS\DATOS_READONLY\fb2p_test.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*< OLE: Nombre="cl_olecontrol" Parent="" ObjName="cl_olecontrol" OLEObject="C:\Windows\system32\richtx32.ocx" Checksum="3873290752" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADDfG05c8M4BAwAAAAACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzAAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAEoAAAAAAAAABAAAAAIAAAD+////BQAAAAYAAAD+////BwAAAP7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAACKDQAA7QYAACFDNBIBAAYAoAAAAAAA//8AAP//AQAAAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACADAAAAFJpZ2h0TWFyZ2luABEAAABODQAAAAcAAAAAAAAAAAAAAAUAAABUZXh0ABQAAABIAAAAAAsAAABPAAAAAAUAAIAAAAAAAAABAAAAAQABAAIACAAAAHtccnRmMVxhbnNpXGRlZmYwe1xmb250dGJse1xmMFxmbmlsXGxlY29udHJvbDEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" />
|
|
*
|
|
DEFINE CLASS cl_commandgroup AS commandgroup && Descripción de cl_CommandGroup
|
|
*< CLASSDATA: Baseclass="commandgroup" Timestamp="2013/12/03 19:51:29" Scale="Pixels" Uniqueid="_3XW0ATDKL" />
|
|
*<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="2014/01/07 19:58:17" Scale="Pixels" Uniqueid="_3XW0AGC4F" ProjectClassIcon="bmps\container.ico" ClassIcon="bmps\container.ico" />
|
|
Caption = "Form"
|
|
DoCreate = .T.
|
|
Height = 345
|
|
Left = 0
|
|
Name = "cl_form"
|
|
Top = 0
|
|
Width = 570
|
|
|
|
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" UniqueID="_3XW0AX81B" Timestamp="2013/12/03 19:50:23" ZOrder="1000" />
|
|
|
|
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" UniqueID="_3XW0AGC4F" Timestamp="2014/01/07 19:58:17" ZOrder="1100" />
|
|
|
|
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" UniqueID="_3XW0BP1GV" Timestamp="2014/01/07 19:58:17" ZOrder="1200" />
|
|
|
|
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" UniqueID="_3XW0AONF4" Timestamp="2013/12/07 02:23:11" ZOrder="900" />
|
|
|
|
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="2014/01/07 20:06:20" Scale="Pixels" Uniqueid="_3XW0BNCFT" />
|
|
*<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_olecontrol AS olecontrol
|
|
*< CLASSDATA: Baseclass="olecontrol" Timestamp="2013/12/03 20:17:14" Scale="Pixels" Uniqueid="_3XW0BVZ14" OLEObject="C:\Windows\system32\richtx32.ocx" CheckSum="3873290752" />
|
|
Height = 67
|
|
Name = "cl_olecontrol"
|
|
Width = 131
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS cl_optiongroup AS optiongroup && descripcion
|
|
*< CLASSDATA: Baseclass="optiongroup" Timestamp="2013/12/03 19:43:10" Scale="Pixels" Uniqueid="_3XW0ALVUS" />
|
|
*<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="2014/01/07 20:48:17" Scale="Pixels" Uniqueid="_3YX18LJ09" />
|
|
Height = 22
|
|
Name = "proj_hook"
|
|
Width = 23
|
|
|
|
ENDDEFINE
|