How to Prevent a Grid Header from Being Resized Interactively

MORE INFORMATION

Step-by-Step Example

1. Create a new form.
2. On the Form menu, click New Property, and create a property called oldheadheight.
3. Place the following code in the Init event of the form:

      THIS.oldheadheight=THISFORM.Grid1.HeaderHeight
   						

4. Add the Customer table to the Data Environment of the form (on the View menu, click Data Environment, and then right-click within the Data Environment and select Add. Within the Add Table or View dialog box, select Other and locate the Customer.dbf as follows:

      C:\Vfp\Samples\Data\Customer.dbf
   						

5. Click the title bar of the Customer table, and drag it onto the form to create a grid.
6. With the grid as the selected object on the form, set the ColumnCount property to 4.
7. Add the following code to the MouseUp event of the grid:

      THIS.HeaderHeight=THISFORM.oldheadheight
   						

8. Save the form as Test. Close it, and use the DO FORM command to run the form.
9. Attempt to resize the header by clicking and dragging from the top, left corner of the grid and notice that it snaps back to its original position once the mouse button is released.