How to show Xbrowse-column-colors on a selected brush ?

[ukoenig]

Hello,

during intensive xBrowse testing, I noticed some problems using oBrw:SetBackGround
I noticed in xBrowse-class : oBrw:lTransparent := .T.
To find out what happens, I used a brush function.
The reason is, the brush is painted BEHIND the rows and with using oBrw:lTransparent := .T.,
the defined columns are not visible.
The options COLOR and ROWCOLOR-change works, because it doesn't use oBrw:SetBackGround.

defined 2 column-colors for field SALARY
( light = value > 0, dark = value = 0 and text-color red for deleted )

oBrw:aCols[ 10 ]:bClrstd := {|| { If( ( oBrw:cAlias )->( Deleted() ), 255, nXbrColTxt ), ;
If( ( oBrw:cAlias )->SALARY = 0, nXbrCol2, nXbrCol1 ) } }

THE PROBLEM is shown at the end of :

METHOD SetBackGround( uBack, uBckMode ) CLASS TXBrowse
...
...
if oBrush != nil
::lTransparent := .t. // set to .F. shows in picture 3, how the brush is displayed
::SetBrush( oBrush )
::MakeBrush()
endif
endif
endif
return Self

it works fine with using oBrw:bClrStd on COLOR and ROWCOLOR-change



the second defined rowcolor is used :



shows the brush painted BEHIND the rows and is only visible with oBrw:lTransparent := .T. !



Best regards
Uwe

[nageswaragunupudi]

I don't think there are any problems with xbrowse. All the features work the way they were intended to work.
There are a plethora of options and we need to choose the appropriate ones to get the effect what we want.
We can set entire browse transparent or selected columns transparent have a brush for the entire browse or different brushes for cells in different columns, etc

[ukoenig]

I used for a test sample XBRGRAD.prg with the same result.
how to add column-colors with a defined xbrowse-brush ?

from original :

@ 10,10 XBROWSE oBrw ;
COLUMNS "First", "City", "State", "Married", "HireDate", "Age", "Salary" ;
COLSIZES nil,10 OF oDlg ;
SIZE 360,170 PIXEL ;
JUSTIFY .T. ;
ALIAS cAlias AUTOSORT FOOTERS LINES CELL NOBORDER ;
BACKGROUND aGrad VERTICAL

added colum-colors

WITH OBJECT oBrw:Salary
:nTotal := 0 ; :lTotal := .t. ; :nEditType := EDIT_GET
:bClrstd := {|| { If( ( oBrw:cAlias )->( Deleted() ), 255, nXbrColTxt ), ;
If( ( oBrw:cAlias )->SALARY = 0, nXbrCol2, nXbrCol1 ) } }
END



column only visible with deleted background :
BACKGROUND aGrad VERTICAL

@ 10,10 XBROWSE oBrw ;
COLUMNS "First", "City", "State", "Married", "HireDate", "Age", "Salary" ;
COLSIZES nil,10 OF oDlg ;
SIZE 360,170 PIXEL ;
JUSTIFY .T. ;
ALIAS cAlias AUTOSORT FOOTERS LINES CELL NOBORDER



oBrw:lTransparent := .F.
shows the defined column, but the rows without brush !
I think that is the reason for using oBrw:lTransparent := .T.



Best regards
Uwe

[ukoenig]

I found a solution.
Now it works like expected using gradient, brush and transparent
oBrw:SetBackGround is ENABLED !
Two solid brushes are defined, to paint the two column-colors.
I stll have to check to show the defined textcolor for DELETED on gradient and transparent.
Using a brush, it works.

The way it looks now
the column-color is painted ONLY on existing data.
the empty row ( bottom ) shows the brush :







Working on a extended version of sample XBRGRAD.prg with many new options



Best regards
Uwe