Discussion :

[trikker]

Bonjour a tous,

Je suis à la recherche d'une ListBox Avec les Caractéristiques suivante :

- colorisation du texte
-Placer une icône devant chaque ligne

Si vous savez ou est ce que je peux trouver sa, je suis prêt à recevoir toute information.

MERCI

[ShaiLeTroll]

Tu peux utiliser une TCheckListBox et gérer la couleur par OnDrawItem

[trikker]

Le composant existe pas par defaut sous delphi ?

[ShaiLeTroll]

Euh, oui mais je me suis gourré, je voulais dire TListView ... et c'est dans la Palette Win32
et l'évènement c'est OnAdvancedCustomDrawItem, J'utilise souvent avec un TTreeView et il fonctionne très bien, je l'utilise en filtrant Stage à cdPostPaint
mais l'on peut jouer avec DefaultDraw et Stage à cdPrePaint

NB : TCheckListBox dans "Supplément" du moins dans mon vieux D6 !

[trikker]

Ok je te remercie pour tes informations. Si je ne trouve pas j'essayerai ta méthode. Tu penses que je pourrais trouver un composant de type listbox avec mes deux paramètres pris en compte.

[ShaiLeTroll]

Dans la Lib JEDI (gratuite) ou TMS (Lourdissime Payant) ou Dev Express (Lourdingue Payant)

[trikker]

Ok merci ! Je vais rechercher dans la librairie JEDI.

[trikker]

Je ne trouve pas

[Jipété]

Salut.

Je ne trouve pas

Ben tu dois pas bien chercher, et tu dois pas bien utiliser l'ami google...

Allez, je suis bon prince, cet exemple a fait le tour du Web :

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
29
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  marge: integer;
begin
  with ListBox1 do with Canvas do
  begin
    //on dessine le fond des lignes en alternant les couleurs
    if Index mod 2 <> 1 then
      Brush.Color := clwhite
    else
      Brush.Color := $00F4F3EE;
    FillRect(Rect);
     //on affiche le texte
    TextOut(Rect.Left+30, Rect.Top+2, items[index]);
    //affichage lorsque la ligne est sélectionnée
    if (odSelected in state) then
    begin
      Brush.Color := $00F8D1C5;
      FillRect(Rect);
      Font.Color := clBlue;
      Font.Style := Font.Style + [fsBold] + [fsItalic];
      TextOut(Rect.Left+30, Rect.Top+2, Items[index]);
    end;
    //dessin des icônes
    marge := (Rect.Bottom - Rect.Top - ImageList1.Height) div 2;
    Imagelist1.Draw(Canvas, Rect.Left + 4, Rect.Top + marge, Index);
  end;
end;

Il te faudra rajouter des images 16x16 dans ImageList1, et du texte dans ListBox1.
Enjoy !

[trikker]

J'ai réussi à appliquer le code. J’avais juste un problème car j'avais mis la propriété style à LbStandard.
Merci