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
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only