Gradient on TPanel?

[JC]

Dear Antonio and friends, Good afternoon!

Exists any way to create a gradient effect into TPanel class? The visual effect 2007?

[ukoenig]

A preliminary Solution :
Create a Gradient-Bmp and use it as a Brush.
If You want to use a vertical-gradient, the Bmp-length must be >= Panel-length,
otherwise the gradient is shown tiled.



DEFINE BRUSH oBrush FILENAME "..\bitmaps\16x16\Gradient1.bmp"

oPanel := TPanel():New( 0, 0, 75, 290, oReBar )
oPanel:SetBrush( oBrush )

Best Regards
Uwe

[JC]

Great Uwe!

But, without a image file... it's possible too?

Some like this:

Code: Select all  Expand view

lLook2007 := .T.
oBar := TBar():New( oWnd, 100, 68, .T., "TOP",, lLook2007 )
oPanel := TPanel():New( 0, oBar:nLeft, 68, oBar:nRight, oBar )

[ukoenig]

Hello JC,

the tPanel-Class includes only in ON PAINT :

FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush )

I can test, if it is possible to change this with < Gradientfill > maybe it works.

Best regards
Uwe

[JC]

Dear Uwe,

I tried but, not work

Code: Select all  Expand view

IF ::l2007
   GradientFill( ::hDC, 0, 0, ::nHeight, ::nWidth, Eval( ::bClrGrad, .f. ) )
   return 0
ENDIF

[Silvio]

tpanel has an error on paint method.
Antonio erased the line where call the function floodfill because when we use different tpanel there is an error on hbrush variable.
If you want the same effect of tpanel you must create a dialog with Nor 4 style and insert at right scrollbar if you want.
Only with this dialog tou can use graduent functiin to
colorize it.
but this is only an mine idea!