************************************************** *-- 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.