Roland a écrit :


..Largeur ..Hauteur de vos champ pour comparer avec les ordonnées de la
souris (curseurPos())

la suite est de l'arythmétique...

Bon courage
++ R&B de wdforge.org

Salut,

Voici un code que j'ai développé pour faire comme le F6 dans l'éditeur de
fenetre
Voici les étapes
1-Créer un bouton hors d'écran avec les ancrages nécessaires
2-Créer un libellé nommé ETINOM, lui donner le style désiré (Fond jaune
bulle,carde simple et noir)
3-Mettre le libellé hors d'écran avec les ancrages nécessaires
4-Mettre le code suivant dans le bouton

strChamp est une chaîne
strChampClone est une chaîne
iCpt est un entier
tabChamp est un tableau dynamique de 0 chaînes
iNbChamps est un entier

iCpt=1
strChamp = EnumèreChamp(MaFenêtre,iCpt)
TANTQUE strChamp <> ""
SI PAS strChamp [= ETINOM..Nom ALORS
iNbChamps++
Dimension(tabChamp,iNbChamps)
tabChamp[iCpt] = strChamp
FIN
iCpt++
strChamp = EnumèreChamp(MaFenêtre,iCpt)
FIN

POUR iCpt = 1 A iNbChamps
strChampClone = ETINOM..Nom+iCpt
SI ChampExiste(strChampClone) ALORS
ChampSupprime(strChampClone)
SINON
ChampClone(ETINOM..Nom,strChampClone)
{strChampClone}..Libellé = {tabChamp[iCpt]}..Nom
{strChampClone}..Largeur =
TexteLargeur(strChampClone,{tabChamp[iCpt]}..Nom)+5
{strChampClone}..Hauteur =
TexteHauteur(strChampClone,{tabChamp[iCpt]}..Nom,tMultiligne)+5
{strChampClone}..X =
{tabChamp[iCpt]}..X+({tabChamp[iCpt]}..Largeur/2-{strChampClone}..Largeur/2)
{strChampClone}..Y =
{tabChamp[iCpt]}..Y+({tabChamp[iCpt]}..Hauteur/2-{strChampClone}..Hauteur/2)
{strChampClone}..Visible = Vrai
{strChampClone}..Altitude = iNbChamps+iCpt+100
FIN
FIN
POUR iCpt = 1 A iNbChamps
strChampClone = ETINOM..Nom+iCpt
SI ChampExiste(strChampClone)
{strChampClone}..Altitude = iNbChamps+iCpt
FIN
FIN

et le tour est jouré
F6-Les libellés appraissent
F6 une deuxième fois, les libellés disparaissent

J'espère que ca va t'aider

Mathieu



"Roland" <roland@fmdi.fr> a écrit dans le message de news:
41a4a6aa@news.pcsoft.fr...