HOW DO I CHANGE THE COLOR PROPERTIES OF THE MAIN VISUAL FOXPRO WINDOW

[SDG2000]

I NEED TO CHANGE IT, BECAUSE MY BOSS ASK ME TO

 

[dgrewe]

Syntax

MODIFY WINDOW SCREEN
AT <row3, column3> SIZE <row4, column4>]
[FONT <expC1>[, <expN1>]]
[STYLE <expC2>]
[TITLE <expC3>]
[HALFHEIGHT]
[DOUBLE | PANEL | NONE | SYSTEM]
[CLOSE | NOCLOSE]
[FLOAT | NOFLOAT]
[GROW | NOGROW]
[MINIMIZE]
[ZOOM | NOZOOM]
[ICON FILE <expC4>]
[FILL FILE <bmp file>]
[COLOR=SCHEME <expN2> | COLOR <color pair list>]

Remarks

MODIFY WINDOW SCREEN is supported in FoxPro for Windows only
MODIFY WINDOW changes the attributes of an existing user-defined window or the main FoxPro window. User-defined windows are created with DEFINE WINDOW. MODIFY WINDOW can't be used to change the attributes of FoxPro system windows (the Command window, Browse windows, the Filer, and so on).
Use MODIFY WINDOW to change the location, default font, title, border, controls, icon, wallpaper and color of a user-defined window or the main FoxPro window. Any of these attributes can be changed by including the clauses listed above. Note that if you change colors, you must issue CLEAR to apply the color changes.
For example, include the TO and FROM or AT and SIZE clauses to specify a new location or size for a user-defined window or the main FoxPro window. To prevent a user-defined window or the main FoxPro window from being moved, include the NOFLOAT key word.

Clauses

SCREEN

You can modify the attributes of the main FoxPro window by including SCREEN instead of a window name. Do not abbreviate the keyword SCREEN when using MODIFY WINDOW to change the attributes of the main FoxPro windowa &quot;Window not defined&quot; error message is generated. To return the main FoxPro window to its startup configuration, issue the following command without any additional clauses:

MODIFY WINDOW SCREEN

Tip Issuing MODIFY WINDOW SCREEN NOCLOSE is an excellent way to prevent yourself from accidentally terminating FoxPro for Windows prematurely.


example program
[tt]
*/***************************************************************************
*/Program : SetWall
*/System : Library
*/Purpose : Change the Wall Paper of A Window
*/Syntax : =setwall(type)
*/Returns : nothing
*/Parameter : type - logical - temp or default
*/Defaults : none
*/Requires :
*/Changes :
*/Calls :
*/Version : 1.0
*/Dated : 06/23/1993
*/Written By: David W. Grewe
*/***************************************************************************
*& type of prg :
*/***************************************************************************
*/ Record Of Change
*/
*/***************************************************************************
parameter pltype
lcSetWall = &quot; &quot;
if DbfOpen(&quot;NETWORK&quot; , &quot;NETWORK&quot; , &quot;USER_ID&quot; , ucNetName)
if pltype
lcSetWall = alltrim(NETWORK.WALLPAPER)
else
set default to (fcSysDir+&quot;WALPAPER&quot
lcSetWall = getfile(&quot;BMP&quot
replace NETWORK.WALLPAPER with lcSetWall + &quot; &quot;
set default to (fcTempDir)
endif
*
do case
case !file(lcSetWall)
case !empty(lcSetWall)
otherwise
modi window SCREEN fill file (lcSetWall)
modi window DBFSHOW fill file (lcSetWall)
endcase
endif
return lcSetWall
David W. Grewe
Dave@internationalbid.com
ICQ VFP ActiveList #46145644