ComboBox - Set to 'open' sate ?

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Jim Brown

Thanks guys. Works perfectly *

* need to use SetPointer POINTER_DEFAULT otherwise pointer is stuck on busy 'hour glass'

SuperStrict

Extern "Win32"
	Function SendMessageA(hwnd%,wMsg%,wParam%,lParam%)
End Extern

Const CB_SHOWDROPDOWN%=$14F

Global win:tgadget=CreateWindow("temp",200,200,400,300,Null)

Global cb:tgadget=CreateComboBox(10,25,130,20,win)
AddGadgetItem cb,"test abcd"
AddGadgetItem cb,"test zyxwv"
SelectGadgetItem cb,0
SendmessageA QueryGadget(cb,QUERY_HWND),CB_SHOWDROPDOWN,1,0
ActivateGadget cb
SetPointer POINTER_DEFAULT

Repeat
	Select WaitEvent()
		Case EVENT_WINDOWCLOSE
		Exit
	End Select
Forever