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
