FiveTech Support Forums

Dear all,

In my DLL file, I put a listbox and selected both Vertical and Horizontal scroll bar. The source code is:

REDEFINE LISTBOX oLbx FIELDS ID 110 OF oDlg

When I run the application, there is no horizontal scroll bar in the listbox, there is vertical scroll bar only. If I use this code:
@ 1, 1 LISTBOX oLbx FIELDS SIZE 280, 140 OF oDlg without using DLL file, then it works fine.

Does anyone can solve this problem?

Dear Andy,

Put following line before DEFINE LISTBOX
TWBrowse():lHScroll:= .T.

Regards,
Dutch

Dear Dutch,

Thanks a lot for your help.

dutch wrote:Dear Andy,

Put following line before DEFINE LISTBOX
TWBrowse():= .T.

Regards,
Dutch

As far as I know, there is no lHScroll instance variable in TWBrowse class.

EMG

Dear Enrico,

Thank you for your information, I try to put TWBrowse():lHScroll:= .T. before DEFINE LISBOX, then, I got an Error description: Error Objects/6 No Exp. Method: TWBROWSE:_LHSCROLL.

Do you have any suggestion?

You should try to put it after REDEFINE LISTBOX FIELDS command.

It should not work anyway.

EMG

Dear Enrico,

Now I try to put it after REDEFINE LISTBOX FIELDS command and It has occurs the same error description. Do you have better way to fix it?

Andy,

This is from my notes:

To turn off the scrollbars do:

// Turn off the horizontal
oLbx:setRange( 0, 0 )
oLbx:= Nil

// Turn off the vertical
oLbx:setRange( 0, 0 )
oLbx:= Nil

Setting oLbx:nStyle does not seem to have any effect.

For horizontal scrolling you will also need to freeze all the columns due to a bug. When you turn off horizontal scrolling then click on the last column it still scrolls one column to the right. Freezing all the columns fixes this.

oLbx:= 5 // or whatever no. of columns you have.

There something else to consider. The listbox in Workshop is NOT the same listbox we use as a browse. We use the term "listbox" as the command in our code, but the preprocessor changes it to call our TWBrowse class. Note that you can actually define a "listbox" in Workshop and it will work kind-of in your code, but it will have problems.

So the solution is that you have to add a custom control named "TWBrowse" to Workshop, then redefine that in your code instead of using the "listbox" in Workshop.

James

Dear All,

Sorry, this Twbrowse():lHScroll instance is from TWbrowse classes of Hernan Ceccarelli.

Best Regards,
Dutch

Dear James,

Thank you very much for your help. It works fine now.

I also would like to thank all who gave me a hand.