AUTO SEARCH COMBOBOX - METHOD KeyChar

AUTO SEARCH COMBOBOX - METHOD KeyChar

Postby MGA » Thu Aug 28, 2008 2:39 pm

Sr. Antonio,


Fiz a seguinte alteração na classe TCOMBOBOX para que a pesquisa aceita-se a tecla 32 (barra de espaço):

Gostaria de saber se está alteração acarretará algum problema?

METHOD KeyChar( nKey, nFlags ) CLASS TComboBox

local nNewAT := 0, nOldAT := ::nAT, uItem

do case
/*
Para funcionar a barra de espaço

case nKey = 32 // VK_DELETE (DO NOT WORK!)
::cSearchKey = ""
nNewAt = 1
uItem = ::aItems[ nNewAt ]
*/
case nKey = VK_BACK
::cSearchKey = Left( ::cSearchKey, Len( ::cSearchKey ) - 1 )

case nKey = 190
nKey = 0
::cSearchKey += "."

otherwise
::cSearchKey += Upper( Chr( nKey ) )
endcase

if Empty( uItem )
if nNewAt == 0
nNewAt = AScan( ::aItems, {|x| Upper(x) = ::cSearchKey } )
if nNewAt > 0 .and. Len( ::aItems ) <= nNewAt
uItem = ::aItems[ nNewAt ]
endif
uItem = ::aItems[ If( nNewAt > 0, nNewAt, Max( ::nAT, 1 ) ) ]
else
uItem = ::aItems[ Max( nNewAt, 1) ]
endif
endif
::Set( If( ValType( Eval( ::bSetGet ) ) == "N", AScan( ::aItems, uItem ), uItem ) )

if ::bChange != nil .and. ( nNewAT != nOldAt .and. nNewAt != 0 )
Eval( ::bChange, Self, ::VarGet() )
endif

if nKey == VK_RETURN
return ::oWnd:GoNextCtrl( ::hWnd )
endif

return 0 // Must be 0 - We don't want API default behavior.
ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
MGA
 
Posts: 1254
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá

Postby Antonio Linares » Sun Aug 31, 2008 6:20 pm

Si no vas a usar la búsqueda incremental, lo mejor es deshabilitarla completamente.

En FWH 8.08 hemos añadido una nueva DATA lIncSearch AS LOGICAL que es .F. por defecto, y el método KeyChar queda así:
Code: Select all  Expand view  RUN
METHOD KeyChar( nKey, nFlags ) CLASS TComboBox

   local nNewAT := 0, nOldAT := ::nAT, uItem

   if Len( ::aItems ) == 0
      return 0
   endif

   if ::lIncSearch
      do case
         case nKey = 32   // VK_DELETE (DO NOT WORK!)
              ::cSearchKey = ""
              nNewAt = 1
              uItem  = ::aItems[ nNewAt ]
           
         case nKey = VK_BACK
              ::cSearchKey = Left( ::cSearchKey, Len( ::cSearchKey ) - 1 )
           
         case nKey = 190
              nKey = 0
              ::cSearchKey += "."
           
         otherwise
              ::cSearchKey += Upper( Chr( nKey ) )
      endcase
   
      if Empty( uItem )
         if nNewAt == 0
            nNewAt = AScan( ::aItems, {|x| Upper(x) = ::cSearchKey } )
            if nNewAt > 0 .and. Len( ::aItems ) <= nNewAt
               uItem = ::aItems[ nNewAt ]
            endif
            uItem = ::aItems[ If( nNewAt > 0, nNewAt, Max( ::nAT, 1 ) ) ]
         else
            uItem = ::aItems[ Max( nNewAt, 1) ]
         endif 
      endif
      ::Set( If( ValType( Eval( ::bSetGet ) ) == "N", AScan( ::aItems, uItem ), uItem ) )
   endif   

   if ::bChange != nil .and. ( nNewAT != nOldAt .and. nNewAt != 0 )
      Eval( ::bChange, Self, ::VarGet() )
   endif

   if nKey == VK_RETURN
      return ::oWnd:GoNextCtrl( ::hWnd )
   endif

return If( ::lIncSearch, 0, nil )
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 60 guests