m1 = CREATEOBJECT([testoptiongroup]) m1.Show(1) ************************************************** *-- Class: testoptiongroup (c:\cdbk90\amline\libs\aapp.vcx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 01/07/07 02:01:11 PM * DEFINE CLASS testoptiongroup AS form DoCreate = .T. Caption = "Form1" Name = "testoptiongroup" ADD OBJECT optiongroup1 AS optiongroup WITH ; ButtonCount = 2, ; Value = 1, ; Height = 156, ; Left = 24, ; Top = 24, ; Width = 324, ; Name = "Optiongroup1", ; Option1.Caption = " ", ; Option1.Value = 1, ; Option1.Height = 108, ; Option1.Left = 12, ; Option1.Style = 1, ; Option1.Top = 12, ; Option1.Width = 144, ; Option1.Name = "Option1", ; Option1.WordWrap = .t.,; &&& HERE Option2.Caption = "Option2", ; Option2.Height = 108, ; Option2.Left = 168, ; Option2.Style = 1, ; Option2.Top = 12, ; Option2.Width = 144, ; Option2.WordWrap = .t.,; &&& HERE Option2.Name = "Option2" PROCEDURE Init This.optiongroup1.option1.Caption ="Option1" + CHR(13) + ; "fdfdfdf hhhfhfh hfhfh gxdvu xuxex" This.optiongroup1.option1.ToolTipText = This.optiongroup1.option1.caption This.optiongroup1.option2.Caption ="Option2" + CHR(13) + ; "fdfdfdf hhhfhfh hfhfh gxdvu xuxex" This.optiongroup1.option2.ToolTipText = This.optiongroup1.option2.caption ENDPROC ENDDEFINE