Couleur dans une listbox

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.

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 ;)

Citation:

Envoyé par J-P

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 :D
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
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 :)

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:

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;

Merci à tous!!

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

Bonjour,

Citation:

Envoyé par 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:

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 ;)

Bonjour,

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