Anybody?
Reinaldo.
Board index FiveWin for Harbour/xHarbour Text Autocompletion?
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.
#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
RETURNAntonio/Frank;
Thank you very, very much. Very useful.
Reinaldo.