EditBox AutoComplete, exemplo !

[Ana Mitoooo]

Existe AutoComplete na hwGui ?

[asimoes]

Olá,

Você tem que implementar com vetor

[Ana Mitoooo]

Se possivel,
Poderia me auxiliar com um exemplo

[asimoes]

Posta esse código aqui

[JoséQuintas]

Isso tá mais pra combobox.

[asimoes]

Olá

Tem esse demo que eu fiz usando listbox

Código: Selecionar todos

#include "hwgui.ch"

THREAD STATIC Thisform

FUNCTION Main()

   Auto()
   
RETURN Nil

FUNCTION Auto()
LOCAL oDlg,  oButtonex1, oLabel1, oEditTxt, oLista
LOCAL  cEditTxt := "" , nLista := 1

   INIT DIALOG oDlg ;
               TITLE "Auto Completion Demo" ;
               AT    0, 0 ;
               SIZE  416,280 ;
               FONT  HFont():Add( 'Tahoma', 0, -13, 400 ) ;
               CLIPPER ;
               NOEXIT ;
               STYLE WS_POPUP + WS_CAPTION + WS_SYSMENU + DS_CENTER 
    
   Thisform := oDlg
 
   @ 014,020 SAY oLabel1 CAPTION "Texto:"  SIZE 39,18  
   
   @ 060,019 GET  oEditTxt ;
             VAR  cEditTxt ;
             SIZE 344,24 ;
             PICTURE   '@!' ;
             MAXLENGTH 50 ;
             FONT      HFont():Add( 'Tahoma', 0, -13, 400 )
             
             oEditTxt:bKeyDown := {|o, nKey| Busca( nKey ) }
    
   @ 060,052 GET LISTBOX oLista ;
             VAR nLista ;
             ITEMS {} ;
             SIZE  344,172  

   @ 306,236 BUTTONEX oButtonSair ;
                      CAPTION  "Sair" ;
                      SIZE     98,32 ;
                      STYLE    BS_CENTER + WS_TABSTOP ;
                      ON CLICK {|| Thisform:Close() }
        
   ACTIVATE DIALOG oDlg ON ACTIVATE {|| ConfigForm() }

RETURN Nil

FUNCTION ConfigForm()

   ThisForm:oEditTxt:SetFocus()
   
   ThisForm:oLista:AddItems( "RIO DE JANEIRO" )
   ThisForm:oLista:AddItems( "SÃO PAULO" )
   ThisForm:oLista:AddItems( "BRASILIA" )
   ThisForm:oLista:AddItems( "BELÉM" )
   ThisForm:oLista:AddItems( "PENEDO" )
   ThisForm:oLista:AddItems( "CONSERVATÓRIA" )
   ThisForm:oLista:AddItems( "SÃO LUIZ" )
   ThisForm:oLista:Refresh()
 
RETURN Nil

FUNCTION Busca( nKey )
THREAD STATIC cKeyAux := ""

   IF IsAscii( Hb_NtoS( nKey ) )
      IF nKey = 8 .AND. Len( cKeyAux ) > 0
         cKeyAux := SubStr( cKeyAux,1, Len( cKeyAux ) - 1 )
      ELSE
         cKeyAux += Upper( Chr( nKey ) )
      ENDIF
      nSearch := Hb_aScan( ThisForm:oLista:aItems, {|A| A = cKeyAux } ) 
      IF nSearch > 0
         ThisForm:oLista:SetItem( nSearch )
      ELSE
         ThisForm:oLista:SetItem( 1 )
      ENDIF
   ENDIF
    
RETURN -1

INIT FUNCTION AppSetup()
    
   REQUEST HB_LANG_PT
  
   REQUEST HB_CODEPAGE_PTISO
   
   Hb_LangSelect("PT")
  
   Hb_SetCodePage( "PTISO" )
  
   Hb_CdpSelect("PTISO")
     
   SET DATE FORMAT "DD/MM/YY"
   
   SET EPOCH TO 1964
      
   Set( _SET_FORCEOPT, .T. )
        
RETURN Nil 

[asimoes]

Eu ia postar o exemplo compilado com o fonte mais o o fórum não está deixando.

[alxsts]

Olá!

Fiquei em dúvida sobre a pergunta da colega. A princípio entendi com o os demais colegas que postaram respostas acima. Depois fiquei pensando: será que ela quer saber se o designer da HwGUI tem autocomplete?

[asimoes]

Olá!

Fiquei em dúvida sobre a pergunta da colega. A princípio entendi com o os demais colegas que postaram respostas acima. Depois fiquei pensando: será que ela quer saber se o designer da HwGUI tem autocomplete?

Não tem, a única designer mais completa é a do Luis Basso, mas também não tem o componente editbox
Na hwgui 2.22 atualizada a que vem na pasta utils é muito pobre de componentes e também não tem editbox, não percam tempo compilando.

[Ana Mitoooo]

Desculpem a demora, não uso muito o micro no final de semana

ASimoes disse:
Olá
Tem esse demo que eu fiz usando listbox

Agradecida pela colaboração, ajudou muito.
Encontrei o funcionalidade no dbc_sqlite do Al.Kresin
https://github.com/alkresin/dbc_sqlite
https://raw.githubusercontent.com/alkre ... tocmpl.prg
*O objetivo é completar automaticamente a digitação do usuário, que geralmente é feita no componente EditBox. Pode dispensar por exemplo exibir uma tela de pesquisa com essa simples funcionalidade.