>************************************************** >*-- Class: df_optiongroup (d:\foxpro\classes\df_base.vcx) >*-- ParentClass: optiongroup >*-- BaseClass: optiongroup >*-- Time Stamp: 08/16/07 08:33:04 AM >* >DEFINE CLASS df_optiongroup AS optiongroup > AutoSize = .T. > MemberClassLibrary = "df_base.vcx" > MemberClass = "df_optionbutton" > ButtonCount = 2 > Value = 0 > Height = 46 > Width = 71 > *-- Authlevel needed to access this control > authorization = 1 > Name = "df_optiongroup" > Df_optionbutton1.Left = 5 > Df_optionbutton1.Top = 5 > Df_optionbutton1.Name = "Df_optionbutton1" > Df_optionbutton2.Left = 5 > Df_optionbutton2.Top = 24 > Df_optionbutton2.Name = "Df_optionbutton2" > > PROCEDURE Init > thisform.resizeobject(this) > * for each loOpt in this.Buttons > * thisform.resizeobject(loOpt) > * next > ENDPROC >ENDDEFINE >* >*-- EndDefine: df_optiongroup >************************************************** >>And here's the single button.
>************************************************** >*-- Class: df_optionbutton (d:\foxpro\classes\df_base.vcx) >*-- ParentClass: optionbutton >*-- BaseClass: optionbutton >*-- Time Stamp: 08/16/07 08:33:00 AM >* >DEFINE CLASS df_optionbutton AS optionbutton > Caption = "Option1" > Height = 17 > Width = 61 > AutoSize = .T. > *-- Authorization level needed to activate this control. > authorization = 1 > Name = "df_optionbutton" > PROCEDURE Init > thisform.resizeobject(this) > if authlevel < this.authorization > this.enabled = .f. > endif > ENDPROC >ENDDEFINE >* >*-- EndDefine: df_optionbutton >************************************************** >>I've tried it with the commented lines active and several other combinations.