Amigo Alfredo, olhe isso: http://img238.imageshack.us/img238/6929/alfredoij7.th.jpg Tgraph: METHOD _FillRect( nTop, nLeft, nBottom, nRight, nColor ) CLASS TGraph LOCAL oBrush, hBru, hOld, nMid hBru := CreateSolidBrush( nColor ) hOld := SelectObject( ::hDC, hBru ) ** IF ::lDegrade...