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
Chinandega, Nicaragua.
Fwxh-MySql-TMySql