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()
mit Tatstatur alles richtig.
habs gefunden - muß in killinputfocus