'Editfeldeingaben auswerten und bei vorhandensein
'in einer Choicebox in den sichtbaren Bereich bringen.
'(c) by Rolf Koch - Rokosoft 2005

declare edit&,box&,string#
decimals 0


PROC AUTOCOMPLETE
declare string$
PARAMETERS HNDL&,ED&
if equ$(gettext$(ed&),"")
   sendmessage(HNDL&,$014E,0,0)
else		
string$=gettext$(ed&)
sendmessage(HNDL&,$014D,-1,addr(string$))

endif
ENDPROC

cls
box&=createchoicebox(%hwnd,"",10,10,120,150)
edit&=createedit(%hwnd,"",10,60,120,20)
addchoice(box&,"")
addchoice(box&,"Herr")
addchoice(box&,"Frau")
addchoice(box&,"Firma")
addchoice(box&,"Rolf")
addchoice(box&,"GmbH")
addchoice(box&,"Tante")

while 1
waitinput
if getfocus(edit&)
   AUTOCOMPLETE BOX&,Edit& 'Parameter: Choicebox,Editfeld
endif
wend