ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Re: AutoComplete et accents   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

mar. 07 août 2018, 17h09
JM ANDRÉ
France France

atoutfox.public.association

Re: AutoComplete et accents

Bonjour,
Je vous propose finalement une solution pour contourner l'obstacle du menu qui ne s'affiche plus
L'idée est de le créer un nouveau menu puis d'affecter le choix au champ.
Dans votre classe lieu par exemple
On suppose AutoCompSource défini
Dans InterActiveChange on appelle une méthode AutoCompAccents
LOCAL cLettre
WITH This
  cLettre = SUBSTR(.Value,.SelStart,1)
  IF INLIST(cLettre,"é","è"&& etc.
    *== Recherche dans la table
    .AutoCompAccents(TRIM(.Value))
  ENDIF
ENDWITH
RETURN
***********************
AutoCompAccents
PARAMETERS pVal
LOCAL nLen, cRet
*=== On va créer un popup à la place de de l'AutoComp de VFP
USE HOME(7)+"autocomp.dbf" AGAIN IN 0 ALIAS ACMP
WITH This
  nLen = LEN(m.pVal)
  SELECT PADL(ACMP.data,20) as cData FROM ACMP ;
    WHERE LOWER(LEFT(ACMP.Data,nLen))= LOWER(m.pVal) ;
    AND TRIM(ACMP.Source) = UPPER(.AutoCompSource) ;
    into CURSOR BCMP ORDER BY cData
  IF RECCOUNT()>0
  *=== création du popup
       ------
       *== récupération de la valeur du Prompt()
    IF !ISNULL(cRet) AND !EMPTY(cRet)
      .Value = TRIM(cRet)
      .SelStart = LEN(TRIM(cRet))
    ENDIF
  ENDIF
ENDWITH
USE IN SELECT("ACMP")
SELECT mon ancien fichier
RETURN

Nota : Pour le Popup, j'utilise POPMENU sur VFPX qui permet d'afficher précisément le popup
Inconvénient : comme on passe par l'InterActiveChange, l'ancien menu de VFP reste affiché le temps du choix dans le nouveau menu
Jean-Michel André
Ps : Guy, impossible de charger vos images
lorientalesatorangepointfr


Permalink : http://www.atoutfox.org/nntp.asp?ID=0000019170
19 095 messages dans le forum • Liste complète des messages

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2018.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0