GRADIENT(..) -Color-Function to use for a REDEFINE SAY ???

[ukoenig]

Hello,

I'm busy to have a Titlebar-designer for the FWH-users.
I found the function Gradient :
For just a try, i did this :

REDEFINE SAY oSay1 ID 101 OF oDlg5 PROMPT e_TEXT ;
COLOR Gradient( GETDC(oSay1), { 10, 0, 50, 800 },CLR_BLUE, CLR_WHITE, .T. )



{10, 0, 50, 800} is just to see, how it looks.
I need the function as COLOR belongs the
REDEFINE SAY Top,Left,Bottom, Right

With that, it is very easy, to do something similar
like in Via-Coral.
Maybe it is possible to have GRADIENT horizontal ?

Regards

Uwe [/img]

[mmercado]

Hi Uwe:

Maybe it is possible to have GRADIENT horizontal ?

Gradient( hDC, { nTop, nLeft, nHeight, nWidth }, nColorFrom, nColorTo, .F. )

Regards.

Manuel Mercado

[Otto]

Uwe,
Is the use oft he Gradient function valid?
I remember Antonio suggested to use instead of
Bmp’s.
Regards,
Otto

DEFINE BRUSH oBrush FILENAME "gradient.bmp"

@ 4/2.05, 95/2.05 SAY oAufname PROMPT " " + scPlanName OF oDlg SIZE 350/2.05,22/2.05 PIXEL FONT oWhSetup:oFntXXL() COLORS RGB(0,0,0),RGB(255,170,85)
oAufname:lTransparent = .T.
ACTIVATE DIALOG oDlg CENTERED ;
ON INIT (oAufname:SetBrush( oBrush ))

[ukoenig]

Hello Otto,

I will have a look at your sample.
I'm just busy to work with GRADIENTS on SAY's
So FW-users can have Infobars as well.
When i finish the Logic, it could to be used
on many things. The source will be in the forum.

Regards

Uwe