PUBLIC oForm 

oForm = CREATEOBJECT('gridlist')
oForm.Show(1)
*
DEFINE CLASS gridlist AS form


    DoCreate = .T.
    Caption = "Form1"
    Name = "Form1"


    ADD OBJECT edit1 AS editbox WITH ;
        Height = 228, ;
        Left = 168, ;
        Top = 12, ;
        Width = 192, ;
        Name = "Edit1"


    ADD OBJECT grid1 AS grid WITH ;
        Height = 229, ;
        Left = 0, ;
        Top = 12, ;
        Width = 157, ;
        Name = "Grid1"


    PROCEDURE Init
        WITH this.grid1
            .columnCount = 1
            .recordSource = 'test'
            .column1.controlsource = 'Test.id'
        ENDWITH 

        this.edit1.ControlSource = 'Test.texts'
    ENDPROC


    PROCEDURE Load
        IF !USED('test')
            CREATE CURSOR test (id i , texts m)
            INSERT INTO test (id, texts) VALUES (1, REPLICATE('First Record', 10))
            INSERT INTO test (id, texts) VALUES (2, REPLICATE('Second Record ', 10))
        ENDIF 
        GO TOP IN test
    ENDPROC


    PROCEDURE grid1.AfterRowColChange
        LPARAMETERS nColIndex

        thisform.edit1.Refresh()
    ENDPROC


ENDDEFINE
*
*-- EndDefine: gridlist
**************************************************