To All
I am re-working a legacy FWH app and I am going with an all 'grey' color scheme. I would like to be able to change the color of the standard light blue for the column headers and footers of xBrowse to a light grey if that is possible.
Many Thanks
Rick Lipkin
STATIC bClrGradBtn
//--------------
Function Main()
SetDlgGradient( { { 1, RGB( 255, 255, 255 ), RGB( 229, 233, 238 ) } } )
bClrGradBtn := { | lPressed | If( ! lPressed,; //Plomo
{ { 1, RGB( 255, 255, 255 ), RGB( 229, 233, 238 ) } },;
{ { 1, RGB( 194, 197, 201 ), RGB( 240, 240, 240 ) } } ) }
//-----------------------
Function xxx()
@ .5, .5 XBROWSE oBrw SIZE 544,254 OF oDlg ;
ALIAS cAlias AUTOCOLS CELL LINES
oBrwStyle(oBrw)
oBrw:CreateFromCode()
@ nHt-15, 10 BTNBMP oBt1 PROMPT "Nuevo" SIZE 35,12 PIXEL OF oDlg RESOURCE "NEW16X16" LEFT NOBORDER ;
ACTION xAction()
@ nHt-15, 48 BTNBMP oBt2 PROMPT "&Modific " SIZE 35,12 PIXEL OF oDlg RESOURCE "EDIT16X16" LEFT NOBORDER ;
ACTION yAction()
@ nHt-15,162 BTNBMP oBt5 PROMPT "&Salir " SIZE 35,12 PIXEL OF oDlg RESOURCE "SALIR16X16" LEFT NOBORDER ;
ACTION (oDlg:End())
BtnDegrad(oDlg) //Botones degradados (BTNBMP)
ACTIVATE DIALOG oDlg CENTERED
return nil
//-----------------------------
Function oBrwStyle(oBrw)
Local aRowGrad := { { .5, nRGB( 255, 255, 255 ), nRGB( 240, 240, 240 ) }, ;
{ .5, nRGB( 240, 240, 240 ), nRGB( 232, 232, 232 ) } }
Local aSelGrad := { { .5, RGB( 255, 255, 180 ), RGB( 255, 237, 178 ) }, ;
{ .5, RGB( 255, 218, 103 ), RGB( 255, 233, 162 ) } }
WITH OBJECT oBrw
:nColDividerStyle := 5
:nMarqueeStyle := 5 //MARQSTYLE_HIGHLCELL
:nColorPen := Rgb( 225, 225, 225 )
:nRecSelColor := nRGB( 240, 240, 240 )
:bClrSel := { || { CLR_BLACK, RGB( 255, 255, 255 ) } }
:bClrSelFocus := { || { CLR_BLACK, aSelGrad } }
:bClrRowFocus := { || { CLR_BLACK, aRowGrad } }
:bClrGrad := { | lInvert | If( !lInvert, { { 0.5, nRGB( 255, 255, 255 ), nRGB( 240, 240, 240 ) }, ;
{ 0.5, nRGB( 240, 240, 240 ), nRGB( 232, 232, 232 ) } },;
{ { 0.50, 12961221, 16777215 }, { 0.50, 16777215, 12961221 } } ) }
:bClrHeader := {|| { CLR_BLUE, nRGB( 245, 245, 245 ) } }
:bClrFooter := {|| { CLR_BLUE, 16777215 } }
:lAllowRowSizing := .f.
:lAllowColSwapping := .f.
:lAllowColHiding := .f.
:lKinetic := .f.
:lColDividerComplete := .t.
:lFooter := .t.
:nHeaderHeight := 24
:nFooterHeight := :nHeaderHeight
END
Return nil
//------------------------
Function BtnDegrad(oWn)
local n
if bClrGradBtn != NIL
For n:=1 to len(oWn:aControls)
if oWn:aControls[n]:ClassName()=="TBTNBMP"
oWn:aControls[n]:bClrGrad = bClrGradBtn
endif
Next
endif
Return nil
Uwe
Thank you .. I am playing with the colors .. without making all the values the same .. is there a way to just make the color a solid light grey without any gradient ?
Rick Lipkin
:bClrHeader := {|| { CLR_BLUE, nRGB( 245, 245, 245 ) } }
:bClrFooter := {|| { CLR_BLUE, 16777215 } }Francisco
Unfortunately the above interpretation of your solution did not work .. still have the light blue headers and footers 
Rick Lipkin
Rick, try with oBrw:l2007 := .F.
oLbx:l2007 := .F. // light grey
oLbx:bClrGrad := { | lInvert | If( ! lInvert, ;
{ { 0.50, 15790320, 15790320 }, ;
{ 0.50, 15790320, 15790320 } }, ;
{ { 0.50, 15790320, 15790320 }, ;
{ 0.50, 15790320, 15790320 } } ) }Rick Lipkin wrote:Francisco
Thank you for your suggestion .. going to try your solution :
:bClrHeader := {|| { CLR_BLUE, nRGB( 245, 245, 245 ) } } :bClrFooter := {|| { CLR_BLUE, 16777215 } }
Rick Lipkin
is there a way to just make the color a solid light grey without any gradient ?
//------------------------
Function FapBrwSetup(oBrw)
local nFONDO1 := RGB(215, 215, 215)
local nFONDO2 := RGB(235, 235, 235)
local nAZUL := RGB( 0, 0, 128)
WITH OBJECT oBrw
:l2007 := .f.
:nRecSelColor := nFONDO1
:nStyle := nAnd( :nStyle, nNot( WS_BORDER ) )
:nMarqueeStyle := MARQSTYLE_HIGHLROW //ilumina toda la linea
:bClrHeader := {|| { nAZUL, nFONDO1, } }
:bClrFooter := :bClrHeader // Colores texto de footers
:bClrStd := {|| IF( oBrw:nArrayAt() % 2 == 0, {nAZUL, nFONDO1}, {nAZUL, nFONDO2} ) }
:bClrSel := {|| { nAZUL, CLR_WHITE } } // para barra de linea selecc cuando el control no tiene el foco
:bClrSelFocus := { || { CLR_WHITE, nAZUL } } // para barra de linea selecc cuando el control tiene el foco
:nColDividerStyle := LINESTYLE_LIGHTGRAY
:nRowDividerStyle := LINESTYLE_LIGHTGRAY
END
Return nil
Thank you ALL !! appreciate your help
Rick Lipkin
Hi
How to change xBrowse Header character color? I saw it black color.
oBrw4:aCols[2]:bClrHeader := { || { CLR_RED, 155 } }
oBrw4:kleuren:bClrHeader := { || { CLR_GREEN, 155 } } // Col Nr. changed to HeaderName
WITH OBJECT oBrw
:bClrHeader := { || { 255, } } // red text and keeps the background
// same for footer
:bClrFooter := { || { 255, } } // red text and keeps the background
END