$INCLUDE "RAPIDQ.INC" 

declare SUB SelectCell  (Col%, Row%, CanSelect%) 
declare sub DrawSelectCell (Col%, Row%, State%, Rect AS QRect)

CREATE Form AS QFORM
        top=10
        left=10
        Width =600    
        Height = 450

    CREATE Grid AS QSTRINGGRID
        top=60
        left=10
        Width =400    
        Height = 300
        FixedRows = 1
        FixedCols = 1
        ColCount = 5
        RowCount = 5
        DefaultRowHeight = 20
        Cell(0,0) = " Age"
        Cell(1,0) = " Comments"
        AddOptions (goRangeSelect )
        onSelectCell=SelectCell
        onDrawCell=DrawSelectCell
    END CREATE
    CREATE Label1 AS QLABEL
Caption = "Label1":
Left = 4:Top = 4:
Transparent = 0
Width = 250
    END CREATE

    Caption = "Dropdown list example"
    Center
END CREATE
form.ShowModal

'**************************************************************'
SUB SelectCell  (Col%, Row%, CanSelect%) 

Label1.CAption="Row="+str$(row%)+" CanSelect="+str$(CanSelect%)
print 
end sub

'**************************************************************'
sub DrawSelectCell (Col%, Row%, State%, Rect AS QRect)
print "Col%=",Col% ," Row=" ,Row%," State=" ,State%
with grid
if State%=1  then                               '&hE1D2C9
 .FillRect(Rect.Left, Rect.Top, Rect.Left+.ColWidths(Col%), Rect.Top+.RowHeights(Row%), clLBlue)
end if
end with
'print "---------------------------  end sub"
end sub