Discussion :

[wilfryjules]

Bonjour à tous,

Je programme en delphi sous XE2...

Je souhaite mettre en couleur certaines lignes d'une comboBox (certains items).

J'utilise donc l'évènement OnDrawItem. J'ai bien mis au préalable la propriété de la combobox à csOwnerDrawFIxed.

Seulement j'ai un soucis, cette fonction est appelée en boule infinie. Lors du débugage, la fonction MaComboBox.OnDrawItem est appelée, puis ça passe dans AdvFocusHelper.pas (Composant TMS) ou la fonction MsgHookPro est appelée, et ça revient appeler ma fonction OnDrawItem.

Lorsque je clique sur la flèche de ma comboBox dans l'IHM, tout plante.


Voilà la fonction DrawItems:

[thierryc]

Bonjour,
Déboguer un événement "OnDrawItem" n'est pas facile. Avec Windows, vous allez avoir cet événement récurrent dans votre application, et votre débogueur ne va pas pouvoir vous aider.
Etes-vous sûr qu'il y a une boucle infinie?

Puis-je vous suggérer de mettre en place un mémo sur votre fiche et d'y écrire un texte chaque fois que vous recevez le message "OnDrawItem"?

Cordialement,
Thierry

[wilfryjules]

Oui il y a bel et bien une boucle infinie j'ai testé en mode debug.
Comme décrit ci-dessus. Après peut être qu'il y a une interférence avec le composant TMS, qui n'a sûrement pas lieu d'être appelé ici..

[M.Dlb]

Dans le OnDrawItem, appelles-tu une fonction de rafraichissement (Invalidate, Repaint, Paint, ....) ?
Appelles-tu une fonction d'un composant qui fait un rafraichissement ?

[wilfryjules]

Non pas du tout, voir ma fonction je l'ai jointe plus haut dans la description.

[Paul TOTH]

attention DrawItem est supposé ne dessiner qu'UN item, celui donné en Index

est-ce que ce code est attaché uniquement à cette combo ? car tu mélanges le Control en paramètre et le Canvas de la combo

est-ce que la query que tu lances peux influencer le contenu de la combo ? .. et ça me parait pas une bonne idée de lancer des query dans OndrawItem en fait (pour des questions de performances)

NB: en plaçant ton code dans une balise "CODE" c'est tout de même plus pratique pour commenter le code

[Jipété]

Bonjour à tous,

Je programme en delphi sous XE2...

Moi je suggérerais surtout de poster dans le bon forum spécialisé pour ça...

[Andnotor]

Tu as trouvé l'erreur le temps que je tape mon texte, tant mieux
Je laisse tout de même mon explication ci-dessous qui pourrait répondre à ta dernière interrogation.

cette fonction est appelée en boule infinie.

Lorsque je clique sur la flèche de ma comboBox dans l'IHM, tout plante.

Si "ça plante", tu as un message d'erreur non ?
S'il y a un message d'erreur, apparaît-il par dessus la liste déroulante, même partiellement (la chevauche-t-il) ?

La boucle ne doit pas dépasser Count -1, ce code va de toute façon soulever une exception.
Si le message d'erreur est affiché sur la liste, celle-ci va être redessinée lorsque la fenêtre d'exception sera fermée entraînant un nouvel appel des fonctions de repeinture, qui générera une nouvelle exception et ainsi de suite, indéfiniment.