Listbox color for a single column

[Rick Lipkin]

To All

I am using the standard TWBrowse ( listbox ) and I want to be able to turn a cell in a row ( column status ) a certain color .. crudely like this

col1 col2 col3 status

xxx xxx xxx RED
xxx xxx xxx GREEN
xxx xxx xxx YELLOW

I can turn the entire row a particular color based on the data in the "status" column .. but turning the entire row a particular color gets too busy... just want to turn the "status" cell in each row a certain color based on the data in that cell.

Any Ideas ??

Thanks
Rick Lipkin

[Enrico Maria Giordano]

Try using nClrPane property:

Code: Select all  Expand view  RUN

oBrw:nClrPane = { | nCol | If( nCol = 1, CLR_HRED, CLR_HGREEN ) }

EMG

[Rick Lipkin]

Enrico

Sorry for the late post .. first chance I have had to get back to this color column issue .. I looked at the samples brwcolor.prg .. however it does not use table fields and it is hard to interpret the array values ..

Here is my code .. I want to look at the last defined column and test for the value of "row_color" = "GREEN" to turn that column green.

The sample code turns the entire row green .. not just the last column .. using standard Twbrowse FWH class ..

Rick Lipkin

//----- Reporting tab

REDEFINE LISTBOX oLBX FIELDS ;
if(oRsRpt:eof, , oRsRpt:Fields("DATE_REPORTED"):Value),;
if(oRsRpt:eof,str(0,4) , str(oRsRpt:Fields("reporting_interval"):Value,4)),;
if(oRsRpt:eof, , oRsRpt:Fields("projmgr"):Value),;
if(oRsRpt:eof, , oRsRpt:Fields("start_date"):Value),;
if(oRsRpt:eof, , oRsRpt:Fields("end_date"):Value),;
if(oRsRpt:eof, , str(oRsRpt:Fields("est_budget"):Value,12,2)),;
if(oRsRpt:eof, , oRsRpt:Fields("final"):Value),;
if(oRsRpt:eof, , oRsRpt:Fields("row_color"):Value), ;
HEADERS "Date Rpt", ;
"Int", ;
"ProjMgr", ;
"StartDt", ;
"EndDt", ;
"EstBudt", ;
"Final", ;
"Status" ;
SIZES 80,40,80,80,80,90,50,70 ;
ID 111 of oFld1:aDialogs[1] ;
ON DBLCLICK( _Rptview(oRsRpt, oRsProj, "V", cPROJECTEID) ,;
oLbx:ReFresh(), ;
oLbx:SetFocus(), SysReFresh() );
UPDATE

IF .not. oRsRpt:eof
oLbx:bLogicLen := { || oRsRpt:RecordCount }
oLbx:bGoTop := { || oRsRpt:MoveFirst() }
oLbx:bGoBottom := { || oRsRpt:MoveLast() }
oLbx:bSkip := { | nSkip | Skipper( oRsRpt, nSkip ) }
oLbx:cAlias := "ARRAY"

oLbx:nClrPane = { | nCOL | if( oRsRpt:Fields("row_color"):Value = "GREEN", CLR_GREEN, CLR_WHITE ) }

ENDIF

[mmercado]

The sample code turns the entire row green .. not just the last column .. using standard Twbrowse FWH class ..

Hi Rick:

I'm afraid that standard TWBrowse is not a column based browser, then you can't define column or cell colors. That is possible only with TCBrowse or TXBrowse talking about standard FWH browsers.

Regards.

Manuel Mercado.

[Enrico Maria Giordano]

This is not true. From FWH May 2008 whatsnew.txt:

* Enhancement: Class TWBrowse DATA nClrPane if used as a codeblock, now receives a numeric
parameter with the column to be displayed, so you can change the color of a single cell.
Please review samples\BrwColor.prg.

EMG

[Enrico Maria Giordano]

The sample code turns the entire row green .. not just the last column .. using standard Twbrowse FWH class ..

It is a bug that I already reported here:

http://forums.fivetechsoft.com/viewtopic.php?t=11385

EMG

[Antonio Linares]

Enrico,

Already fixed!

[Enrico Maria Giordano]

Great, thank you!

EMG

[mmercado]

This is not true. From FWH May 2008 whatsnew.txt:Enhancement: Class TWBrowse DATA nClrPane if used as a codeblock, now receives a numeric
parameter with the column to be displayed, so you can change the color of a single cell

Sorry I'm not updated

Best regards.

Manuel Mercado

[Rick Lipkin]

Antonio

What was the fix ?? something I can modify on my end ??

Rick Lipkin

[Antonio Linares]

Rick,

The fix is explained here:
http://forums.fivetechsoft.com/viewtopic.php?t=11385

Yes, you can easily implement it.

[Rick Lipkin]

Antonio

I made the change in Wbrowse and included it to my compile list .. I had to modify the code block .. here was the fix:

oLbx:nClrPane = { | nCOL | if( (nCOL = 8 .and. oRsRpt:Fields("row_color"):Value = "GREEN"), CLR_GREEN, CLR_WHITE ) }

Thanks
Rick Lipkin

[Antonio Linares]

Rick,

Yes, you can implement the codeblock the way you need it

[Rick Lipkin]

Antonio

You might want to look a nClrText as well .. I have not had a chance to track it down and look in Wbrowse .. I wanted clr_white text on a clr_green background ..

nClrText seems to exibit the same row behavoir and does not seem to respect the cell designation.

Rick LIpkin

[Antonio Linares]

Rick,

Fixed, the same n was missing in Eval( nClrTxt, n )

Thanks!