'listbox with horizontal scrollbar
'by Alyce Watson, Jerry Muelver

NoMainWin
WindowWidth=260:WindowHeight=180

'make a long line and put into array for demo
For i = 1 to 10
m$="Line ";i;" of text to put in the listbox."
a$(i)=m$
Next

stylebits #1.a, _WS_HSCROLL,0,0,0
button #1.b, "Get Choice",[choice],UL,120,10,120,24
button #1.quit, "Exit",[quit],UL,120,40,120,24
Listbox #1.a, a$(),[do],10,10,100,100
Open "Scroll List" For Window As #1
#1 "trapclose [quit]"

'set font of known width:
#1.a "font ms_sans_serif 6 12"

'select an item
#1.a "selectindex 5"

'estimate horizontal extent needed by multiplying
'font width+1 by length of text
textLen=7*(len(m$))

'set horizontal extent:
call SendMessage hwnd(#1.a),_LB_SETHORIZONTALEXTENT,textLen,0

'resize listbox to accomodate horizontal scroll bar
#1.a "locate 10 10 100 120"
#1 "refresh"

Wait
[quit]
Close #1:End

[choice]
#1.a "selection? sel$"
notice "Chosen:  ";sel$
wait

Sub SendMessage hWnd,msg,w,p
    CallDLL #user32, "SendMessageA",_
    hWnd As Long, _
    msg As Long, w As Long,_
    p As long, re As Long
    End Sub