We help IT Professionals succeed at work.

Check out this week's podcast, "Dairy Farms to Databases: Community's Hand in Technology"Listen Now

x

setting up the environment

miredo
miredo asked
on
564 Views
Last Modified: 2013-12-03
How do I set the colors in a simple PC application I'm writing
in FoxPro?  In my driver program, I have included
a copy of the FoxPro resource file (renamed rmeal.dbf), then I
created a color set named menu with 24 schemes (using CREATE
COLOR SET and SET COLOR SCHEME TO), and used SET COLOR SET TO
to activate the colors.  When I run the application from
distribution disks I created with the FoxPro Distribution
Kit, I get the following three error messages:

Cannot open file
File is read only
COLORSET resource is not found

I can click "ignore" to get past them, and the screens will
run.
(I made everything red so I can be sure the program is
using the schemes in my driver program). The first screen is
called wtitle.

What might be wrong with my code?

Here is the code for the start program:

SET RESOURCE TO rmeal.dbf
CREATE COLOR SET menu
SET COLOR OF SCHEME 1 TO RGB(0,0,0,255,0,0),
RGB(0,0,0,255,0,0), RGB(0,0,0,255,0,0),
RGB(0,0,0,255,0,0), RGB(0,0,0,255,0,0),
RGB(0,0,0,255,0,0), RGB(0,0,0,255,0,0),
RGB(0,0,0,255,0,0), RGB(0,0,0,255,0,0),
RGB(0,0,0,255,0,0)
SET COLOR OF SCHEME 2 TO RGB(0,0,0,255,0,0),
RGB(0,0,0,255,0,0), RGB(0,0,0,255,0,0),
RGB(0,0,0,255,0,0), RGB(0,0,0,255,0,0),
RGB(0,0,0,255,0,0), RGB(0,0,0,255,0,0),
RGB(0,0,0,255,0,0), RGB(0,0,0,255,0,0),
RGB(0,0,0,255,0,0)

...

SET COLOR OF SCHEME 24 TO RGB(0,0,0,255,0,0),
RGB(0,0,0,255,0,0), RGB(0,0,0,255,0,0),
RGB(0,0,0,255,0,0), RGB(0,0,0,255,0,0),
RGB(0,0,0,255,0,0), RGB(0,0,0,255,0,0),
RGB(0,0,0,255,0,0), RGB(0,0,0,255,0,0),
RGB(0,0,0,255,0,0)

SET COLOR SET TO menu

SET SYSMENU OFF

DO wtitle



Thanks, M
Comment
Watch Question

Author

Commented:
Edited text of question

Author

Commented:
Edited text of question
Commented:
This one is on us!
(Get your first solution completely free - no credit card required)
UNLOCK SOLUTION
Unlock the solution to this question.
Join our community and discover your potential

Experts Exchange is the only place where you can interact directly with leading experts in the technology field. Become a member today and access the collective knowledge of thousands of technology experts.

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.