How to Use the Box Method to Create a Shadow Effect

ID: Q142554

3.00 3.00b WINDOWS

 kbhowto

The information in this article applies to:

Microsoft Visual FoxPro for Windows, versions 3.0 and 3.0b

SUMMARY

This article demonstrates how to use a form's Box method to create a shadow effect behind a form object.

MORE INFORMATION

IMPORTANT NOTE: This article can be successfully applied only to objects that are direct members of either a form or the main Visual FoxPro window (_screen). Objects that are contained within, for example, the page of a PageFrame cannot have the same visual affect applied by using this method.

The purpose of the Box method is to draw a rectangle on a form or the main Visual FoxPro window (_Screen). For more information about Box method, search for "Box method" in the Visual FoxPro Help file.

Step-by-Step Example

This example creates a form that contains a command button. The Box method is used to create a shadow behind the command button.

1. Create a new form, and set its DrawWidth property to 5. Ensure that

   the DrawMode property is 13 - Copy Pen (default) and the DrawStyle
   property is 0 - Solid (default).

2. On the Form menu, click New Property and create a new property called

   zobjname. Modify the zobjname property to contain "", indicating
   a null string.

3. On the Form menu, click New Method, and create a new method called

   makebox. Modify the makebox method to contain the following code:

   zObject = "thisform."+(this.zobjname)

   * Adding 5 to the values below will cause the position to be
   * shifted down and to the right by 5 pixels. Recall that the
   * DrawWidth property has been set to 5. If one of these values
   * is changed, then the other should be as well.
   xleft = &zObject..left + 5
   ytop = &zObject..top + 5
   xright = &zObject..left + 5 + &zObject..width
   ybottom = &zObject..top + 5 + &zObject..height
   thisform.box(xleft,ytop,xright,ybottom)

4. Place a command button on the form and size it to be as large as you

   want. In the command button's Click event, add this code:

   ThisForm.Release

5. In the command button's Init event, add this code:

   ThisForm.zobjname = This.Name
   ThisForm.MakeBox

   NOTE: If additional objects are added to the form, the makebox method
   can be called to act on them by adding the above two lines of code to
   the object's Init event, as demonstrated in Step 5.

6. Save the form as linetest, and close the Form Designer. Use the DO FORM

   command to run the form. Note the shadow effect behind the command
   button.

Additional reference words: 3.00 3.00b VFoxWin KBCategory: kbhowto KBSubcategory: FxtoolFormdes

Keywords          : kbcode FxtoolFormdes 
Version           : 3.00 3.00b
Platform          : WINDOWS