FoxPro/Visual FoxPro - Grid pierde la señal de registro actual

PUBLIC oform1

oform1=NEWOBJECT("form1")

oform1.Show

RETURN

    **************************************************

*-- Form:         form1 (c:\drop\form1.scx)

*-- ParentClass:  form

*-- BaseClass:    form

*-- Time Stamp:   08/24/02 08:34:11 PM

*

DEFINE CLASS form1 AS form

    DoCreate = .T.

    Caption = "Form1"

    inrecno = 0

    Name = "Form1"

    ADD OBJECT grid2 AS grid WITH ;

        Height = 200, ;

        Left = 24, ;

        Top = 24, ;

        Width = 320, ;

        Name = "Grid2"

    PROCEDURE Load

        CREATE CURSOR myCursor (name c(20),address c(20),town c(20))

        INSERT INTO myCursor (name, address,town) VALUES ("paul","13","Montreal")

        INSERT INTO myCursor (name, address,town) VALUES ("john","14","Montreal")

        INSERT INTO myCursor (name, address,town) VALUES ("frank","15","Montreal")

        GO top

    ENDPROC

    PROCEDURE grid2.Init

        DODEFAULT()

        WITH THIS

           .SetAll("DynamicBackColor", ;

               "IIF(recno(This.RecordSource)=ThisForm.inRecno, ;

                    RGB(0,255,255),RGB(255,255,192))","COLUMN")

           ** Header will be set in different color

           .SetAll("BackColor", RGB(255,192,192),"Header")

        ENDWITH

    ENDPROC

    PROCEDURE grid2.AfterRowColChange

        LPARAMETERS nColIndex

        DODEFAULT()

        ThisForm.inRecNo = IIF(EOF() OR BOF(),0,RECNO())

        This.Columns(This.ActiveColumn).Text1.BackColor = RGB(0,255,255)

        This.Refresh()

    ENDPROC

ENDDEFINE