Microsoft KB Archive/162254

= BUG: Container in Grid Column Fires Wrong Event =

Article ID: 162254

Article Last Modified on 5/12/2003

-

APPLIES TO


 * Microsoft Visual FoxPro 3.0 Standard Edition
 * Microsoft Visual FoxPro 3.0b Standard Edition
 * Microsoft Visual FoxPro 5.0 Standard Edition
 * Microsoft Visual FoxPro 5.0a
 * Microsoft Visual FoxPro 6.0 Professional Edition

-



This article was previously published under Q162254



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.



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" && In Visual FoxPro 6.0, locate && the employee table and adjust && the path accordingly.

*-- 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.

Additional query words: kbvfp500 kbvfp600

Keywords: kbbug kbcode KB162254

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.