*-------------------------------------------------------------------------------------------------------------------------------------------------------- * (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.20" SourceFile="fb2p_classperfile_text.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * 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="" /> * *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 * HIDDEN ahidden,chidden PROTECTED aprotected,cprotected * Caption = "Form" chidden = cprotected = DoCreate = .T. Height = 345 Left = 0 Name = "cl_form" Picture = bmps\scccheckout.bmp Top = 0 Width = 570 _memberdata = * 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