www.FiveTechSoft.com
https://forums.fivetechsupport.com/
Yes but I need selector column colorMarc Venken wrote:oBrw:bClrHeader := { ||{ CLR_GRAY, nRGB( 242, 242, 242 ) } }
You need nRGB
Code: Select all | Expand
#include "fivewin.ch"
function Main()
local aData := FillArray()
local oDlg, oBar, oBrw
LOCAL nColorBkg := nRGB( 200, 225, 165 )
DEFINE DIALOG oDlg SIZE 500,450 PIXEL TRUEPIXEL
DEFINE BUTTONBAR oBar OF oDlg SIZE 60,32 2010
@ 40, 10 XBROWSE oBrw ;
COLUMNS 1,2,3,4,5,6;
HEADERS "Puntata","Costo giocata","Spesa","Vincita","Utile","Utile%";
ARRAY aData ;
SIZE -25,-50 PIXEL OF oDlg NOBORDER
oBrw:RecSelShowKeyNo()
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrw:nColDividerStyle := LINESTYLE_LIGHTGRAY
oBrw:lColDividerComplete := .t.
oBrw:lHScroll := .f.
oBrw:nHeaderHeight := 20
oBrw:nRowHeight := 20
oBrw:SetStyle( 2018 )
oBrw:SetStyle( 0 )
oBrw:bRecSelHeader := { || " " }
oBrw:nRecSelWidth := "999"
oBrw:lRecordSelector := .t.
oBrw:bClrHeader := {|| { CLR_BLACK, nColorBkg } }
oBrw:nRecSelColor := nColorBkg
oBrw:CreateFromCode()
ACTIVATE DIALOG oDlg CENTERED
return nil
static function FillArray()
local aData := Array( 16, 7 )
local aRow
for each aRow in aData
AEval( aRow, { |u,i| aRow[ i ] := HB_RandomInt( 1,9999 ) * 0.01 } )
next
return aData