Discussion :

[xoorus]

Bonjour à tous, je suis actuellement entrain de m'arracher les cheveux sur un problème qui paraît pourtant simple..

Je créé des champs clones, dont le nom résulte de différents paramètres.
Je dispose d'un tableau récapitulant l'ordre de création, ainsi que le nom de ceux-ci

Je voudrais tout simplement récupérer le nom d'une colonne clonée lors de sa sélection sur ma table.

Je peux donc l'avoir soit par un indice (je me débrouillerais avec mon tableau), soit par une fonction magique qui me le donnerais immédiatement.

Or, je n'ai trouvé aucune fonction magique (tiens donc ^^), et je n'arrive même pas à récupérer l'indice de ma colonne sélectionnée ><

TableInfoXY() me donne le chiffre énigmatique de 4 alors que je ne sélectionne absolument pas la 4eme colonne

ColonneEnCours() me donne le nom de la colonne "mère"

MoiMême..nom me donne de nom de la table

si vous avez d'autres idées, ou si j'ai tout simplement mal utilisé une fonction, n’hésitez pas à me le faire parvenir

Bonne journée & bon dev!

[mail.spam]

Bonjour,

Peux tu nous mettre le code que tu utilise avec TableInfoXY.
Merci

[Bowen]

Chez moi, sur des colonnes clonées, ce code me renvoie bien le nom de la colonne sur laquelle je clique (le nom, pas l'indice)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
TableInfoXY(MoiMême..Nom, tiNomColonne, SourisPosX(), SourisPosY())

[xoorus]

Je vous fait part de mon code, merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
sNumcolonne est un entier
sNomColonne est une chaîne
MaColonne est un entier
MaColonne = ColonneEnCours(MoiMême)
 
SI TableSelect(MoiMême) > 0 ALORS	// Pour ne pas traiter si table vide
 
	sNomColonne = TableInfoXY(MoiMême, tiNomColonne, SourisPosX(), SourisPosY()) // renvoie COL_Colonne1 (tout le temps)
	sNumcolonne = TableInfoXY(MoiMême, tiNumColonne, SourisPosX(), SourisPosY()) // renvoie 4
 
 
 
	{"TABLE_Planning."+TabNomColonnesCreees[sNumcolonne]+"["+TableSelect(MoiMême)+"]"}..CouleurFond = RougeClair
 
FIN

EDIT :
Le TableInfoXY(MoiMême..Nom, tiNomColonne, SourisPosX(), SourisPosY()) me renvoie aussi le fameux "COL_Colonne1"

[mail.spam]

Xoorus où as tu mis ce code?

[xoorus]

Dans "entrée en saisie d'une ligne de TABLE_Planning"

[Bowen]

Ah oui alors c'est normal, SourisPosX et SourisPosY relèvent la position de la souris, pas du focus

[xoorus]

Ah d'accord, alors comment modifier mon code de façon à récupérer de focus de ma souris ?

[DelphiManiac]

Vu que tu veux récupérer une colonne en fonction de la position de la souris, cela sous entend que c'est lié à un clic de souris.

Il faut donc mettre le code dans l'évènement "Bouton gauche appuyée" du la table.

Par contre je viens de faire un test en WD16 et il semblerait que je soit tombé sur un bug de windev.

Si je fais un trace du nom de colonne que renvoi TabInfoXY avant de faire un champ clone, j'ai bien le nom de la colonne, si je le fais après un ChampClone, je n'ai plus l'info, TabInfoXY me renvoi toujours un indice de colonne à -1 et un nom de colonne à vide.

[xoorus]

Bonjour, j'ai réussi à avoir un résultat à peu prés convenable en déplacant mon code dans l'évenemens "bouton gauche enfoncé"

Je poste la solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
sNomColonne est une chaîne
 
SI TableSelect(MoiMême) > 0 ALORS	// Pour ne pas traiter si table vide
 
	sNomColonne = TableInfoXY(MoiMême..Nom, tiNomColonne, SourisPosX(), SourisPosY())
 
 
 
	{"TABLE_Planning."+sNomColonne+"["+TableSelect(MoiMême)+"]"}..CouleurFond = RougeClair
 
FIN

Merci