James
- Code: Select all Expand view RUN
- METHOD KeyChar( nKey, nFlags ) CLASS TComboBox
...
otherwise
::cSearchKey += Upper( Chr( nKey ) ) // JBott
endcase
if Empty( uItem )
if nNewAt == 0
nNewAt = AScan( ::aItems, {|x| Upper( x ) = ::cSearchKey } ) // JBott