Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to create gradient background?
Message
From
27/04/2006 02:17:55
 
 
To
27/04/2006 00:34:22
Beng Buhat
PolyOptimum, Inc.
Sydney, Australia
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
01116971
Message ID:
01116990
Views:
17
>How can I create a background with a gradient and shading style? (Similar to what you can do in Powerpoint slides)
>
>thanks!
>
>Marietta

To get a gradient background, put this code in yourform.resize:
LOCAL lnRow
ThisForm.ScaleMode = 3
ThisForm.DrawWidth = 1
FOR lnRow = 0 TO ThisForm.width 
   ThisForm.ForeColor = RGB(0,0,255-255*lnRow/ThisForm.width) && Change the color values to your preference
   ThisForm.Line(lnRow, 0,lnRow,ThisForm.height)
NEXT lnRow
Yourform.init:
this.resize()
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform