Combo/List Box in menu bar??

BlitzMax Forums/MaxGUI Module/Combo/List Box in menu bar??

FBEpyon

(Posted 2007) [#1]

Is it possible to put a combo box in the menu bar. I want to make a map editor and it would be cool to have this options.

jsp	(Posted 2007) [#2]

No, it's not. But you can workaround like this:

'Source Code created on 20 Jun 2007 22:58:47 with Logic Gui Version 2.0 Build 239
Global	ChildWindow1:TGadget

Local Win:TGadget = CreateWindow:TGadget("Win",218,53,275,157,Null,WINDOW_TITLEBAR|WINDOW_RESIZABLE |WINDOW_MENU |WINDOW_STATUS |WINDOW_CLIENTCOORDS )
		ChildWindow1:TGadget = CreateWindow:TGadget("ChildWindow1",250,90,119,105,Win:TGadget,WINDOW_HIDDEN )
			Local ListBox1:TGadget = CreateListBox:TGadget(0,0,119,105,ChildWindow1:TGadget,Null)
				AddGadgetItem( ListBox1:TGadget,"Item1",GADGETITEM_DEFAULT )
				AddGadgetItem( ListBox1:TGadget,"Item2",GADGETITEM_NORMAL )
				AddGadgetItem( ListBox1:TGadget,"Item3",GADGETITEM_NORMAL )
		Local Button1:TGadget = CreateButton:TGadget("Click Me",33,38,75,23,Win:TGadget,BUTTON_PUSH)

Repeat
	WaitEvent()
	Select EventID()
		Case EVENT_WINDOWCLOSE
			Select EventSource()
				Case Win	Win_WC( Win:TGadget )
				Case ChildWindow1	ChildWindow1_WC( ChildWindow1:TGadget )
			End Select

		Case EVENT_GADGETACTION
			Select EventSource()
				Case ListBox1	ListBox1_GA( ListBox1:TGadget , EventData() , EventExtra:Object() )
				Case Button1	Button1_GA( Button1:TGadget )
			End Select

		Case EVENT_GADGETSELECT
			Select EventSource()
				Case ListBox1	ListBox1_GS( ListBox1:TGadget , EventData() , EventExtra:Object() )
			End Select

	End Select
Forever

Function Win_WC( Window:TGadget )
	DebugLog "Window Win wants to be closed"
'	HideGadget( Window:TGadget )

	End
End Function

Function ChildWindow1_WC( Window:TGadget )
	DebugLog "Window ChildWindow1 wants to be closed"
'	HideGadget( Window:TGadget )

	End
End Function

Function ListBox1_GA( ListBox:TGadget , Number:Int , Extra:Object )
	DebugLog "ListBox ListBox1 double clicked an Item " + Number
    If Number => 0 DebugLog "Selected Text = "+ GadgetItemText( ListBox:TGadget , Number:Int )
	
End Function

Function Button1_GA( Button:TGadget )
	DebugLog "Button Button1 was pressed"
	ShowGadget(ChildWindow1)
End Function

Function ListBox1_GS( ListBox:TGadget , Number:Int , Extra:Object )
	DebugLog "ListBox ListBox1 single clicked an Item"
	
End Function