Publi yform
yform=Newobject("asup")
yform.Show
Read Events
Retu

Define Class asup As Form
    Top = 13
    Left = 32
    Height = 286
    Width = 603
    Caption = "Form1"
    Name = "Form1"

    Add Object grid1 As Grid With ;
       recordsource="ycurs", ;
        Anchor = 15, ;
        Height = 265, ;
        Left = 12, ;
        Top = 12, ;
        Width = 577, ;
        Name = "Grid1"

    Procedure Load
        Set Date Long
        Create Cursor ycurs (xdate D,num i)
        For i=1 To 10
            Insert Into ycurs Values (Date()-i,i*2546)
        Endfor
        Locate
    Endproc

    Procedure Init
        With This.grid1
            .RecordSource="ycurs"
            .column1.Width=150
            .column1.Alignment=2
            .column2.Width=100
            .column2.Alignment=2
            .Refresh
        Endwith
    Endproc

    Procedure Activate
        Local M.MYVAR
        TEXT TO M.MYVAR NOSHOW
 For a TextBox control in a column, the column's Alignment setting determines alignment
 of text in the text box.See foxHelp/Alignment Property chapter!
 0   Left. Aligns text flush left.
 1   Right. Aligns text flush right.
 2   Center. Aligns text in the horizontally and vertically centered on the control.
 3   Automatic. (Default)

        ENDTEXT
        Messagebox(m.MYVAR,0+32+4096,'Text alignment in grid')
    Endproc

    Procedure Destroy
        Clea Events
    Endproc

Enddefine
*
*-- EndDefine:asup