*-------------------------------------------------------------------------------------------------------------------------------------------------------- * (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" /> * *p: una_prop_cmgroup && Con comentario, pero sin valor * 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" /> * *m: *un_metodo_de_clase && Para testear si el código se va a la clase cl_form * 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" /> * *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 * 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