The information in this article applies to:
- Microsoft Visual FoxPro for Windows, versions 3.0, 3.0b, 5.0, 5.0a
SYMPTOMS
If a grid column text object is replaced with a container object, methods
fire incorrectly. Specifically, when the column gets focus, the GotFocus()
method does not fire. When the column loses focus, the LostFocus method
fires twice.
STATUS
Microsoft has confirmed this to be a problem in the Microsoft products
listed at the beginning of this article. We are researching this problem
and will post new information here in the Microsoft Knowledge Base as it
becomes available.
MORE INFORMATION
Steps to Reproduce Problem
- Place the following code in a program called Colfocus.prg:
* Begin ColFocus.prg
CLEAR ALL
CLEAR
CLOSE ALL
USE HOME()+ "SAMPLES\DATA\EMPLOYEE"
*-- Create a form
MyForm=CREATEOBJECT("Form")
WITH MyForm
.AutoCenter= .T.
.WindowType=1 && Modal
.AddObject("Edit1", "EditBox")
WITH .Edit1
.Visible=.T.
.Height= 23
.Width= MyForm.Width
.Value="Column3.Container.GotFocus() never fires"
ENDWITH
*-- Add a Grid
.AddObject("Grid1", "Grid")
WITH .Grid1
.Top=40
.Visible= .T.
.ColumnCount=2
*-- Add a container to a column
.AddObject("Column3", "Column")
.Column3.RemoveObject("Text1")
.Column3.AddObject("Container1", "MyContainer")
.Column3.Visible= .T.
.Column3.Container1.Visible=.T.
ENDWITH
.SHOW()
ENDWITH
*-- GotFocus() and LostFocus() container
DEFINE CLASS MyContainer as Container
BackColor=RGB(255,0,0)
BackStyle=1
PROCEDURE GotFocus
ACTIVATE SCREEN
?" In GotFocus of Column 3"
ENDPROC
PROCEDURE LostFocus
ACTIVATE SCREEN
?"In LostFocus of Column 3 "
ENDPROC
ENDDEFINE
* End ColFocus.prg
- Run ColFocus.prg.
- When the Form appears, tab or arrow over to Column 3 of the grid.
NOTE: The GotFocus() method of Column 3 does not fire.
- Move off of Column 3.
NOTE: The LostFocus() method of Column 3 fires twice.
|