Hi!
Is there a way to add a 16x16 icon to a ComboBox item?
Grisu
Is there a way to add a 16x16 icon to a ComboBox item?
Grisu
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