PROBLEMAS DE REPINTADO EN TRBTN,, ::aGradiant

[mantonio_08]

MASTER ANTONIO::

SEGUN VEO EL PROBLEMA DE REPINTADO DE UN TRBTN,, SE DEBE A ESTA LINEA EN EL METODO PAINT,, DE LA CLASE

if ::lTransparent .and. ::hBack == NIL
hCapture = MakeBkBmpEx( ::hWnd, aRect[ 1 ], aRect[ 2 ], ::nWidth, ::nHeight )
// hCapture = ParentCapture( ::hWnd, ::hDC )
::hBack := CreatePatternBrush( hCapture )
DeleteObject( hCapture )
//elseif ! ::lTransparent .and. ::hBack == NIL
elseif ! ::lTransparent .or. ::hBack == NIL // <--------------------------- DEBERIA SER ASI
hBmp = GradientBmp( Self, ::nWidth, ::nHeight, ::aGradiant )
::hBack = CreatePatternBrush( hBmp )
DeleteObject( hBmp )
endif
endif

::hBack nunca vuelve a saer un NIL despues q pasa y lo pinta la primera vez con lo que contenga ::aGradiant.
y obviamente ::lTransparent es .F.
ME INDICAS SI ES CORRECTO

GRACIAS

[mantonio_08]

AHORA .: la solucion para no mover la clase,,, seria pasarle un NIL a ::hBack junto con el ::agradiant y despues refrescar,, ,, no se si eso influira en algo mas,,

que opinas MASTER ::

GRACIAS

[Antonio Linares]

Mantonio,

Puedes proporcionar un ejemplo que muestre el error de pintado ? gracias