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

[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...

[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

[wilfryjules]

Tu as raison PAUL j'ai modifié le code, ça marche, je le poste dès que possible. La boucle sur l'index était une erreur.
Cependant je ne pense pas avoir résolu la boucle infinie.
Aussi, appeler une requête, même simple, pour chaque index, fait complètement ramer le programme.
J'ai donc pré-rempli un tableau contenant les résultats de la requête, appelé hors de cette fonction Ondraw.

[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.

[ShaiLeTroll]

Il est évident que la boucle "for count" est inapproprié
EDIT : Comme AndNotOr, j'étais en train de faire autre chose et ma réponse est donc trop tardive

Pour un projet, je dessinais un petit carré de couleur
Je te conseille d'éviter le SQL durant le Draw, il serait préférable de charger les données avant (soit en ouvrant le DataSet pour tous les éléments du combo ou alors créer un objet métier gérant ces données, moi c'est BulkChannelReservation dans le code ci-dessous

Code cpp :

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
 
//---------------------------------------------------------------------------
/*static*/ void TComboChannelManager::DrawComboChannel(TComboBox *ACombo, TIdentObjChannel* AChannel, TRect &Rect, TOwnerDrawState State, ISygalDVRDahuaBulkCamerasConfigurationManager* ABulk/* = NULL*/)
{
  if (ACombo && AChannel)
  {
    TCanvas *ComboCanvas = ACombo->Canvas;
 
    // Choix de la couleur de fond selon sélection
    ComboCanvas->Brush->Color = State.Contains(odSelected) ? clHighlight : ACombo->Color;
    ComboCanvas->Pen->Color = ComboCanvas->Brush->Color;
    // Dessin du fond
    ComboCanvas->Rectangle(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom);
 
    // Texte
    ComboCanvas->TextOut(Rect.Left + 2, Rect.Top + 1, AChannel->Ident);
 
    // Vérifie l'état du canal
    if (ABulk)
      AChannel->Reserved = ABulk->BulkChannelReservation[AChannel->FriendlyChannel];
 
    // Choix de la couleur indiquant l'affectation d'un canal
    ComboCanvas->Brush->Color = AChannel->Selected ? clSkyBlue : AChannel->Affected ? clWebLightCoral : AChannel->Reserved ? clWebLavenderBlush : clMoneyGreen;
    ComboCanvas->Pen->Color = ComboCanvas->Brush->Color;
 
    // Dessin du pseudo icone d'indication d'état
    int l = Rect.Left + ComboCanvas->TextWidth(AChannel->Ident) + 4 + 2;
    ComboCanvas->Rectangle(l , Rect.Top + 4, l + 8, Rect.Top + 4 + 8);
  }
}