Tcbrowse 2 colour one for each line

[Enrico Maria Giordano]

Granted it will be easier right now to use the modified TCBrowse, but then you will have to modify each new version of FWH.

I think this is a bug that should be fixed in the standard class.

EMG

[Patrick Mast]

Any news on how to do this in TWBrowse?

Tx

[Enrico Maria Giordano]

It works fine using the same technique.

EMG

[nageswaragunupudi]

TWBrowse:

Mr James Bott's code using skip block works perfectly with TWBrowse also. Personally I prefer to use his method in my programs.

But if some one still insists on modifying the twbrowse.prg ( I personally consider it not worthwhile ) then here is the way:

1) Create new data nRowScrol ( or any other similar name ) and initialize with 0.
2) In GoUp and GoDown methods keep swapping the value between 0 and 1.
3) In paint method make the value of this data as Zero.
4) Modify the inline code of DrawLine method as below:

Code: Select all  Expand view

   METHOD DrawLine( nRow ) INLINE ;
               wBrwLine( ::hWnd, ::hDC, If( nRow == nil, ::nRowPos, nRow ), ;
               Eval( ::bLine, Self ), ::GetColSizes(), ::nColPos,;
               ::nClrText, ;
               iif( valtype( ::nClrPane ) == 'B', eval( ::nClrPane, nRow + ::nRowScrol), ::nClrPane) ,;
               If( ::oFont != nil, ::oFont:hFont, 0 ),;
               ValType( ::aColSizes ) == "B", ::aJustify, nil, ::nLineStyle,,, ::oVScroll,;
               ::bLogicLen  )


I did not test it but this is the logic I used in modifying the TCBrowse.Prg. It should work for TWBrowse also.
But I myself prefer to use Mr James Bott's code and not to modify the FWH source for these two classes. If Mr. Antonio himself releases similar facility, I would welcome that.
TXBrowse, ofcourse, is a different case.

[Enrico Maria Giordano]

But if some one still insists on modifying the twbrowse.prg ( I personally consider it not worthwhile ) then here is the way:

My opinion is that the parameter nRow passed to the bSkip codeblock should be enough for this task and the current behavior is a bug that should be fixed.

EMG

[nageswaragunupudi]

Only TCBrowse evaluates bClrPane with parameters row number and column number.

TWBrowse evaluates without any parameters.

[Enrico Maria Giordano]

Only TCBrowse evaluates bClrPane with parameters row number and column number.

TWBrowse evaluates without any parameters.

You are right. Ok for James solution.

EMG

[James Bott]

AHF,

>I use already a Tcbrowse subclass.

Great!

James