PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN


    **************************************************
*-- Form:         form1 (c:\program files\microsoft visual foxpro 9\test.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   01/28/07 09:20:01 PM
*
DEFINE CLASS form1 AS form


    Top = 6
    Left = 89
    DoCreate = .T.
    Caption = "Form1"
    Name = "Form1"


    ADD OBJECT grid1 AS grid WITH ;
        Height = 214, ;
        Left = 12, ;
        Top = 13, ;
        Width = 326, ;
        Name = "Grid1"


    PROCEDURE Load
        CREATE CURSOR crsTest (Fld1 Int, Fld2 C(20))
        FOR asd = 1 TO 20
            INSERT INTO crsTest VALUES (asd, REPLICATE([A],asd))
        NEXT
        GO TOP
    ENDPROC


    PROCEDURE Init
        thisform.Grid1.Column2.DynamicAlignment = [IIF(Fld1%2==0,1,0)]
        thisform.Grid1.refresh()
    ENDPROC


ENDDEFINE
*
*-- EndDefine: form1
**************************************************