🚀 go-pugleaf

wolf@web.b15.ingr.com (Wayne Wolf) writes:
: 
: 
: Fellow Windows controls hackers...  I needa somea guidance
: 
: I am trying to create a poor-man's multicolumn gadget in windows without 
: having to resort to too much custom control business.  To do this, I
: am sticking listboxes side by side, making the rightmost listbox vertscroll.
: This works great and everything plays in tandem.  However, the problem
: is that I need also horizontal scrolling in each field of the multi-column
: gadget.  This works like a charm also, except that when a listbox is declared
: horizontal scroll, it by default becomes vertical scroll as well.  The
: bugger with this is that those darned vertical scrollbars now pop-up on the
: other listboxes instead of just the rightmost one.  VERY UGLY.  
: 
: My question here is, does anyone have any thoughts on how to solve this,
: still using listboxes instead of custom controls?  Ideally, I would
: like a way to just tell the listbox not to display its vertical scrollbar
: at any time, but as far as I can tell, there is no support for this 
: functionality (anytime the box overfills, a scrollbar automagically pops
: up, no ifs-ands-buts).  I realize the listbox's capability for multiple 
: columns, but the functionality of this is much too limiting.
: 
: Of course, if anyone is willing to share code/design for a custom control
: for a multicolumn gadget, this would be even better. :-)
: 
: ..
: 
: Wayne Wolf
: wolf@web.b15.ingr.com

Maybe this is a solution:

In Visual Basic it is not possible to declare a listbox "horizontal scroll",
so I have used a (documented) "trick" to get one. This may be useful for
you as well, I don't know.

In VB you prepare for the call with these lines:

Const LB_SETHORIZONTALEXTENT = &H400 + 21
Const NUL = &O0

ListBx.SetFocus
ListHwnd% = GetFocus()
BoxWidth% = <VIRTUAL BOX WIDTH>

X& = SendMessage (ListHwnd%, LB_SETHORIZONTALEXTENT, BoxWidth%, NUL)

This gives me in VB a horizontal scroll bar but no vertical.

-- 
=============================================================================
 Tommy Petersson              tope@enea.se              Enea Data AB, Sweden
=============================================================================