TWBrowse vertical scrollbar always

[Enrico Maria Giordano]

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

EMG

[James Bott]

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:

Code: Select all  Expand view  RUN

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

Regards,
James

[Enrico Maria Giordano]

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

EMG

[Roger Seiler]

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

[Roger Seiler]

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

[ask]

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>:nstyle:=nOr( WS_CHILD, WS_HSCROLL,;
WS_BORDER, WS_VISIBLE, WS_TABSTOP)

regards
A.S.K

[Enrico Maria Giordano]

Thank you. I made some experiment without luck...

EMG