Return-Wert bei Combo ändern

[PBuser]

Hallo zusammen

ich habe ein Combo-Feld und möchte es füllen, aber ich erwarte einen bestimmten Return-Wert. (Der Return-Wert soll aber für den User unsichtbar sein.)
Bsp:
Im Combo-Feld soll "Hell" als erster Wert stehen. Aber als Returnwert möchte ich 100 haben.
Als zweiten Wert "Weniger Hell, als Returnwert: 50

Ich möchte ca. 20 solcher Combo-Boxen in einer Maske haben.

Den eingegeben Wert soll in einer Ini-Datei gespeichert werden, damit dies wieder als Default-Wert angezeigt werden kann.

Hat jemand einen Tip, wie man dies einfach erledigt?


Danke

[ts-soft]

Code: Alles auswählen

Select Result.s
  Case "hell"
    blub = 100
  Case "Weniger Hell"
    blub = 50
EndSelect

blub dann am ende in eine Preference-Datei speichern

[PureLust]

Für sowas kannst Du ganz einfach "ItemData" (also SetGadgetItemData und GetGadgetItemData) benutzen.

Bsp:

Code: Alles auswählen

#MainWindow = 0
#ComboBox   = 0
If OpenWindow(#MainWindow,1,1,200,100,"lkjl") And CreateGadgetList(WindowID(#MainWindow))
	ComboBoxGadget(#ComboBox,1,1,198,99)
		AddGadgetItem(#ComboBox, -1, "Hell")
		AddGadgetItem(#ComboBox, -1, "Weniger Hell")
		AddGadgetItem(#ComboBox, -1, "Dunkel")
		SetGadgetItemData(#ComboBox,0,100)
		SetGadgetItemData(#ComboBox,1,50)
		SetGadgetItemData(#ComboBox,2,1)
	Repeat
		event = WaitWindowEvent()
		If event = #PB_Event_Gadget
			If EventGadget() = 0 And EventType() = 1
				Returnwert = GetGadgetItemData(#ComboBox,GetGadgetState(#ComboBox))
 				MessageRequester("Combobox Returnwert ...","Der Returnwert ist: "+Str(Returnwert))
			EndIf
		EndIf
	Until event = #PB_Event_CloseWindow
EndIf

Gruß und VE,
PureLust.