FiveTech Software tech support forums

Hi,

I've just recompiled my app with latest xHarbour (commercial) and FW (10.05) and have noticed that the horizontal & vertical scroll bar has disappeared in a xbrowse that browses an array rather than a DBF/SQL Table. I think i can just make out the vertical scroll bar just off of the edge of the browse.

If i query the lHScroll & lVScroll they both return .T.

I'm using a resource file to display the dialog with the xBrowse

I use the AUTOCOLS & AUTOSORT parameter.

This was working fine in (09.05)

Any ideas?

Regards

Pete

Update

After doing more tests, it seems to do this on some DBF browses as well - i havent found the common thing between the browses yet!!

I have downgraded my Fivewin a few times: 10.02 does not work, 09.11 works

I think i've narrowed it down. I think the calculation of the size of the browse when building from a resource is being calculated incorrectly. If i manually resize the browse & it's relating dialog based on each of the column widths the scroll bars appear fine.

Pete

Just checked all other versions of FW and the changes made in FW 10.02 have caused this problem - 10.01 works fine.

Can anyone help?

Anyone got any ideas?

regards,

Pete

Pete,

Are you using resources to create the dialogs where the xbrowses are shown ?
If yes, have you specified "TXBROWSE" as the type of control in your resources ?

A common mistake is to specify "LISTBOX" instead of "TXBROWSE"

yes we do use resources to create the dialogs and yes they are specified as txbrowse.

An example of how it appears in my resource is below:

CONTROL "", 101, "TXBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 9, 25, 380, 144

Regards,

Pete

Any ideas?

Regards,

Pete

Pete,

You have to scpecify WS_HSCROLL and WS_VSCROLL styles also in your resource entry:

CONTROL "", 101, "TXBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | WS_HSCROLL | WS_VSCROLL, 9, 25, 380, 144

Thanks Antonio - works great now!!

best regards,

Pete

very good

Spoke to soon - sorry!!

If i have an xBrowse on a single dimension array and i move the horizontal scroll bar to the right, i get a bound error array message, see below:

Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... }
[ 2] = N 0

Stack Calls
===========
Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE:TXBROWSE(476)
Called from: => TXBROWSE:COLATPOS(0)
Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE:TXBROWSE(478)
Called from: => TXBROWSE:SELECTEDCOL(0)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT(1192)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY(1174)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1439)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT(10470)
Called from: .\source\classes\WINDOW.PRG => _FWH(3378)
Called from: => DIALOGBOXINDIRECT(0)

Pete,

We are going to check it, anyhow in the meantime just remove the style WS_HSCROLL in your resource.

Also, please right click on it after that to check if it keeps failing, thanks

I was going to try oBrw:lHscroll := .F. but i couldnt get that to work so I will remove the WS_HSCROLL.

I tried to right click and it did look as if it failed multiple times.

The error only occurs when you drag the thumbnail - clicking on the left/right buttons is ok.

Pete

Pete,

Please modify the Method ColAtPos() in Class TXBrowse this way:

It seems as it solves the bug