BUG: SetAll Not Refreshing Text Boxes in Grid When Sparse =.F.

• Microsoft Visual FoxPro for Windows, versions 3.0, 3.0b, 5.0, 5.0a, 6.0

SYMPTOMS

Using a grid that contains a column or columns, with their Sparse property set to .F., and then using the SetAll() method to set a text box property like BackColor, causes the updated property not to appear in the grid text boxes until the grid is refreshed or gets focus.

RESOLUTION

As a workaround, use one of the following three methods to force the grid to be repainted:

• Call the form's Refresh() method.
  
  -or-



• Call the grid's SetFocus() method.
  
  -or-



• Set the value of the grid's scroll bars to itself.

STATUS

Microsoft has confirmed this to be a bug in the Microsoft products listed at the beginning of this article.

MORE INFORMATION

The SetAll() method of an object sets a specific property of all the objects it contains. You can also specify a specific base class to be affected. The controls can also be contained within other objects within the object whose SetAll is called. In this case, we are affecting text boxes within columns in a grid control by the form's SetAll() method.

Steps to Reproduce Behavior

1. Run the following code from a program (.prg) file:

   
         CREATE TABLE testtab (f1 c(5), f2 c(5))
         FOR lni = 1 TO 5
            INSERT INTO testtab (f1, f2)  ;
               VALUES (PADL(ALLTR(STR(lni)),5, '0'), ;
               SUBSTR(SYS(3), 4, 5))
         ENDFOR
         GO TOP
   
         PUBLIC oForm
   
         oForm = CREATEOBJECT('form')
         oForm.ADDOBJECT('grid1','grid')
         oForm.grid1.COLUMNCOUNT = 2
         oForm.grid1.VISIBLE = .T.
   
         oForm.ADDOBJECT('text1','textbox')
         oForm.text1.TOP = 225
         oForm.text1.VISIBLE = .T.
         oForm.text1.TABINDEX = 1
         oForm.ADDOBJECT('text2','textbox')
         oForm.text2.TOP = 225
         oForm.text2.LEFT = 150
         oForm.text2.VISIBLE = .T.
         oForm.text2.TABINDEX = 2
         oForm.SHOW
   
         oForm.SETALL("sparse",.F.)
         WAIT WINDOW "Textboxes in Grid will not be refreshed" TIMEOUT 1
         oForm.SETALL("backcolor",RGB(255,0,0),"textbox") 

   oForm.Refresh() 

   oForm.grid1.SetFocus() 

   oForm.grid1.ScrollBars = oForm.grid1.ScrollBars 

REFERENCES

© Microsoft Corporation 1998, All Rights Reserved.
Contributions by Jim Saunders, Microsoft Corporation

Additional query words: kbVFp300bbug kbVFp500abug kbVFp600bug kbOOP kbContainer kbCtrl

Keywords :
Version : WINDOWS:3.0,3.0b,5.0,5.0a,6.0
Platform : WINDOWS
Issue type : kbbug