FiveTech Support Forums

#include 'fivewin.ch'
#include 'xbrowse.ch'

FUNCTION MAIN()
local oDlg, oBrw1, oBrw2, oBrw3, hDC, oFont, oBrush1
local aGrad := { { 0.5,    RGB( 140,  56,   6 ),  RGB( 237, 234, 109 ) }, ;
                          { 0.5,    RGB( 237, 234, 109 ),  RGB(  85,  62,  84 ) } }

DEFINE BRUSH oBrush1 COLOR  128 // red
DEFINE BRUSH oBrush2 FILENAME "..\bitmaps\Cartoon.bmp"

DBSELECTAREA(1)
USE CUSTOMER ALIAS CUST

DBSELECTAREA(2)
USE STATES ALIAS STA

DBSELECTAREA(3)
USE SALES ALIAS SAL

DEFINE FONT oFont NAME 'Tahoma' SIZE 0, -14
   
DEFINE DIALOG oDlg SIZE 700,300 PIXEL ;
FONT oFont TITLE 'XBrowse Gradient Rows'

DBSELECTAREA(1)
@ 10, 5 XBROWSE oBrw1 OF oDlg ; 
BACKGROUND "..\bitmaps\Cartoon.bmp" BCK_TILED ;
SIZE 100, 100 PIXEL ;
AUTOCOLS ALIAS 'CUST' 

oBrw1:nRowDividerStyle = LINESTYLE_NOLINES
oBrw1:nColDividerStyle = LINESTYLE_NOLINES
oBrw1:nMarqueeStyle    = MARQSTYLE_HIGHLROW

AEval( oBrw1:aCols, { | oCol | oCol:bPaintText := { | oCol, hDC, cData, aRect | ;
PaintCol( oCol, hDC, cData, aRect ) } } )

oBrw1:SetBackGround( oBrush1, )
oBrw1:CreateFromCode()

// ----------

DBSELECTAREA(2)
@ 10, 120 XBROWSE oBrw2 OF oDlg ; 
BACKGROUND "..\bitmaps\Cartoon.bmp" BCK_TILED ;
SIZE 100, 100 PIXEL ;
AUTOCOLS ALIAS 'STA' 

oBrw2:CreateFromCode()

DBSELECTAREA(3)
@ 10, 240 XBROWSE oBrw3 OF oDlg ; 
BACKGROUND "..\bitmaps\Cartoon.bmp" BCK_TILED ;
SIZE 100, 100 PIXEL ;
AUTOCOLS ALIAS 'SAL' 

oBrw3:CreateFromCode()

ACTIVATE DIALOG oDlg CENTERED

oFont:End()
oBrush1:End()
oBrush2:End()

RETURN NIL

// ------------  Selected Row = Red / White ---------

STATIC FUNCTION PAINTCOL( oCol, hDC, cData, aRect )

if oCol:oBrw:VGetPos() == Cust->( OrdKeyNo() )

      GradientFill( hDC, aRect[ 1 ] - 2, aRect[ 2 ] - 3, aRect[ 3 ] + 1, aRect[ 4 ] + 5,;
                      { { 0.5, 16777215, 15589562 } }, .T. ) // Blue on White

      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( 125, 162, 206 ), 1 ) 
endif

SetTextColor( hDC, 0 ) // Yellow Text
DrawTextEx( hDC, cData, aRect, oCol:nDataStyle )

RETURN NIL

oBrw1:nMarqueeStyle    = MARQSTYLE_HIGHLWIN7