2012-10-11 16:56

'From: starbase112 Tue, 04 May 2004 01:08:30 -0000
'QStringGrid(goRangeSelect)
'The following will keep track of goRange Select...
     $APPTYPE   GUI
     $TYPECHECK ON
     $INCLUDE "RAPIDQ.INC"
'Remember that seletion disables editing !!

     DECLARE SUB SelectCell  (Col%, Row%, CanSelect%)
     DECLARE SUB DrawSelectCell (Col%, Row%, State%, Rect AS QRECT)
     DIM RowStart AS INTEGER
     DIM RowEnd   AS INTEGER

     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, gorowselect )
       onSelectCell=SelectCell
       onDrawCell=DrawSelectCell
      END CREATE
      CREATE stats AS QSTATUSBAR
       SimplePanel = True
      END CREATE
      CAPTION = "goRangeSelect Works!"
      Center
     END CREATE
     form.SHOWMODAL

'**************************************************************'
     SUB SelectCell(Col%, Row%, CanSelect%)
      RowStart = Row%
     END SUB

'**************************************************************'
     SUB DrawSelectCell (Col%, Row%, State%, Rect AS QRECT)
      RowEnd = Row%
      Stats.SimpleText = "RowStart = " + STR$(RowStart) + "  RowEnd: = " _
       + STR$(RowEnd)
     END SUB

2012-10-11 16:56