topic-45036

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

colorize Header and selector
Posted: Tue Oct 22, 2024 07:55 AM

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

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: colorize HEader and selector
Posted: Tue Oct 22, 2024 08:21 AM

perhps I found the solution for header

:SetStyle( 2013 )

I wish the same color also for the selector column

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Marc Venken

Posts: 1487

Joined: Tue Jun 14, 2016 07:51 AM

Re: colorize HEader and selector
Posted: Tue Oct 22, 2024 01:57 PM

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

You need nRGB

Marc Venken

Using: FWH 23.08 with Harbour

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: colorize HEader and selector
Posted: Wed Oct 23, 2024 07:28 AM

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

You need nRGB

Yes but I need selector column color

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Cgallegoa

Posts: 514

Joined: Sun Oct 16, 2005 03:32 AM

Re: colorize Header and selector
Posted: Wed Oct 23, 2024 03:29 PM

Silvio:

Code (fw): Select all Collapse

#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

Saludos,

Carlos Gallego

*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: colorize Header and selector
Posted: Wed Oct 23, 2024 06:13 PM

thanks Not found the variables into xbrowse class

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

FiveTech Support Forums

Continue the discussion