FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Bitmap en Linea con gradient (Txbrowse)
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Bitmap en Linea con gradient (Txbrowse)
Posted: Mon Aug 02, 2010 07:48 AM

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

Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql

Continue the discussion