*-------------------------------------------------------------------------------------------------------------------------------------------------------- * (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_optiongroup AS optiongroup && descripcion *< CLASSDATA: Baseclass="optiongroup" Timestamp="" Scale="Pixels" Uniqueid="" /> * *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 propiedad_de_clase_sin_valor = .F. 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