How To Set the BackColor Property to Same Color as Title Bar

 Last reviewed: November 12, 1996
Article ID: Q159271
The information in this article applies to:
  • Microsoft Visual FoxPro for Windows, versions 3.0, 3.0b, 5.0

SUMMARY

This article provides information on how to change the BackColor property of a shape object in Visual FoxPro to the same color as the form's active title bar.

MORE INFORMATION

The following example creates a form that contains a shape. Code in the Click event of the command button changes the BackColor property of the shape from its default color to the color of the form's title bar.

  1. Create a form
2. Place a shape object on the form. The name of this shape should be 
   Shape1.
3. Add a command button to the form and place the following code in the 
   Click event of the button:

   DECLARE INTEGER GetSysColor in User32.dll Integer
   Thisform.Shape1.BackColor=GetSysColor(2)
   ThisForm.Refresh

  • Run the form and press the command button. The backcolor of the shape changes to the same color as the forms title bar.

    The integer "2" in the GetSysColor() function points to the value of COLOR_ACTIVECAPTION from the Winuser.h file. The GetSysColor function is case sensitive; therefore, code must be entered exactly as shown above. The Winuser.h file is not a Visual FoxPro file. For more information on this file, consult Windows SDK literature. Information on the GetSysColor() function is available in the Win32 API Quick Reference help file that ships with Visual FoxPro 3.0 and 3.0b Professional versions.

    • KBCategory: kbprg kbhowto
    KBSubcategory: FxprgGeneral
    Additional reference words: 3.00 3.00b 5.00 VFoxWin kbdsd



    THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY.

    Last reviewed: November 12, 1996
    © 1998 Microsoft Corporation. All rights reserved. Terms of Use.