//Hier werden die Anreden als Combobox gesichert:


   cAnrede := "Herr"
   aAnrede := { "Frau", "Herr", "Kind", "Dr." }
   nBo := nBo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR1,nBo}, {nBl1,nBh} )
   oXbp:caption := "Anrede:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 10 ; nFl := nFa*7
//                                             {nR9+nBl3+n10,nBo-6*nBh}, {nFl2-n10,7*nBh}
   oXbp := XbpCombobox():new( drawingArea, , {nR2,nBo-6*nBh}, {nFl3,7*nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:type := XBPCOMBO_DROPDOWN
   oXbp:clipSiblings := .T.
   oXbp:group := XBP_WITHIN_GROUP
   oXbp:create()
   oXbp:XbpSLE:bufferLength := nFa
   oXbp:XbpSLE:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:XbpSLE:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbp:XbpSLE:group := XBP_WITHIN_GROUP
   oXbp:XbpSLE:clipSiblings := .F.
   oXbp:XbpSLE:tabStop := .T.
   oXbp:XbpSLE:dataLink := {|x| IIf( PCOUNT()==0, Trim( best->ANREDE ), best->ANREDE := x ) }
   oXbp:XbpSLE:setData()
   bAction := {|mp1,mp2,obj| obj:XbpSLE:getData(), ;
                DispoutAt( MaxRow(), 0, PADR( cAnrede, 10) ) }
   oXbp:ItemMarked := bAction
   oXbp:ItemSelected := bAction
   FOR i := 1 TO 4
      oXbp:addItem( aAnrede[i] )
   NEXT
   AAdd ( aEditControls, oXbp:XbpSLE )



   cAnrede := "Herr"
   aAnrede := { "Frau", "Herr", "Firma", "Dr." }
   nBo := nRo-nBz
   oXbp := XbpStatic():new( drawingArea, , {nR4,nBo}, {nBl1+nBl3,nBh} )
   oXbp:caption := "Anspr./Anrede:"
   oXbp:clipSiblings := .T.
   oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT
   oXbp:create()
   nFa := 10 ; nFl := nFa*7
   oXbp := XbpCombobox():new( drawingArea, , {nR4+nFl1-nFl3,nBo-6*nBh}, {nFl3,7*nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbp:type := XBPCOMBO_DROPDOWN
   oXbp:clipSiblings := .T.
   oXbp:group := XBP_WITHIN_GROUP
   oXbp:create()
   oXbp:XbpSLE:bufferLength := nFa
   oXbp:XbpSLE:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbp:XbpSLE:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbp:XbpSLE:group := XBP_WITHIN_GROUP
   oXbp:XbpSLE:clipSiblings := .F.
   oXbp:XbpSLE:tabStop := .T.
   oXbp:XbpSLE:dataLink := {|x| IIf( PCOUNT()==0, Trim( best->ANSP_ANR ), best->ANSP_ANR := x ) }
   oXbp:XbpSLE:setData()
   bAction := {|mp1,mp2,obj| obj:XbpSLE:getData(), ;
                DispoutAt( MaxRow(), 0, PADR( cAnrede, 10) ) }
   oXbp:ItemMarked := bAction
   oXbp:ItemSelected := bAction
   FOR i := 1 TO 4
      oXbp:addItem( aAnrede[i] )
   NEXT
   AAdd ( aEditControls, oXbp:XbpSLE )


   oXbpC := XbpCombobox():new( drawingArea, , {nR9,nBo-6*nBh}, {nFl1,7*nBh}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
   oXbpC:markmode := XBPLISTBOX_MM_EXTENDED
   oXbpC:type := XBPCOMBO_DROPDOWN
   oXbpC:clipSiblings := .T.
   oXbpC:group := XBP_WITHIN_GROUP
   oXbpC:create()
   oXbpC:XbpSLE:bufferLength := nFa
   oXbpC:XbpSLE:setInputFocus  := {|mp1,mp2,obj| HiliteSle( obj ) }
   oXbpC:XbpSLE:killInputFocus := {|mp1,mp2,obj| DeHiliteSle( obj ) }
   oXbpC:XbpSLE:group := XBP_WITHIN_GROUP
   oXbpC:XbpSLE:clipSiblings := .F.
   oXbpC:XbpSLE:dataLink := {|x| IIf( PCOUNT()==0, Trim( best->DEKO ), best->DEKO := x ) }
   oXbpC:XbpSLE:setData()
   bAction := {|mp1,mp2,obj| obj:XbpSLE:getData(), ;
                DispoutAt( MaxRow(), 0, PADR( cDeko, 20) ) }
   oXbpC:ItemMarked := bAction
   oXbpC:ItemSelected := bAction
   FOR i := 1 TO 4
      oXbpC:addItem( aDeko[i] )
   NEXT
   AAdd ( aEditControls, oXbpC:XbpSLE )
//------------------hiervor steht die Combobox die Nachstehendes ersetzen soll