PC Toledo

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