colorize Header and selector

[Silvio.Falconi]

can I change the color of header of xbrowse and selector ?

I tried with :bClrHeader :=RGB(247,248,248) but make error

If I make :bClrHeader := {|| { RGB(247,248,248), CLR_BLACK } }

I have this



I wish the color RGB(247,248,248) and the text black

[Silvio.Falconi]

perhps I found the solution for header

:SetStyle( 2013 )



I wish the same color also for the selector column

[Marc Venken]

oBrw:bClrHeader := { ||{ CLR_GRAY, nRGB( 242, 242, 242 ) } }

You need nRGB

[Silvio.Falconi]

oBrw:bClrHeader := { ||{ CLR_GRAY, nRGB( 242, 242, 242 ) } }

You need nRGB

Yes but I need selector column color

[Cgallegoa]

Silvio:

Code: Select all  Expand view

#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

[Silvio.Falconi]

thanks Not found the variables into xbrowse class