Discussion :

[Ludo_360]

bonjour,

j'aimerais savoir si il est possible de modifier la couleur du text dans un listbox selon l'item... par exemple une ligne sur deux?

une méthode consiste à écrire directement sur la canvas:

Code :

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

1
2
3
4
5
6
7
8

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); 
                        begin 
                        ListBox1.Canvas.FillRect(Rect); //Remplit le rectangle spécifié du canevas avec le  pinceau en cours
                        ListBox1.Canvas.Font.Color:=clBlue; //Choix de la couleur
                        ListBox1.Canvas.TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]);  //Ecrit une chaîne dans le canevas aux coordonnées (X,Y)
                        end;

Mais ce que je veux pouvoir faire c'est ecrire dans la Listbox directement pour pouvoir utiliser à nouveaux les chaines entrées.
En fait, c'est surtout que mon listbox est normalement déjà rempli, et je dois changer la couleur du texte selon une condition.

merci

ludo

[ero-sennin]

Salut,

J'ai une suggestion ... je ne sais pas si cela va te convenir :

Tu fais une boucle de i au nombre d'item, et à chaque fois que i est impair, tu changes de couleur.

Pour ce faire, tu utilises Odd(i) qui renvoie true si i est impair.

J'espère que ca te conviendra.

[Ludo_360]

En fait ce n'est pas la recherche de l'item qui m'interresse ici, puisque cela je le fait selon une condition ( membre connecté ou non), mais plutôt la fonction (ou propriété) qui me permettra de changer la couleur du texte de un item.

Merci pour ta réponse en tout cas...

ludo

[ero-sennin]

Ok!

Bon, alors pour mettre en bleu un index, il faut appeler l'événement DrawItem.

J'ai fait un truc vite fait ... je redessine la ligne si elle est impaire ... juste pour tester...

Voici le 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
17
18
19
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
ListBox1.Canvas.Font.Color:=clBlue; //Choix de la couleur de font
ListBox1.Canvas.Brush.Color:=clRed; //Choix de la couleur d'arrière plan
ListBox1.Canvas.FillRect(Rect); //Remplit le rectangle spécifié du canevas
ListBox1.Canvas.TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]);
end;
 
procedure TForm1.ListBox1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to ListBox1.Count-1 do
begin
  if Odd(i) then
  ListBox1DrawItem(ListBox1,i,ListBox1.ItemRect(i),[odDefault]);
end;
end;

C'est un petit début...

PS:

En ce qui concerne le paramètre TOwnerDrawState il faut lire l'aide de Delphi... Personnellement, j'ai pas trop testé

[TryExceptEnd]

Comme ceci ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.ListBox1DblClick(Sender: TObject);
var i:integer; Rect:TRect;
begin
ListBox1.Style:=(lbOwnerDrawFixed);
for i:=0 to ListBox1.Count-1 do begin
  ListBox1.Canvas.Brush.Color:=clBlue;//Couleur du fond
  Rect:=ListBox1.ItemRect(i);
  ListBox1.Canvas.FillRect(Rect); //Remplit le rectangle spécifié du canevas avec le  pinceau en cours
  ListBox1.Canvas.FrameRect(Rect);
  ListBox1.Canvas.Font.Color:=clWhite; //Choix de la couleur de la font
  ListBox1.Canvas.TextOut(Rect.Left, Rect.Top, ListBox1.Items[i]);  //Ecrit une chaîne dans le canevas aux coordonnées (X,Y)
 end;
end;

Tu n'as plus qu'a intégrer ta condition

[Ludo_360]

ces solution utilisent le canvas... C'est le petit bout de prog que j'ai écrit dans le premier post. Moi je voulais éviter d'utiliser le canvas... Mais apparemment il n'y a pas d'autres solution... Autant pour un listbox entier, une propriété permet de changer la couleur, autant je voulais me servir d'une fonction semblable pour choisir la couleur à chaque item...

Merci tout de même pour vos posts!

ludo