Hi Malcolm,
sorry I missed this message.
Those functions were referred to in the FPA answers column (and I assume included in the download). I really can't remember at the moment what they did, but if you need them I can email them to you.
>Hi Frank,
>
>> here's some code that I used to generate my gradients:
>
>Thank you, Frank, your code is a great example in helping me think through my design.
>
>I assume that ...
>
>1. your CreateGradient8() function creates a temp image file with a single pixel row(?) of gradient pixels with a width equivalent to the width of the active form or _SCREEN?
>
>2. your RotateFlip flips your single row image into a single column image which you then stretch the width of your form as a toolbar like gradient?
>
>Malcolm
>
>
>>lnEndR = 255
>>lnEndG = 255
>>lnEndB = 255
>>
>>lnColor = GetSysColor(COLOR_HIGHLIGHT)
>>lcRGB = x7colortorgbstring(m.lnColor)
>>
>>lnStartR = VAL(STREXTRACT(lcRGB,"(", ","))
>>lnStartG = VAL(STREXTRACT(lcRGB,",", ","))
>>lnStartB = VAL(STREXTRACT(lcRGB,",", ")",2))
>>
>>this.imggradient.Picture = CreateGradient8( lnStartR, lnSTartG, lnSTartB, lnEndR, lnEndG, lnEndB)
>>this.imggradient.RotateFlip = 1
>>
>>this.imggradient.Move( 0, 0, thisform.Width, 25 )
>>this.imggradient.Stretch = 2
>