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, 17h17
Guy BONEMME
atoutfox.public.association

Re: AutoComplete et accents

Le 07/08/2018, JM ANDRÉ a supposé :
> 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
>
>
>
>
> ---
> Cet email a fait l'objet d'une analyse antivirus par AVG.
> http://www.avg.com

Jean Michel,
J'ai ajouté ton adresse email cela devrait fonctionner

--
Guy BONEMME
Atoutfox
BEfox
Permalink : http://www.atoutfox.org/nntp.asp?ID=0000019171
19 176 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