//aVal[100] := ("SYSTEM")->nBRColorF1
//aVal[101] := ("SYSTEM")->nBRColorT1
//aVal[102] := ("SYSTEM")->nBRColorF2
//aVal[103] := ("SYSTEM")->nBRColorT2
//aVal[104] := ("SYSTEM")->nBRColorF3
//aVal[105] := ("SYSTEM")->nBRColorT3
//aVal[106] := ("SYSTEM")->nDFolder
aDat1:= { {"Zeile1-Spalte1","Zeile1-Spalte2"},;
{"Zeile2-Spalte1","Zeile2-Spalte2"},;
{"Zeile3-Spalte1","Zeile3-Spalte2"},;
{"Zeile4-Spalte1","Zeile4-Spalte2"},;
{"Zeile5-Spalte1","Zeile5-Spalte2"},;
{"Zeile6-Spalte1","Zeile6-Spalte2"},;
{"Zeile7-Spalte1","Zeile7-Spalte2"},;
{"Zeile8-Spalte1","Zeile8-Spalte2"},;
{"Zeile9-Spalte1","Zeile9-Spalte2"},;
{"Zeile10-Spalte1","Zeile10-Spalte2"},;
{"Zeile11-Spalte1","Zeile11-Spalte2"},;
{"Zeile12-Spalte1","Zeile12-Spalte2"},;
{"Zeile13-Spalte1","Zeile13-Spalte2"},;
{"Zeile14-Spalte1","Zeile14-Spalte2"},;
{"Zeile15-Spalte1","Zeile15-Spalte2"},;
{"Zeile16-Spalte1","Zeile16-Spalte2"} }
REDEFINE XBROWSE oBrw ID 110 OF oDlg4 ARRAY aDat1 AUTOCOLS FONT oFontTiny
SHOW_XBRW( oBrw, aVal )
oBrw:Refresh()
// ---- select ZEBRA-row-color 1 ------
REDEFINE BITMAP oBBmp[1] FILENAME NIL OF oDlg4 ;
ID 210 PIXEL ADJUST BORDER
oBBmp[1]:cTooltip := { "Rowcolor 1","Selected", 1, CLR_BLACK, 14089979 }
oBBmp[1]:bPainted := { |hDC| DRAW_COL( oBBmp[1], hDC, aVal[100] ) }
REDEFINE BTNBMP oBtn[1] OF oDlg4 ;
ID 220 PIXEL 2007 ;
NOBORDER ;
PROMPT "&a) Listenzeile 1" ;
FILENAME c_Pfad1 + "Paint1.Bmp" ;
ACTION ( aVal[100] := ChooseColor(), oBBmp[1]:Refresh(), ;
SHOW_XBRW( oBrw, aVal ), oBrw:Refresh() ) ;
FONT oFontSys ;
TOP
oBtn[1]:bClrGrad := { | lMouseOver | If( ! lMouseOver,;
{ { nBGradPos1, nBColorF1, nBColorB1 }, ;
{ nBGradPos1, nBColorB1, nBColorF1 } }, ;
{ { nBGradPos2, nBColorF2, nBColorB2 }, ;
{ nBGradPos2, nBColorB2, nBColorF2 } } ) }
oBtn[1]:lTransparent := .t.
oBtn[1]:cToolTip = { "xBrowse-Row 1","Color-selection", 1, CLR_BLACK, 14089979 }
oBtn[1]:SetColor( 0, )
....
....
// ------------------------------
FUNCTION SHOW_XBRW( oBrw, aVal )
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrw:nColDividerStyle := LINESTYLE_BLACK
oBrw:nRowDividerStyle := LINESTYLE_BLACK
oBrw:bClrStd := { || If( oBrw:KeyNo() % 2 == 0, ;
{ If( ( oBrw:cAlias )->( Deleted() ), 255, aVal[103] ), aVal[102] }, ;
{ If( ( oBrw:cAlias )->( Deleted() ), 255, aVal[101] ), aVal[100] } ) }
oBrw:bClrSel := ;
oBrw:bClrSelFocus := { || { If( ( oBrw:cAlias )->( Deleted() ), 255, aVal[105] ), aVal[104] } }
oBrw:nRecSelColor := 15512898
oBrw:lHScroll := .T.
oBrw:lVScroll := .T.
oBrw:lFooter := .T.
oBrw:nRowHeight := 25
oBrw:oFont := oFontSys
//oBrw1:lResizeCols := .F.
RETURN NIL
//------------- BMP-Color -----------
FUNCTION DRAW_COL( oBitmap, hDC, nColor )
LOCAL oBrush
LOCAL aRect := GETCLIENTRECT( oBitmap:hWnd )
DEFINE BRUSH oBrush COLOR nColor
FillRect( oBitmap:hDC, aRect, oBrush:hBrush )
oBrush:End()
RETURN( NIL )