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