This property is allways set to .T.:
Code: Select all
#include 'hmg.ch'
FUNCTION Main()
dbCreate('Users', {{'Name', 'C', 30, 0}, {'Location', 'C', 30, 0}})
dbUseArea(NIL, NIL, 'Users')
dbAppend()
Users->Name := 'Claudio'
Users->Location := 'Uruguay'
dbAppend()
Users->Name := 'Krzysztof'
Users->Location := 'Poland'
dbGoTop()
DEFINE WINDOW Main_WA;
MAIN;
ROW 100;
COL 100;
WIDTH 340;
HEIGHT 200;
TITLE 'Grid Test'
DEFINE GRID Users_GR
ROW 10
COL 10
WIDTH 310
HEIGHT 100
HEADERS {'Name', 'Location'}
WIDTHS {150, 150}
CELLNAVIGATION .F.
ROWSOURCE 'Users'
COLUMNFIELDS {'Name', 'Location'}
END GRID
DEFINE BUTTON Close_BU
ROW 130
COL 120
WIDTH 80
HEIGHT 25
CAPTION 'Close'
ACTION Main_WA.RELEASE
END BUTTON
ON KEY ESCAPE ACTION Main_WA.RELEASE
END WINDOW
//MsgBox(Main_WA.Users_GR.CELLNAVIGATION, 'CELLNAVIGATION') ==> .T.
IF Main_WA.Users_GR.CELLNAVIGATION
Main_WA.Users_GR.VALUE := {2, 2}
ELSE
Main_WA.Users_GR.VALUE := 2
ENDIF
Main_WA.ACTIVATE
RETURN NIL