How to Use the SETALL() Method in Visual FoxPro

• Microsoft FoxPro for Windows, version 3.0

SUMMARY

SETALL() is a new method provided with Visual FoxPro version 3.0. You can use it to set the properties (one at a time) for all of the instances of a certain class of controls within a container. This article shows by example how to use SETALL().

MORE INFORMATION

The syntax for the method is:

   ContainerName.SETALL(cProperty, Value[, cClass])

General Instructions for Illustration

Using the visual interface of Visual FoxPro, start a new form named fTest. Populate it with a grid with two columns, three text boxes, and a command button group with five buttons.

In the Click method of one of the command buttons, insert the commands to change properties of each of the classes using the SETALL() method.

Step-by-Step Instructions to Demonstrate the Use of SETALL()

1. Start the form definition by choosing New from the File menu. Then select Form and then New File.

2. Look for the window titled Form Designer - FormDocn (where n is the consecutive number of this form document in this session of Visual FoxPro) on the desktop. Be sure the Form Controls Toolbar is visible. If it is not, choose Form Controls Toolbar from the View menu.

3. Click the Button Lock tool on the Form Controls Toolbar. Then Click the Text Box tool. Click in three different locations on the Form1 area of the Form Designer to instantiate three separate text box objects.

4. Click the Button Lock tool again to unlock the Form Controls Toolbar.

5. Click the Grid tool on the Form Controls Toolbar, and place a grid on the form.

6. Click the grid to select it. It will have small handles on each corner and in the middle of each of the four sides. Right click in the grid. That will produce a pop-up with seven choices. Click the Properties choice.

7. In the resulting "Properties - FormDocn" window, click the ColumnCount property. In the edit box beneath the tabs, change the column count to 2, and then press the ENTER key.

8. With the mouse pointer, sieze the middle handle on the right side of the grid and pull the right side to the right to resize the grid so that you can see the two column headings.

9. Click the Command Group tool. Then place a command button group on the form. Select the group by clicking it. Then right click, and select Properties from the pop-up.

10. Change the ButtonCount property to 5, and press ENTER.

11. Using the mouse pointer, resize the command group by pulling its bottom

        boundary down so that five buttons are visible.
    

12. Right click the command group, and select Edit from the pop-up. Click

        to select the top button.
    

13. Notice that Command1 appears as the Object in the Properties window.

        Change the Caption property to say "Change."
    

14. Using the mouse, select the bottom button. Change its caption to

        "Quit."
    

15. Double-click the bottom button. This should cause an edit window with

        the title "Command5.Click" to appear. In that window, type the
        following command, and save it by pressing CTRL+W.
    

        ThisForm.Release
    

16. Double-click the top button. In the "Command1.Click" edit window, enter

        the following code, and save it by pressing CTRL+W.
    

        THISFORM.Grid1.SetAll('ForeColor',RGB(0,255,0),'header')
        THISFORM.SetAll('DisabledBackColor',RGB(128,0,0),'textbox')
        THISFORM.SetAll('DisabledForeColor',RGB(255,0,128),'commandbutton')
        THISFORM.SetAll('Enabled',.F.,'textbox')
        THISFORM.SetAll('Enabled',.F.,'commandbutton')
        THISFORM.CommandGroup1.Command1.Enabled = .T. && See note below
        THISFORM.CommandGroup1.Command5.Enabled = .T.
        THISFORM.Refresh
    

        *NOTE: Alternatively, the contents of this line could be:
        *
        *   THIS.Enabled = .T.
        *
        * because the code is in the click method of Command1
    
    

17. Run the form by clicking the Exclamation Point symbol on the top

        Toolbar. Save the changes and name the form fTest. The form should
        appear with text boxes that have white backgrounds, grid headers in the
        default gray color, and command buttons with black letters on gray
        buttons.
    

18. Click the Change button. Observe the changed properties.

19. Click the Quit button.