Discussion :

[PadawanDuDelphi]

Bonjour à tous,

Je cherche le moyen de changer la couleur d'une partie d'un item d'une listbox. Par exemple pour avoir:

Le train N° train est en retard;

J'arrive à changer toute la ligne de la listbox, mais pas juste un élément de la ligne, et c'est indispensable pour mon application.
Si quelqu'un à une idée (même à la rigueur utiliser un autre composant)...

Merci.

[Droïde Système7]

Bonjour,

Si tu ne trouves aucunes réponses/solutions, alors pourquoi pas se pencher vers la création de plusieurs colonnes sur ton TListBox ; dont l'une serait... colorée

[Pedro]

Bonjour,

Si tu ne trouves aucunes réponses/solutions, alors pourquoi pas se pencher vers la création de plusieurs colonnes sur ton TListBox ; dont l'une serait... colorée

Exactement
Tu pourrais utiliser un TListView en vsReport (propriété ViewStyle) avec des SubItems En utilisant ses OnCustomDrawBidule, tu peux faire à peu près ce que tu veux
D'autre part, rien ne t'empêche d'utiliser le OnDrawItem du TListBox et de refaire le dessin de chacun de tes Items en appliquant la couleur de ton choix

[declencher]

Bonjour,

Comme dit par pedro, tu devrais t'en sortir en redessinnant le canva du ListBox toi même ça doit marcher. Voici un exemple où je redessine l'item en fonction de la valeur (dans mon cas je ne change que la couleur de fond).

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
procedure TMainForm.ListBoxMainDrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  pCanvas : TCanvas;
begin
  pCanvas := (Control as TListBox).Canvas;
 
  if (((Control as TListBox).Items.Strings[Index] = 'Texte1') or
      ((Control as TListBox).Items.Strings[Index] = 'Texte2') or
      ((Control as TListBox).Items.Strings[Index] = 'Texte3')) then
    pCanvas.Brush.Color := $F5D68D;
 
  if ((Control as TListBox).Items.Strings[Index] = 'Texte4') then
    pCanvas.Brush.Color := $7E9CFF;
 
  // Lorsque la ligne est sélectionnée
  if (odSelected in State) then
  begin
    pCanvas.Brush.Color := $C56A31;
    pCanvas.FillRect(Rect);
    pCanvas.Font.Color := clWhite;
  end else
    pCanvas.FillRect(Rect);  //Les autres lignes
 
  // Ecrire les Items.
  pCanvas.TextOut(Rect.Left+5,Rect.Top,
                  (Control as TListBox).Items.Strings[Index]); // +5, +2
end;

[PadawanDuDelphi]

Merci à tous!!

Avec ces exemples je devrais m'en sortir.
Je vais tester tout ça et je vous tiens au courant...

[Droïde Système7]

Bonjour,

Bonjour,

Comme dit par pedro, tu devrais t'en sortir en redessinnant le canva du ListBox toi même ça doit marcher. Voici un exemple où je redessine l'item en fonction de la valeur (dans mon cas je ne change que la couleur de fond).

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
procedure TMainForm.ListBoxMainDrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  pCanvas : TCanvas;
begin
  pCanvas := (Control as TListBox).Canvas;
 
  if (((Control as TListBox).Items.Strings[Index] = 'Texte1') or
      ((Control as TListBox).Items.Strings[Index] = 'Texte2') or
      ((Control as TListBox).Items.Strings[Index] = 'Texte3')) then
    pCanvas.Brush.Color := $F5D68D;
 
  if ((Control as TListBox).Items.Strings[Index] = 'Texte4') then
    pCanvas.Brush.Color := $7E9CFF;
 
  // Lorsque la ligne est sélectionnée
  if (odSelected in State) then
  begin
    pCanvas.Brush.Color := $C56A31;
    pCanvas.FillRect(Rect);
    pCanvas.Font.Color := clWhite;
  end else
    pCanvas.FillRect(Rect);  //Les autres lignes
 
  // Ecrire les Items.
  pCanvas.TextOut(Rect.Left+5,Rect.Top,
                  (Control as TListBox).Items.Strings[Index]); // +5, +2
end;

Super code, bravo !

Pour les étourdis comme moi, ne pas oublier de paramétrer la propriété "Style" à ==> lbOwnerDrawFixed

[declencher]

Bonjour,

J'ai simplement adapté à mes besoins un code trouvé sur le net. Faites en de même et amusez vous bien