
video 640 480 8
clearscr 255 255 255

color 0
text 40 40 "Choose an item"

mark
	listbox 100 100 400 300
	win message "Result : "@0 "ListBox TEST"
loop
waitkey
exit


listbox:
setupdll handle CreateWindow farstring farstring ulong int int int int handle handle handle farstring
setupdll void SetDlgItemText handle int farstring
setupdll int GetDlgItemText handle int farptr int
setupdll ulong SendDlgItemMessage handle int uint uint fs
setupdll long SendDlgItemMessage SendDlgItemMessageB handle int uint uint ulong
setupdll bool DestroyWindow handle

local flags @WS_VISIBLE|@WS_BORDER|@WS_CHILD|0x00200000

set IDC_ED +2000
set hlist CreateWindow("ListBox","dialog.txt",@flags,@1,@2,@3-@1,@4-@2,@winhandle,@IDC_ED,@wininstance,@NULL)

databegin lbitems
mark @
	SendDlgItemMessage @winhandle @IDC_ED 0x400+1 0 @
	dataskip 1
loop
	
mark
	local retval SendDlgItemMessageB(@winhandle,@IDC_ED,0x400+9,0,0)
	if @retval>=0
		break
	endif
loop

DestroyWindow @hlist
color 0 0 0
databegin lbitems
dataskip (@retval*2)+2
return @

lbitems:
8
"Test1"	"t1.txt"
"Test2"	"t2.txt"
"Test3"	"t3.txt"
"Test4"	"t4.txt"
"Test5"	"t5.txt"
"Test6"	"t6.txt"
"Test7"	"t7.txt"
"Test8"	"t8.txt"
