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