Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
GDI+ in VFP8
Message
From
29/11/2006 02:36:28
 
 
To
28/11/2006 22:23:06
Scott Butts
Ims Specialty Services
Twin Falls, Idaho, United States
General information
Forum:
Visual FoxPro
Category:
Pictures and Image processing
Title:
Miscellaneous
Thread ID:
01173115
Message ID:
01173143
Views:
13
>Is it possible to do any GDI stuff in VFP8? I just want to do a simple gradient fill to help in the visual appearance on a few forms. All the examples I have found are with VFP9.
>
>Scott

No need to use GDI! 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