Can someone explain why after the grid has been disabled, you can still navigate to different cells. Is this a bug? Is it by design? I find the same behavior in versions 8 and 9.


Thanks



USE Yourfile.dbf SHARED NOUPDATE ALIAS myalias

frmMyForm = CREATEOBJECT( "testform1" )
frmMyForm.grdGrid.RecordSource = "myalias"
frmMyForm.Show(1)
RELEASE frmMyForm

*-- Disable the grid by clicking the label.
*-- Note that the grid is only partially disabled--you can still move around in it.
*-- Ctrl+Tab to leave the grid.
*-- Now the grid is fully disabled.
DEFINE CLASS testform1 AS FORM
ADD OBJECT grdGrid AS Grid ;
WITH Top = 0, Left = 0, Height = 200, Width = 360
ADD OBJECT lblStatus AS Label WITH Top = 240, Left = 0, AutoSize = .T., Caption = "Grid is enabled--click here to disable"
Height = 400
Width = 400

PROCEDURE lblStatus.Click()
IF THISFORM.grdGrid.Enabled
THISFORM.grdGrid.Enabled = .F.
ELSE
THISFORM.grdGrid.Enabled = .T.
ENDIF
THIS.Refresh()
ENDPROC
PROCEDURE lblStatus.Refresh()
IF THISFORM.grdGrid.Enabled
THIS.Caption = "Grid is enabled--click here to disable"
ELSE
THIS.Caption = "Grid is disabled--click here to enable"
ENDIF
ENDPROC
PROCEDURE lblStatus.MouseOver()
THIS.Refresh()
ENDPROC
ENDDEFINE