Discussion :

[Mickey.jet]

Bonjour...

Dans mon code je souhaite afficher dans une listBox cetaine ligne en rouge comment dois-je faire?

J'ai fais:

Code :

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

1
2
 
  listBox.Items.color;

mais je sais pas si c'est ca car je n'arrive pas a la préciser la couleur...

[LadyWasky]

Salut

1) tu mets la propriété Style de ta ListBox à lbOwnerDrawFixed

2) tu codes l'évènement OnDrawItem. comme suit :

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
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with(Control as TListBox).Canvas do  {Le dessin se fait sur le canevas du contrôle,pas dans la fiche }
    begin
    //on choisi les couleurs en fonction de l'index
    if Index=1 then
    begin
       //fond
       Brush.Color:=clRed;
       //police
       Font.Color:=clYellow;
    end;
    FillRect(Rect);{efface le rectangle }
    //dessin du texte
    TextOut(Rect.Left,Rect.Top,(Control as TListBox).Items[Index]){affiche le texte }
 
  end;
end;

Bon dev

[Mickey.jet]

Mais ca ne vas pas car tu dois spécifier le numéro de l'item hors moi je ne sais pas a l'avance qu'elle item sera en rouge ou en noir (ca résulte d'un test sur une variable)

[LadyWasky]

Mais ca ne vas pas car tu dois spécifier le numéro de l'item hors moi je ne sais pas a l'avance qu'elle item sera en rouge ou en noir (ca résulte d'un test sur une variable)

Mais si ça va (tu vas voir, on va y arriver), c'est la seule et unique solution, mais c'est adaptable... surtout la ligne :

Code :

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

if Index=1 then

Ce que je t'ai donné, c'est un exemple, pour montrer, grosso-modo comment on fait, pas ce que tu vas avoir au final.

Bien sur qu'on peu la remplacer par ton test, reste à savoir quel test détermine la coloration, on est pas devin sur DVP