Comment modifier la couleur d'une ligne de ListView ?Résolu

Question

Bonjour,

Je souhaiterai savoir comment affecter par exemple la couleur ClRed à la ligne 2 ?

J'ai eu beau chercher mais je n'ai pas trouvé,

Merci pour vos conseils.

vieuxpere · Answer

Bonjour et merci de cet exemple,

Je l'ai vu cette exemple avant de poster ma question, mais je ne suis hélas pas arrivé à l'exploiter.

Aussi je repose la question, il y a t'il une méthode à peu prés simple pour coloriser la ligne souhaitée ?

cs_cantador · Answer

l'exemple fourni exploite l'évènement :
OnAdvancedCustomDrawSubItem

mais je ne suis hélas pas arrivé à l'exploiter.

??
cantador

vieuxpere · Answer

Bonjour,

Je vais regarder. Merci.

Caribensila · Answer

Salut,

Une ListBox ne serait pas suffisant, dans ton cas?

Parce que c'est facile de surligner une ListBox... et donc je sais le faire.   héhéhé

cs_cantador · Answer

@Caribensila:
c'est vrai les questions sont de plus en plus difficiles..
c'est pas juste...
d'ici peu, il faudra rendre la copie sous huit jours

cantador

Cirec · Answer

pourtant l'exemple est aussi simple qu'avec une ListBox 
il y a juste un évènement en plus pour les SubItems mais le principe reste le même

 
@+
Cirec

<hr siz="" />

Caribensila · Answer

... 
Quand je dis que c'est facile, c'est parce que j'ai le code sous le coude.


Et que je me sens un peu fainéant aujourd'hui. Pas envie d'aller regarder sous la jupe de la Listview...       

Et de toute façon, c'est Vieuxpere qui cherche à détourner la mineure...

Caribensila · Answer

Ok!  Mais c'est seulement parce que je respecte les petits chenus qui regardent pas sous les jupes des filles...  :)))



C'est un code pour une ListBox qu'il te faudra adapter selon les indications de Cirec et en fonction de tes besoins, ok?

// Propriété "Style" de  ListBox1 = lbOwnerDrawFixed.

// Code à coller dans l'événement "OnDrawItem" :



procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
  var Col : TColor;
  begin
  if Index = 1 then Col := clRed //Couleur du surlignement pour la 2ème ligne..
  else Col := (Control as TListBox).Color;// ..sinon pas de couleur
  {Dessin du fond du ListBox en "surligné".}
  (Control as TListBox).Canvas.Brush.Style := bsSolid;
  (Control as TListBox).Canvas.Brush.Color := Col;
  (Control as TListBox).Canvas.FillRect(Rect);
  {Dessin du texte en noir.}
  (Control as TListBox).Canvas.Brush.Style := bsClear;
  (Control as TListBox).Canvas.Font.Color := clBlack;
  (Control as TListBox).Canvas.TextOut
         (Rect.Left+1, Rect.Top +1, (Control as TListBox).Items.Strings[Index]);
end;




{Exemple d'utilisation : à la 2ème ligne, ce sera surligné en rouge.}
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Add('Une nouvelle ligne');
end;

vieuxpere · Answer

Merci à tous, j'ai enfin les bons outils pour poursuivre...

Comment modifier la couleur d'une ligne de ListView ?

9 réponses

Votre réponse

Discussions similaires