Combobox wird nicht aktualisiert [ERLEDIGT]

Grafische Primitive, XbaseParts und Darstellungsfragen allgemein.

Moderator: Moderatoren

Antworten
Benutzeravatar
Rolf Ramacher
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 1930
Registriert: Do, 09. Nov 2006 10:33
Wohnort: Bergheim
Danksagung erhalten: 3 Mal
Kontaktdaten:

Combobox wird nicht aktualisiert [ERLEDIGT]

Beitrag von Rolf Ramacher »

Code: Alles auswählen

	// Combobox mit aufklappbarer Listbox 
   oCombo9 := XbpCombobox():new( oDlg:drawingArea, , aPos, {100,80}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oCombo9:type := XBPCOMBO_DROPDOWNLIST 
   oCombo9:tabStop := .T.
   oCombo9:setInputFocus  := {|mp1,mp2,obj| HiliteSle( oCombo9 ) }
   oCombo9:create()

   // Datenlink von Eingabefeld zu LOCAL Variable 
   oCombo9:XbpSLE:dataLink := {|x| IIf( x==NIL, aDaten[9][2], aDaten[9][2] := x ) } 
   bAction := {|mp1, mp2, obj| obj:XbpSLE:getData(),PrfText(aDaten) }

   // Codeblock für Auswahl durch Up und Down Taste 
   oCombo9:ItemMarked := bAction 
	
   // Codeblock für Auswahl durch linken Mausklick in der Listbox 
   oCombo9:ItemSelected := bAction 

	oCombo9:killInputfocus:= {|| DeHiliteSle(oCombo9) }

			For x = 1 to 10
				cFeld:=Rekgrund->(FieldGet(x))	
				oCombo9:addItem(cFeld)
			Next x
			oCombo9:setdata(aDaten[9][2])

Code: Alles auswählen

Function PrfText(aDaten)
	If aDaten[9][2]="Sonstiges"
		oCombo9:XbpSle:setdata("Sonstiges")
		oCombo9:setdata("Sonstiges")
		oSleF1:editable:=.t.
		oSleF1:tabstop:=.t.
		SetAppfocus(oSleF1)
	else
		oSleF1:editable:=.f.
		oSleF1:clear()
	Endif
	oSleF1:configure()
das SLE-Feld wird zur Eingabe freigegeben. aber sonstiges erscheint dann nicht in der Auswahlbox. Nur wenn ich das mit der Mouse mache.
mit Tatstatur alles richtig.

habs gefunden - muß in killinputfocus
Gruß Rolf

Mitglied der Gruppe XUG-Cologne
www.xug-cologne.de
Antworten