Discussion :

[FredericB]

Bonjour,

Est-il possible de mettre un objet de forme carré avec une couleur différente pour chaque ligne d'un TListView ?
Par exemple : au lieu d'avoir une CheckBox en entête sur chaque ligne, j'aimerai mettre une couleur.

Si oui, quelle est la manip à faire ?

Merci
Fred

[Neilos]

Salut,

tu parle d'un TListView ou d'un TCheckListBox ?

Dans les deux cas (TCheckListBox ou TListBox je suis sûr de moi pour l'autre je ne suis pas sûr à 100 %) il faut que tu implémente toi même le dessin de chaque ligne.

Pour cela tu doit écrire un gestionnaire d'événement pour OnDrawItem.
Regarde dans l'aide il y a un bon exemple je crois...

Bon courage... si tu as besoin d'aide un peu plus détaillée n'hésite pas à demander je suis juste un peu préssé par le temps là

[FredericB]

Salut,

Merci pour ton aide....
Fred

[FredericB]

re-Bonjour,

Après avoir insérer mon code dans onDrawItem pour dessiner mon petit carré de couleur avant mon mot, je viens de m'apercevoir que je ne peux plus sélectionner un des éléments de ma liste.
Voici mon code :

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
void __fastcall TFrmProtocol::ListViewZone2DrawItem(
      TCustomListView *Sender, TListItem *Item, TRect &Rect,
      TOwnerDrawState State)
{
  pListViewData = (TListViewData*) Item->Data;
  int iRight = Rect.right;
  ListViewZone2->Canvas->Brush->Color = pListViewData->BackGroundColor;
  Rect.right = 20;
  ListViewZone2->Canvas->FillRect(Rect);
  Rect.right = iRight;
  Rect.left = 20;
 
  ListViewZone2->Canvas->Pen->Color = clBlack;
  ListViewZone2->Canvas->Brush->Color = ListViewZone2->Color;
  ListViewZone2->Canvas->TextRect(Rect,22,Rect.Top,Item->Caption);
}

Est-ce normal ?
Comment y remédier ?

Merci
Fred

[Neilos]

Salut,

je ne pense pas que le problème soit que tu ne puisse plus sélectionner ton élément dans la liste...juste que tu ne vois pas que tu l'as sélectionné.

Je pense que l'erreur viens de la ligne

Code :

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

1
2
 
  ListViewZone2->Canvas->Brush->Color = pListViewData->BackGroundColor;

Essaye en enlevant cette ligne, je pense que cela devrait marcher !