Discussion :

[jupierre]

bonjour

j'utilise un composant listbox
j'ajouter une liste de noms francais d'animaux
j'ajoute a la suite de ma liste les noms latins de ces meme animaux.

est il possible d'afficher les noms latins en italique et de garder les noms francais sans italique dans cette meme liste box ?

Merci !

[ebastien]

Bonjour,
A priori, je pense qu'il n'y a pas d'autre solution que d'utiliser l'évènement OnDrawItem en mettant la propriété Style du TListBox à lbOwnerDrawFixed.
Pour exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
// "Dessine" en italique une ligne sur 2
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  Case Index mod 2 of
  0 : (Control as TListBox).Canvas.Font.Style := [fsItalic];
  1 : (Control as TListBox).Canvas.Font.Style := [];
  end;
  (Control as TListBox).Canvas.TextOut(Rect.Left + 2, Rect.Top,(Control as TListBox).Items[index]);
end;

Une ligne sur deux de Listbox1 sera en italique. Maintenant, c'est à adapter à ton problème pour savoir quand un item de ta ListBox est un nom français et quand il est un nom latin.
Bonne journée.
Eb.