FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour TWBrowse vertical scrollbar always
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
TWBrowse vertical scrollbar always
Posted: Mon Dec 26, 2005 04:02 PM

Is there an easy way to set the TWBrowse vertical scrollbar always showing even if there are no rows or one row only?

EMG

Posts: 4840
Joined: Fri Nov 18, 2005 04:52 PM
TWBrowse vertical scrollbar always
Posted: Mon Dec 26, 2005 06:45 PM
Enrico,

This is from an old message. I don't know if it works.

When a zero value range is set on a scrollbar, it becomes invisible,
so you may modify your bLogicLen codeblock to return one, when
it is zero:

   <oBrw>:bLogicLen = { || If( NumberOfRecords == 0, 1, ... ) }


Regards,
James
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
TWBrowse vertical scrollbar always
Posted: Mon Dec 26, 2005 09:06 PM

Unfortunately not. :-( I'm afraid that it is harder than this.

EMG

Posts: 223
Joined: Thu Dec 01, 2005 03:34 PM
TWBrowse vertical scrollbar always
Posted: Tue Dec 27, 2005 12:32 PM

Enrico,

I don't know if this will help, because it has to do with listbox instead of Wbrowse.

When designing a listbox in Borland Resource Workshop, in the properties dialog if you specify "scroll bar always" and then look at the code that RW generates, it inserts LBS_DISABLENOSCROLL in the code for the listbox. Maybe if you can discover how this works you may be able to apply the same concept to Wbrowse.

Good luck!

  • Roger
Posts: 223
Joined: Thu Dec 01, 2005 03:34 PM
TWBrowse vertical scrollbar always
Posted: Tue Dec 27, 2005 12:49 PM

Enrico,

Here is another clue...

In scroll.c of fwh\source\winapi there is SIF_DISABLENOSCROLL

Maybe you can figure out how to use that.

  • Roger
Posts: 99
Joined: Wed Nov 02, 2005 10:40 AM
Re: TWBrowse vertical scrollbar always
Posted: Tue Dec 27, 2005 01:24 PM
EnricoMaria wrote:Is there an easy way to set the TWBrowse vertical scrollbar always showing even if there are no rows or one row only?

EMG


I would use <BrowseObject>:=nOr( WS_CHILD, WS_HSCROLL,;
WS_BORDER, WS_VISIBLE, WS_TABSTOP)

regards
A.S.K
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
TWBrowse vertical scrollbar always
Posted: Tue Dec 27, 2005 01:27 PM

Thank you. I made some experiment without luck... :-(

EMG

Continue the discussion