topic-8842

Posts: 9022

Joined: Thu Oct 06, 2005 08:17 PM

Tcbrowse 2 colour one for each line

Posted: Fri Jan 11, 2008 09:02 AM

James Bott wrote: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

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

Patrick Mast

Posts: 246

Joined: Sat Mar 03, 2007 08:42 PM

Tcbrowse 2 colour one for each line

Posted: Fri Jan 11, 2008 09:52 AM

Any news on how to do this in TWBrowse?

Tx

Enrico Maria Giordano

Posts: 9022

Joined: Thu Oct 06, 2005 08:17 PM

Tcbrowse 2 colour one for each line

Posted: Fri Jan 11, 2008 10:08 AM

It works fine using the same technique.

EMG

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Tcbrowse 2 colour one for each line

Posted: Fri Jan 11, 2008 10:24 AM

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 Collapse

   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.

Regards

G. N. Rao.

Hyderabad, India

Enrico Maria Giordano

Posts: 9022

Joined: Thu Oct 06, 2005 08:17 PM

Tcbrowse 2 colour one for each line

Posted: Fri Jan 11, 2008 10:45 AM

nageswaragunupudi wrote: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

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM