Bitmap en Linea con gradient (Txbrowse)

[FranciscoA]

Hola, amigos del foro:
Tengo la siguiente function que tomé de aquí en el foro, con una leve modificación acorde a mis necesidades.
Trabaja muy bien el degradado de la linea, pero si hay un bmp en alguna celda, lo oculta.
¿Alguien podría brindarme un ejemplo para solucionar esto? (FWH909)
Vi aquí una solución de Nao, pero no me funciona.
Gracias de antemano.

//-------------------------------------------------
Static function PaintColArr( oCol, hDC, cData, aRect, oBrw, aGrad )
if oBrw:nRowSel == oBrw:nArrayAt
if oCol:oBrw:lFocused
GradientFill( hDC, aRect[ 1 ] - 2, aRect[ 2 ] - 3, aRect[ 3 ] + 1, aRect[ 4 ] + 5, aGrad, .T. )

SetBkMode( hDC, 1 )
RoundBox( hDC, 2, aRect[ 1 ] - 1, WndWidth( oCol:oBrw:hWnd ) - 22, aRect[ 3 ] + 1, 2, 2,;
RGB( 235, 244, 253 ), 1 )
RoundBox( hDC, 1, aRect[ 1 ] - 2, WndWidth( oCol:oBrw:hWnd ) - 21, aRect[ 3 ] + 2, 2, 2,;
RGB( 0, 0, 0 ), 1 ) //RGB( 125, 162, 206 ), 1 )
else
RoundBox( hDC, 2, aRect[ 1 ] - 1, WndWidth( oCol:oBrw:hWnd ) - 22, aRect[ 3 ] + 1, 2, 2,;
RGB( 235, 244, 253 ), 1 )
RoundBox( hDC, 1, aRect[ 1 ] - 2, WndWidth( oCol:oBrw:hWnd ) - 21, aRect[ 3 ] + 2, 2, 2,;
RGB( 0, 0, 0 ), 1 )
endif
endif

SetTextColor( hDC, 0 )
DrawTextEx( hDC, cData, aRect, oCol:nDataStyle )
return nil