Discussion :

[bvsud]

Bonjour

Je voudrais définir moi-même la couleur (de fond et de "surbrillance", la vidéo inversée, quoi) de l'item sélectionné dans un ListBox.

Dois-je passer par un ListBox de Jedi ou TMS ?

Si c'est possible avec un ListBox "normal" : est-il indispensable de tripatuiller les propriétés Canvas, Brush, etc ?



Merci

[Dr.Who]

cherche des sujets équivalent sur le forum, j'ai poster par deux fois la solution pour TListBox sans passer par des composants non natif.

bonne recherche.

[bvsud]

cherche des sujets équivalent sur le forum, j'ai poster par deux fois la solution pour TListBox sans passer par des composants non natif.

bonne recherche.

Bonjour.

Je ne trouve aucune intervention sous ton pseudo et portant sur le TLIstBox. Il y aurait une recherche spécifique à des archives du forum ?


Merci.

[Gilbert Geyer]

Bonjour,

Voici un bout de code qui rend le fond des Items d'une ListBox à couleurs alternées (ici en bleu/blanc) :

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
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin     ListBox1.Style:=(lbOwnerDrawFixed);
          with ListBox1.Canvas do
          begin Font.Color:=clBlack; // Couleur de fonte
                if Odd(Index) then Brush.Color:=clAqua   // Couleur d'arrière plan
                              else Brush.Color:=clWhite; // alternée bleu/blanc
                FillRect(Rect); // Remplit le rectangle de l'Index sur canvas avec Brush.color
                TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]); // Texte de l'Item
          end;
end;
 
procedure TForm1.ListBox1Click(Sender: TObject);
var       i:integer;
begin     for i:=0 to ListBox1.Items.Count-1
          do ListBox1DrawItem(ListBox1,i,ListBox1.ItemRect(i),[odDefault]);
end;

... reste plus qu'à modifier ce code de sorte qu'il ne modifie que la couleur de fond de l'item sélectionné.

A+.

[Gilbert Geyer]

Re-bonjour,

Voici le code modifié pour une ListBox à Fond jaune pour l'item sélectionné et à fond blanc pour les autres :

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
procedure TfrmBases.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin     ListBox1.Style:=(lbOwnerDrawFixed);
          with ListBox1.Canvas do
          begin Font.Color:=clBlack; // Couleur de fonte
                if ListBox1.Selected[Index]
                then Brush.Color:=clYellow  // Fond jaune pour l'Item sélectionné
                else Brush.Color:=clWhite;  // Fond blanc pour les autres
                FillRect(Rect); // Remplit le rectangle de l'Index sur canvas avec Brush.color
                TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]); // Texte de l'Item
          end;
end;

procedure TfrmBases.ListBox1Click(Sender: TObject);
var       i :integer;
begin     for i:=0 to ListBox1.Items.Count-1
          do ListBox1DrawItem(ListBox1,i,ListBox1.ItemRect(i),[odDefault]);
end;

A+.

[bvsud]

Re-bonjour,

Voici le code modifié pour une ListBox à Fond jaune pour l'item sélectionné et à fond blanc pour les autres :

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
procedure TfrmBases.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin     ListBox1.Style:=(lbOwnerDrawFixed);
          with ListBox1.Canvas do
          begin Font.Color:=clBlack; // Couleur de fonte
                if ListBox1.Selected[Index]
                then Brush.Color:=clYellow  // Fond jaune pour l'Item sélectionné
                else Brush.Color:=clWhite;  // Fond blanc pour les autres
                FillRect(Rect); // Remplit le rectangle de l'Index sur canvas avec Brush.color
                TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]); // Texte de l'Item
          end;
end;

procedure TfrmBases.ListBox1Click(Sender: TObject);
var       i :integer;
begin     for i:=0 to ListBox1.Items.Count-1
          do ListBox1DrawItem(ListBox1,i,ListBox1.ItemRect(i),[odDefault]);
end;

A+.

Merci :hello: Je vais tester tout ça