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