CellNavigation Property
Specifies whether individual cells can be selected in Grid control

Syntax:

CellNavigation <lValue>

Sample:

#include "hmg.ch"

Function Main

Local aRows [10] [3]

      DEFINE WINDOW Form_1 ;

            AT 0,0 ;

            WIDTH 640 ;

            HEIGHT 400 ;

            TITLE 'Cell Navigation Grid Test' ;

            MAIN

            DEFINE MAIN MENU

                  DEFINE POPUP 'File'

                        MENUITEM 'Set Value To {5,2}' ACTION Form_1.Grid_1.Value := {5,2}

                        MENUITEM 'Set Value To {0,0}' ACTION Form_1.Grid_1.Value := {0,0}

                        MENUITEM 'Get Value'         ACTION GetSelectionValue()

                        MENUITEM 'Delete Item 5'     ACTION Form_1.Grid_1.DeleteItem(5)

                        MENUITEM 'AddItem'           ACTION Form_1.Grid_1.AddItem({'X','X','X'})

                        MENUITEM 'Delete All Items'  ACTION Form_1.Grid_1.DeleteAllItems

                  END POPUP

            END MENU

            aRows [1]   := {'Simpson','Homer','555-5555'}

            aRows [2]   := {'Mulder','Fox','324-6432'}

            aRows [3]   := {'Smart','Max','432-5892'}

            aRows [4]   := {'Grillo','Pepe','894-2332'}

            aRows [5]   := {'Kirk','James','346-9873'}

            aRows [6]   := {'Barriga','Carlos','394-9654'}

            aRows [7]   := {'Flanders','Ned','435-3211'}

            aRows [8]   := {'Smith','John','123-1234'}

            aRows [9]   := {'Pedemonti','Flavio','000-0000'}

            aRows [10]  := {'Gomez','Juan','583-4832'}

            DEFINE GRID Grid_1

                  ROW         10

                  COL         10

                  WIDTH       500

                  HEIGHT            322

                  HEADERS           {'Column 1','Column 2','Column 3'}

                  WIDTHS            {100,100,100}

                  ITEMS       aRows

                  ALLOWEDIT   .T.

                  CELLNAVIGATION    .T.

                  ONCHANGE    GridChange()

                  VALUE       { 3 , 2 }

            END GRID

      END WINDOW

      Form_1.Grid_1.setfocus

      CENTER WINDOW Form_1

      ACTIVATE WINDOW Form_1

Return

Function GridChange()

      Static OnChangeCounter := 0

      a := this.value

OnChangeCounter++

      form_1.title := '  Row: ' + alltrim(str(a [1])) + ' Col: ' + alltrim(str(a [2])) + Space(10) + 'OnChange Count: ' + alltrim(str(OnChangeCounter))

return

Function GetSelectionValue

Local a

      a := Form_1.Grid_1.Value

      MsgInfo( Str (  a [1] ) + ' ' + Str (  a [2] ) )

Return nil