Changeset: 137 v1.19.3 Change on TXT timestamps to preserve empty values / Optimization on TXT generation of ZOrders
This commit is contained in:
fernando
199
TESTS/DATOS_READONLY/fb2p_test.vc2
Normal file
199
TESTS/DATOS_READONLY/fb2p_test.vc2
Normal file
@@ -0,0 +1,199 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>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<63>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
|
||||
Reference in New Issue
Block a user