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

vieuxpere 199 Messages postés samedi 3 janvier 2004Date d'inscription 17 décembre 2014 Dernière intervention - 2 mars 2009 à 00:19 - Dernière réponse : vieuxpere 199 Messages postés samedi 3 janvier 2004Date d'inscription 17 décembre 2014 Dernière intervention
- 3 mars 2009 à 00:03
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.
Afficher la suite 

Votre réponse

11 réponses

Meilleure réponse
cs_cantador 4996 Messages postés dimanche 26 février 2006Date d'inscription 27 mars 2018 Dernière intervention - 2 mars 2009 à 09:28
3
Merci
bonjour,

http://www.delphifr.com/codes/METTRE-CELLULES-COULEURS-DANS-TLISTVIEW-STYLE-VSREPORT_40907.aspx

cantador

Merci cs_cantador 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 120 internautes ce mois-ci

Commenter la réponse de cs_cantador
vieuxpere 199 Messages postés samedi 3 janvier 2004Date d'inscription 17 décembre 2014 Dernière intervention - 2 mars 2009 à 11:24
0
Merci
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 ?
Commenter la réponse de vieuxpere
cs_cantador 4996 Messages postés dimanche 26 février 2006Date d'inscription 27 mars 2018 Dernière intervention - 2 mars 2009 à 11:55
0
Merci
l'exemple fourni exploite l'évènement :
OnAdvancedCustomDrawSubItem

mais je ne suis hélas pas arrivé à l'exploiter.

??
cantador
Commenter la réponse de cs_cantador
vieuxpere 199 Messages postés samedi 3 janvier 2004Date d'inscription 17 décembre 2014 Dernière intervention - 2 mars 2009 à 13:47
0
Merci
Bonjour,

Je vais regarder. Merci.
Commenter la réponse de vieuxpere
Caribensila 2674 Messages postés jeudi 15 janvier 2004Date d'inscription 11 mai 2018 Dernière intervention - 2 mars 2009 à 15:02
0
Merci
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é
Commenter la réponse de Caribensila
cs_cantador 4996 Messages postés dimanche 26 février 2006Date d'inscription 27 mars 2018 Dernière intervention - 2 mars 2009 à 15:13
0
Merci
@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
Commenter la réponse de cs_cantador
Cirec 4224 Messages postés vendredi 23 juillet 2004Date d'inscription 5 juin 2018 Dernière intervention - 2 mars 2009 à 15:38
0
Merci
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="" />
Commenter la réponse de Cirec
Caribensila 2674 Messages postés jeudi 15 janvier 2004Date d'inscription 11 mai 2018 Dernière intervention - 2 mars 2009 à 15:51
0
Merci
...
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...
Commenter la réponse de Caribensila
vieuxpere 199 Messages postés samedi 3 janvier 2004Date d'inscription 17 décembre 2014 Dernière intervention - 2 mars 2009 à 18:46
0
Merci
Bonjour, Pourtant Caribensila si tu as le code qui va bien je suis preneur car franchement je seche sur ce coup là.
Commenter la réponse de vieuxpere
Caribensila 2674 Messages postés jeudi 15 janvier 2004Date d'inscription 11 mai 2018 Dernière intervention - 2 mars 2009 à 19:34
0
Merci
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;
Commenter la réponse de Caribensila
vieuxpere 199 Messages postés samedi 3 janvier 2004Date d'inscription 17 décembre 2014 Dernière intervention - 3 mars 2009 à 00:03
0
Merci
Merci à tous, j'ai enfin les bons outils pour poursuivre...
Commenter la réponse de vieuxpere

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.