Antonio, maybe you can implement this changes in the next version.
TComoBox.Prg
In the next posts I'll post some changes made in Get, Xbrowse, etc...
TComoBox.Prg
DATA lAutoOpen AS LOGICAL INIT .F. //-- Open the combo when focused
DATA nKeyCharInterval AS NUMERIC INIT 0 //-- Clean search Buffer
METHOD GotFocus() CLASS TComboBox
::cSearchKey := ""
if ::lAutoOpen //-- Open the combo when focused
::Open()
end
return Super:GotFocus()
METHOD KeyChar( nKey, nFlags ) CLASS TComboBox
local nNewAT := 0, nOldAT := ::nAT, uItem
if Len( ::aItems ) == 0
return 0
endif
//-- Clean search buffer after 1 second
if (GetTickCount() - ::nKeyCharInterval) > 1000
::cSearchKey := ''
end
::nKeyCharInterval := GetTickCount()
...In the next posts I'll post some changes made in Get, Xbrowse, etc...
Email: SamirSSabreu@gmail.com
xHarbour 1.2.3 + Fwhh 20.2
xHarbour 1.2.3 + Fwhh 20.2