[MAXGUIEX] ComboBox with icons possible?

BlitzMax Forums/MaxGUI Module/[MAXGUIEX] ComboBox with icons possible?

Grisu

(Posted 2009) [#1]

Hi!

Is there a way to add a 16x16 icon to a ComboBox item?

Grisu

jsp	(Posted 2009) [#2]

Just as for other listbased gadgets

SuperStrict
Import MaxGui.Drivers


Local Window1:TGadget = CreateWindow:TGadget("Window1",249,132,319,120,Null,WINDOW_TITLEBAR|WINDOW_RESIZABLE |WINDOW_STATUS |WINDOW_CLIENTCOORDS )
	Local Combo1:TGadget = CreateComboBox:TGadget(46,45,220,23,Window1:TGadget,Null)
		Local Combo1_Icons:TPixmap = LoadPixmap:TPixmap( "" )
		Local Combo1_Strip:TIconStrip = LoadIconStrip:TIconStrip(LoadBank("http::www.logiczone.de/jsp/downloads/EnableDisable.bmp")) 
		SetGadgetIconStrip( Combo1:TGadget , Combo1_Strip:TIconStrip )
		AddGadgetItem( Combo1:TGadget,"Item1",GADGETITEM_NORMAL,0 )
		AddGadgetItem( Combo1:TGadget,"Item2",GADGETITEM_NORMAL,1 )
		AddGadgetItem( Combo1:TGadget,"Item3",GADGETITEM_NORMAL,2 )

Repeat
	WaitEvent()
	Select EventID()
		Case EVENT_WINDOWCLOSE
			Select EventSource()
				Case Window1	Window1_WC( Window1:TGadget )
			End Select

		Case EVENT_GADGETACTION
			Select EventSource()
				Case Combo1	Combo1_GA( Combo1:TGadget , EventData() )
			End Select

	End Select
Forever

Function Window1_WC( Window:TGadget )
	DebugLog "Window Window1 wants to be closed"
'	HideGadget( Window:TGadget )

	End
End Function

Function Combo1_GA( Combo:TGadget , Number:Int )
	DebugLog "ComboBox Combo1 selected Nr. " + Number
	DebugLog "Selected Text = "+ GadgetItemText( Combo:TGadget , Number:Int )
	
End Function

Grisu

(Posted 2009) [#3]

That reminds me once again that the bmx docs could be better... :(

Thanks a lot!