[Listview] Ligne avec plusieurs couleurs

**Runlevel** · 15/10/2006, 01h53

Bonsoir à tous,
j'ai déjà lu plusieurs threads concernant plus ou moins le sujet.

Je sais comment, par exemple, alterner une ligne sur deux la couleur des éléments d'une Listview, ou attribuer suivant un critère particulier une couleur spécifique, en jouant sur la propriété Canvas->Font->Color.

Cependant, je n'arrive pas, sur une ligne, à afficher plusieurs couleurs.
Admettons que je veuille afficher chaque mot d'une couleur différente, comment dois-je m'y prendre ?

Pardon si la question semble triviale, et / ou que la réponse a déjà été donnée, mais je n'ai pas trouvé, et j'avoue ne pas maîtriser du tout les fonctions pour manipuler "l'affichage".

Merci par avance pour votre aide.

Run.

**Altau** · 15/10/2006, 09h07

Je ne peux pas apporter de réponse précise à ta question mais peut être trouveras-tu ton bonheur avec le composant TAdvListView de www.tmssoftware.com qui te permet, en outre, d'utiliser du "mini HTML" pour agrémenter ton ListView.

**henderson** · 15/10/2006, 11h11

Salut !

En faisant l'extraction des mots puis en affectant une couleur à Canvas->Font->Color pour chaque mot trouvé...
L'extraction sera tributaire du séparateur entre chaque mot...
Avec AnsiString::Pos et AnsiString::SubString... voir l'aide !

Pour la concaténation graphique (en x)... voir TCanvas->TextWidth

A plus !

**Runlevel** · 15/10/2006, 18h53

Salut à vous, merci pour vos réponses.

Altau, merci pour le lien, seulement il semble que le composant soit payant, or je développe une application dans un cadre personnel ^^

henderson, je vois parfaitement le principe, j'ai d'ailleurs déjà essayé de le faire, mais je dois mal m'y prendre, ça ne fonctionne pas du tout.
Si par exemple l'AnsiString de l'item contient "voilà une ligne", concrètement, comment dois-je m'y prendre ?

A chaque fois que j'assigne une couleur, en fait c'est toute la ligne qui prend la nouvelle couleur. Par conséquent c'est toujours la dernière couleur qui est utilisée.

**Pasqualini** · 15/10/2006, 19h30

Voilà ce que je fais pour colorer une ligne sur 2 en jaune :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
void __fastcall TfTag::lvFichierCustomDrawItem(TCustomListView *Sender,
      TListItem *Item, TCustomDrawState State, bool &DefaultDraw)
{
  if(Item->Index%2==0)
  {
    Sender->Canvas->Brush->Color=clYellow;
  }
  DefaultDraw=true;        
}
//---------------------------------------------------------------------------

**Runlevel** · 15/10/2006, 19h38

Bonsoir Pasqualini.

Merci pour le bout de code. En fait, ça je sais déjà le faire.
Ce que je voudrais savoir, c'est, comment faire concrètement pour avoir plusieurs couleurs différentes sur une même ligne.

Exemple stupide : une ligne qui contiendrait la phrase "Vive la France",
avec "Vive" en bleu, "la" en blanc, et "France" en rouge.

J'imagine qu'il faut travailler à partir du Canvas, et de TextOut, FillRect etc, mais je n'y arrive pas ;o

**Altau** · 16/10/2006, 07h46

Runlevel, le composant tmssoftware seul est téléchargeable gratuitement.

**Runlevel** · 16/10/2006, 11h15

Bien le bonjour Altau.
J'avoue avoir regardé en coup de vent, merci pour la rectification.
Cependant, avant d'en être réduit à utiliser ce composant, j'aimerais quand même, dans la mesure du possible, parvenir à le faire avec une ListView.

Sans vouloir m'avancer, et même si je n'ai pas la solution, je pense que ça doit être jouable.
En dernier recours, je me tournerai vers ce composant, que je testerai de toute façon indépendamment, d'ailleurs ;o

Je pars en déplacement deux jours, je ne serai donc pas en mesure de vous répondre pendant ce laps de temps.

Au plaisir, à plus tard.
Amicalement.

Run.

**henderson** · 16/10/2006, 13h13

Salut !

Par exemple :

Code :

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

1
2
AnsiString Texte = "Rouge Vert Bleu";
TColor Colors[] = {clRed, clGreen, clBlue};

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
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
Canvas->Brush->Color = clSilver;
AnsiString A = Texte;
AnsiString N;
int color = 0;
int x = 0;
int y = 50;
int pos;
while(A != "")
    {
    pos = A.Pos(" ");
    if(pos == 0)
        {
        N = A;
        A = "";
        }
    else
        {
        N = A.SubString(1, pos);
        A = A.SubString(pos + 1, A.Length());
        }
    Canvas->Font->Color = Colors[color];
    Canvas->TextOut(x,y, N);
    x = x + Canvas->TextWidth(N + " ");
    color = (color + 1) % 3;
    }
}