Bug in TWBrowse - nClrPane

[Enrico Maria Giordano]

Just move the cursor on the second column and you will see the first column becoming green:

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg, oBrw

    USE TEST

    DEFINE DIALOG oDlg;
           SIZE 400, 400

    @ 0, 0 LISTBOX oBrw FIELDS TEST -> last,;
                               TEST -> first

    oBrw:bLogicLen = { || LastRec() }

    oBrw:lCellStyle = .T.

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

    ACTIVATE DIALOG oDlg;
             ON INIT oDlg:SetControl( oBrw );
             CENTER

    CLOSE

    RETURN NIL

EMG

[Antonio Linares]

Enrico,

Have you tested it with previous versions of FWH 8.05 ? thanks,

I mean 8.04, 8.03, ...

[Enrico Maria Giordano]

nClrPane is a codeblock starting from the current 8.05.

EMG

[Antonio Linares]

Enrico,

Yes, you are right, thanks

[Antonio Linares]

It seems related to oBrw:lCellStyle = .T.

without it, it works fine

I keep searching...

[Antonio Linares]

Enrico,

Fixed! This is the right code for Class TWBrowse line 2282-2284 (a n was missing):

Code: Select all  Expand view  RUN

               SetBkColor( hDC, If( nColAct != nil, If( ValType( nClrBack ) == "B",;
                             Eval( nClrBack, n ), nClrBack ),;
                             If( ValType( nClrPane ) == "B", Eval( nClrPane, n ), nClrPane ) ) )


Thanks!

[Enrico Maria Giordano]

Thank you!

EMG

[anserkk]

Where can I find TWBrowse.Prg to make the updation.

I expected TWBrowse.Prg in the folder \FWH\Source\Classes but I could not find the same anywhere in the FWH Folder

Regards

Anser
FWH 8.06

Enrico,

Fixed! This is the right code for Class TWBrowse line 2282-2284 (a n was missing):

Code: Select all  Expand view  RUN

               SetBkColor( hDC, If( nColAct != nil, If( ValType( nClrBack ) == "B",;
                             Eval( nClrBack, n ), nClrBack ),;
                             If( ValType( nClrPane ) == "B", Eval( nClrPane, n ), nClrPane ) ) )


Thanks!

[nageswaragunupudi]

\FWH\source\classes\wbrowse.prg

[Rick Lipkin]

Anser

You have to ( also ) make the same edit just above those lines and add the ,n to nClrText

Rick

[anserkk]

Thank you,

Mr.Nageswaragunupudi and Mr.Rick Lipkin.

As per your advice I updated \FWH\source\classes\wbrowse.prg

Regards
Anser

[driessen]

Hello,

This topic is about the background color of columns in a listbox.

But how do I define the background color of a row ?

Thanks.

[Enrico Maria Giordano]

Hello,

This topic is about the background color of columns in a listbox.

But how do I define the background color of a row ?

Thanks.

Code: Select all  Expand view  RUN

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

EMG

[driessen]

Enrico,

Isn't your example to define the color of a column ? I want to change the background color of a row.

Thanks.

[Enrico Maria Giordano]

Please try.

EMG