Discussion :

[Sunchaser]

Bonsoir,
Un petit soucis....Voila j'ai, contenu dans un TList, une liste de Structs qui contiennent des données représentant des évènements dans un agenda.
(heure de début de rdv, nom du rdv, heure de fin, etc, etc...par ex)
Ces données sont affichées dans un TStringGrid, rien d'exceptionnel.
Je veux afficher un beau Hint, lors du survol par la souris d'une plage contenant un évènement; ce Hint reprenant une partie des éléments de la struct correspondant.
Le problème est que, si j'ai trois rdv a trois dates différentes dans la semaine affichée, il ne réagis que lors du survol de la plage du dernier rdv...les autres sont ignorés.
J'ai placé de beaux 'ShowMessage(...)' dans le code a certains endroits et il lis bien les valeurs et devrait afficher les infos dans le Hint...mais rien.
Je dois merder qqpart, c'est clair, ya pas de magie.
Ci joint le code du OnMouseMove du TStringGrid:

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
SGvisu->Hint = "";
try
{
pPos = SGvisu->MouseCoord(X, Y); int i;
if (pPos.X > - 1 && pPos.Y > - 1)
{
AnsiString S = SGvisu->Cells[pPos.X][pPos.Y].SubString(3, SGvisu->Cells[pPos.X][pPos.Y].Length()); //on repère le texte survolé
for (i = 0; i < ListeAgenda->Count; i ++)
{ //parcours de la TList
        eventAGenda = (agstruct)ListeAgenda->Items[i]; //on selectionne un a un les struct désignés par la TList
        if ( eventAGenda->HDeb == S || eventAGenda->HFin == S || eventAGenda->Texte == S )
        { //une de ces propriétés est forcement affichée si le struct est crée
                if ( eventAGenda->nbTodo > 0 )
                {//on charge les infos pour le hint
                        SGvisu->Hint = eventAGenda->Todo[0];
                        for ( int j = 1; j < eventAGenda->nbTodo; j ++ )
                        {
                                SGvisu->Hint = SGvisu->Hint + AnsiString("\n") + eventAGenda->Todo[j];
                        }
                }
                else
                {
                                        SGvisu->Hint = "";
                }
        }
        else
        {
                SGvisu->Hint = "";
        }
}
}
}
catch(...)
{
//code...
}

Si quelqu'un a une petite idée...merci d'avance.
@ +

[DjmSoftware]

bonjour
je ne comprends pas quelque chose dans ta boucle

Code :

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

1
2
3
4
5
6
7
8
 
