This is cool!
Where do you come up with this kind of jewels ?? :)


>>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()