Text Autocompletion?

[reinaldocrespo]

Anybody?


Reinaldo.

[Antonio Linares]

Reinaldo,

Using the GET bChange data you can search on a database and if the beginning of a word is found then you can modify the GET contents.

[Frank Demont]

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

//------------------------------------------------------------------------//

function Main()

   local oDlg
    local cText := "AUTOFILL"
   local oGet

   DEFINE DIALOG oDlg TITLE "Just a get"

   @ 2,  2 SAY "Date:" OF oDlg
   @ 2,  6 GET oGet VAR cText OF oDlg SIZE 40, 10 ;
      VALID ! Empty( cText) PICTURE "@K!"

         oGet:bChange := {|self|test(self , oGet)}

   @ 3,  7 BUTTON "&Ok" OF oDlg SIZE 30, 12 ACTION oDlg:End()
   @ 3, 16 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL
   ACTIVATE DIALOG oDlg CENTERED
return nil
//------------------------------------------------------------------------//
Proc Test(nKey , OGet)
*******************
LOCAL a := {"ABCD" , "ACBCDE" , "ABDCD" , "ABCDEFGH"}
LOCAL Len
LOCAL cBuf , n  , nPos := oGet:nPos
IF nKey == 8 // Delete character
   RETURN
END
oGet:Assign()
cBuf := oGet:Varget()
Len := LEN(cBuf)
cBuf := LEFT(cBuf , nPos-1)
IF (n := ASCAN(a, cBuf)) > 0
   oGet:Varput(PAD(a[n],Len))
   oGet:Refresh()
   oGet:SetPos(nPos)
END
RETURN


[reinaldocrespo]

Antonio/Frank;

Thank you very, very much. Very useful.



Reinaldo.