if ( eventAGenda->nbTodo > 0 )
                {//on charge les infos pour le hint
                        SGvisu->Hint = eventAGenda->Todo[0];
                        for ( int j = 1; j < eventAGenda->nbTodo; j ++ )
                        {
                                SGvisu->Hint = SGvisu->Hint + AnsiString("\n") + eventAGenda->Todo[j];
                        }

est- ce correct qu'au final Hint soit égal à
eventAGenda->Todo[0]+"\n"+eventAGenda->Todo[1]+eventAGenda->Todo[0]
+"\n"+eventAGenda->Todo[2]+eventAGenda->Todo[0]
+"\n"+eventAGenda->Todo[3]
si eventAGenda->nbTodo=4

cordialement

[Neilos]

Euh non pour eventAGenda->nbTodo=4 tu obtiens :

Avant le for :

Code :

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

SGvisu->Hint = eventAGenda->Todo[0];

j = 1

Code :

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

SGvisu->Hint = eventAGenda->Todo[0] + "\n" + eventAGenda->Todo[1];

j = 2

Code :

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

SGvisu->Hint = eventAGenda->Todo[0] + "\n" + eventAGenda->Todo[1] + "\n" + eventAGenda->Todo[2];

j = 3

Code :

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

SGvisu->Hint = eventAGenda->Todo[0] + "\n" + eventAGenda->Todo[1] + "\n" + eventAGenda->Todo[2] + "\n" + eventAGenda->Todo[3];

Je vois pas trop où est le pb, à part que ton

Code :

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

SGvisu->Hint = eventAGenda->Todo[0];

pourrait être intégré dans ta boucle je ne vois pas grand chose.

Fais un debug en mode pas à pas en mettant une condition sur la cellule survolée par exemple : comme ca le point d'arret ne sera pas valide tout le temps et tu arriveras à atteindre ta case avec la souris....

[Sunchaser]

Bonsoir,

La raison pour laquelle

Code :

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

SGvisu->Hint = eventAGenda->Todo[0];

n'est pas intégrée dans la boucle est que, telle que je l'ai écris, pour le premier élément j'aurais eu d'office un retour a la ligne inutile.
Mais bon, ça, jeme me permet de penser que ce n'est pas le plus 'grave'.

Non, en fait a priori y a pas de raison pour qu'il n'affiche pas le Hint. Il repère bien lors du survol le bon 'struct' et parcours même la fameuse boucle dont on parlais précédemment...



Bon je sais, y a pas de mystère (ni de magie) et c'est forcement moi qui merdoie...

[Neilos]

Hum....je vois pas trop maissi tu rajoutais un test dans ta fonction :

Code :

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

1
2
3
4
AnsiString mavar = ......; // L´tu fais ta boucle pour déterminer le Hint à afficher.
 
if ( SGvisu->Hint != mavar )
    SGvisu->Hint = mavar;

Dès fois qu'il retente de l'afficher à chaque fois que tu bouges la souris...

[Sunchaser]

Bonsoir,

Bon cela me ... pompe le dard. Rien n'y fait.
Une petite précision :
J'ai un évènement de type OnShowHint puisque, comme évoqué dans un sujet précédent, j'avais besoin d'afficher un dérivé de THintWindow.
Lors du survol de la grille sur un élément, la 'struct' correspondante est bien 'localisée'; tous les tests dans le code que j'ai fait me le montre.
Mais par contre, il n'y a pas de passage dans l'évènement OnShowHint; il est zappé, j'aimerais bien savoir ce qui se passe entre les deux...
La seule fois ou tout se passe bien, c'est lorsque l'on survolle la zone correspond au dernier 'struct' de la liste.

[Sunchaser]

Naaaannn

J'a merdé, c'est toi Neilos qui avait raison sur la dernière proposition, fallait juste que je le place correctement ce petit bout de code.
Ca donne donc :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
SGvisu->Hint = ""; String ValHint = "";
try
{
pPos = SGvisu->MouseCoord(X, Y); int i;
if (pPos.X > - 1 && pPos.Y > - 1)
{
AnsiString S = SGvisu->Cells[pPos.X][pPos.Y].SubString(3, SGvisu->Cells[pPos.X][pPos.Y].Length());
for (i = 0; i < ListeAgenda->Count; i ++)
{
        eventAGenda = (agstruct)ListeAgenda->Items[i];
        if ( eventAGenda->Texte == S )
        {
                if ( eventAGenda->nbTodo > 0 )
                {
                        ValHint = eventAGenda->Todo[0];
                        for ( int j = 1; j < eventAGenda->nbTodo; j ++ )
                        {
                                ValHint = ValHint + AnsiString("\n") + eventAGenda->Todo[j];
                        }
                }
                else
                {
                                        SGvisu->Hint = "";
                }
        }
        else
        {
                SGvisu->Hint = "";
        }
}
if ( SGvisu->Hint != ValHint )
{
        SGvisu->Hint = ValHint;
}
}
}
catch(...)
{
}

Et voila ! Siouper

Merci et @ +
Je vais essayer de comprendre pourquoi je n'arrive pas a afficher d'info-bulles malgré le source que tu as donné.
A propos, une question peut être bête, on peut affecter l'equivalent d'une
AM_CALLBACK_MESSAGE pour les infos affichées par un dérivé de THintWindow ?