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