Discussion :

[davidmarli]

Bonjour,

je remplis un tlistview. jusque là pas de pb.
Mais je voudrais ecrire certaines lignes en rouge et d'autres en noir.

Comment procéder ?

Merci pour votre aide.

PS : la listview contient 3 champs (enfin le caption et 2 subitems.) Si le subitems n°1 contient une chaine de caractère vide je voudrais mettre le caption en rouge.

[Ph. B.]

Bonjour,

je remplis un tlistview. jusque là pas de pb.
Mais je voudrais ecrire certaines lignes en rouge et d'autres en noir.

Comment procéder ?

Réponse basique mais rarement exploitée :

Vous auriez trouvé vos réponses...

PS : la listview contient 3 champs (enfin le caption et 2 subitems.) Si le subitems n°1 contient une chaine de caractère vide je voudrais mettre le caption en rouge.

Gérez directement les couleurs depuis une méthode appelée par l'évenement OnAdvancedCustomDrawItem.
Ce qui donne d'après vos hypothèses :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.ListView1AdvancedCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
  var DefaultDraw: Boolean);
begin
  if Item.SubItems[0] = '' then
    Sender.Canvas.Font.Color := clRed
  else
    Sender.Canvas.Font.Color := clWindowText;
end;

Attention, ce code considère qu'il existe toujours un SubItem pour un Item donné !
D'autre part, il mérite peut-être d'être amélioré pour répondre parfaitement à votre besoin.