| SuperStrict Local MyWindow:TGadget=CreateWindow("ComboBox Example", 200,200,320,240) Local ComboBox:TGadget=CreateComboBox(10,10,200,100,MyWindow) AddGadgetItem ComboBox,"First Item" AddGadgetItem ComboBox,"Second Item" Repeat WaitEvent() Select EventID() Case EVENT_WINDOWCLOSE End End Select Forever |
![]() |
| SuperStrict Local MyWindow:TGadget=CreateWindow("ComboBox Example", 200,200,320,240) Local ComboBox:TGadget=CreateComboBox(10,10,200,100,MyWindow) AddGadgetItem ComboBox,"First Item" AddGadgetItem ComboBox,"Second Item" SelectGadgetItem ComboBox,1 Repeat WaitEvent() Select EventID() Case EVENT_WINDOWCLOSE End End Select Forever |
![]() |
| SuperStrict Local MyWindow:TGadget=CreateWindow("ComboBox Example", 200,200,320,240) Local ComboBox:TGadget=CreateComboBox(10,10,200,100,MyWindow) For Local i:Int=1000 To 1050 AddGadgetItem ComboBox,i Next Local s:String Repeat WaitEvent() Select EventID() Case EVENT_WINDOWCLOSE End Case EVENT_GADGETACTION s=GadgetItemText(ComboBox,SelectedGadgetItem(ComboBox)) SetStatusText MyWindow, "index="SelectedGadgetItem(ComboBox) + ":item=" + s End Select Forever |
![]() |