XBrowse, how to turn on lines?

[James Bott]

It has been awhile since I worked with XBrowse. I seem to remember that lines were on by default at one time, now they are off.

I note that there is a LINES parameter in the XBROWSE definition so you can do this to turn on lines:

@ 0,0 xbrowse oBrw of oWnd LINES

However, all my old code is using OOP class syntax like this:

oBrw:= TXBrowse():new(oWnd)

Since the XBrowse class deviates somewhat from a normal class, the LINES parameter is processed by the XbrowseNew() function rather than the xBrowse:new() method, so I cannot figure out how to just turn on lines. I note that there is a way to turn off lines:

oBrw:nColDividerStyle := LINESTYLE_NOLINES
oBrw:nRowDividerStyle := LINESTYLE_NOLINES

According to my old notes, you used to just define a color to turn on the lines, but this is not working now:

oBrw:nColDividerStyle:= LINESTYLE_BLACK

Also, I do not see a setLines() method. And the xbrowse:new() method only accepts the oWnd parameter. And I don't see a class DATA lLines.

So, is there a way to turn on lines without using the DEFINE XBROWSE...LINES parameter?

Regards,
James

[cnavarro]

James, you try ::lFullGrid := .T.

[James Bott]

Cristobal,

Wow, that was a quick reply.

I just tried it and there are still no lines.

Thanks,
James

[cnavarro]

James is rare

lFullGrid,; // Draw full horiz and vert lines even if not all rows have data

Your are other sets in others DATAs?

[James Bott]

Here is my test code. There are no lines.

Code: Select all  Expand view  RUN

#include "fivewin.ch"
#include "xbrowse.ch"


function Main()

   local oWnd, oBrw, oDbf

   use customer
   database odbf

   define window ownd
   
   @ 0,0 xbrowse oBrw of oWnd ;
         object odbf
         
   //oBrw:lColDividerComplete := .T.   // no effect
   
   oBrw:lFullGrid:=.t.  // no effect    
   
   oBrw:CreateFromCode()
   oBrw:nRowDividerStyle := LINESTYLE_BLACK

   oWnd:oClient := oBrw

   activate window oWnd

return nil

[cnavarro]

Yes, Try

Code: Select all  Expand view  RUN

   //oBrw:lFullGrid:=.t.  // no effect
   oBrw:nColDividerStyle := LINESTYLE_BLACK
   oBrw:nRowDividerStyle := LINESTYLE_BLACK

 

[James Bott]

Cristobal,

Code: Select all  Expand view  RUN

  oBrw:nColDividerStyle := LINESTYLE_BLACK
   oBrw:nRowDividerStyle := LINESTYLE_BLACK

I had already tried that, and it used to work, but doesn't now. I even just tried it again and it is not working for me.

I am using FWH 16.02 and I note that you are using 16.03 so it seems that must have been fixed in 16.03. I guess I need to upgrade again--upgrading always gets put on the bottom of the TO DO list.

Thanks for the help.

James

[cnavarro]

Ah, ok
I'll try with version 16.02

James, 16.02 is OK for me

[James Bott]

Cristobal,

Well, I'm baffled. Here is my screenshot:



It looks (from your screenshot) that you are using Harbour--I am using xHarbour. I wonder if that could be the difference?

I do note that if I use the LINES clause in the xbrowse definition that the lines do show.

James

[Rick Lipkin]

James

Add this to your code :

Code: Select all  Expand view  RUN

oLbx:nMarqueeStyle := MARQSTYLE_HIGHLROW
 

Rick Lipkin

[James Bott]

Rick,

oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW

Thanks but I had already tried that, and I just did it again. Still no lines.

Actually, there are lines on the highlight bar, but they only show as white vertical bars on the highlight bar itself.

James

[James Bott]

I tried the "if nothing else works, try rebooting" technique and that didn't show any lines either. Curiously, the highlight bar is now a different color than it was before I rebooted. Strange...

James

[James Bott]

I have just found that when you can get lines to show they are always black. These color settings don't work anymore.

Code: Select all  Expand view  RUN

     oBrw:nColDividerStyle := LINESTYLE_LIGHTGRAY
      oBrw:nRowDividerStyle := LINESTYLE_LIGHTGRAY

So, you can only have black lines or no lines. I am assuming the other manifest color constants don't work either, although I didn't try them.

James

[nageswaragunupudi]

Mr James

Let me first assure you this. There has been no change in the behavior regarding lines in any version from the time I started using xbrowse till today. So versions should not matter. Same way, xharbour or harbour and bcc or msvc and 32 bit/ 64 bit also does not matter.

The behavior is just the same today in all versions as it was when xbrowse was created.

[James Bott]

Rao,

Thanks, that's good to hear.

Have you tried my example code? If so, what is your result?

I am at a loss as to how to explain what I am seeing. The test code is very simple, and yet I do not get any lines and others do.

Any ideas?

James