Wow

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.

Ked

Hey. Just wanted to say that I like the new listbox style!

Strict
Import maxgui.drivers

Global window:TGadget=CreateWindow(AppTitle,50,50,640,480,Desktop(),1+2)
Global listbox:TGadget=CreateListBox(5,5,ClientWidth(window)-10,ClientHeight(window)-10,window,LISTBOX_MULTISELECT)

For Local i:Int=1 To 10
	AddGadgetItem(listbox,"Item "+i)
Next

Repeat
	WaitEvent()
	Select EventID()
		Case event_windowclose
			Select EventSource()
				Case window
					End
			EndSelect
		
		Case event_gadgetaction
			Select EventSource()
				Case listbox
					Print "ACTION!"
					
					Local items[]=SelectedGadgetItems(listbox)
					For Local i:Int=EachIn items
						Print GadgetItemText(listbox,i)
					Next
			EndSelect
	EndSelect
Forever

And that I like the new splitter gadget in MaxGUI.ProxyGadgets!