Alfredo Arteaga - Tgraph Degradado!

[MGA]

Amigo Alfredo, olhe isso:



Tgraph:

METHOD _FillRect( nTop, nLeft, nBottom, nRight, nColor ) CLASS TGraph

LOCAL oBrush, hBru, hOld, nMid

hBru := CreateSolidBrush( nColor )
hOld := SelectObject( ::hDC, hBru )
** IF ::lDegrade
nMid:=(nRight-nLeft)/2
Gradient( ::hDC, { nTop, nLeft, nBottom, nRight-nMid }, nColor, LightColor(175,nColor), .F. )
Gradient( ::hDC, { nTop, nLeft+nMid, nBottom, nRight }, LightColor(175,nColor), nColor, .F. )
** ELSE
** FillRect( ::hDC, { nTop, nLeft, nBottom, nRight }, hBru )
** ENDIF
SelectObject( ::hDC, hOld )
DeleteObject( hBru )

RETURN (Nil)






O que achou meu amigo?

AokiSantos

[Alfredo Arteaga]

Mmm... no entiendo que intentas o que te refieres.

Pero con el código en las manos puedes hacer lo que gustes.

Saludos.