ListView : changer la couleur de fond, ligne par ligne

ListView : changer la couleur de fond, ligne par ligne - Delphi/Pascal - Programmation

Marsh Posté le 20-03-2005 à 17:46:06    

Tout est plus ou moins dit dans le titre.... Sauriez vous me dire, en D7, comment afficher un ListView avec des couleurs de fond dépendant des lignes (par exemple la 1ère sur fond rouge, la seconde sur fond bleu et les autres "normalement" )
 
Merci d'avance !

Reply

Marsh Posté le 20-03-2005 à 17:46:06   

Reply

Marsh Posté le 20-03-2005 à 20:27:41    

Up..

Reply

Marsh Posté le 20-03-2005 à 23:41:11    

Je pense que j'avais déjà fait des essais pour afficher les lignes paires/impaires dans différentes couleurs (style listing comptable), je regarderai demain au boulot dans mon dossier "test"


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 21-03-2005 à 17:37:34    

Merci beaucoup ANTP !

Reply

Marsh Posté le 21-03-2005 à 18:21:21    

Dans OnCustomDrawItem :


    Sender.Canvas.Font.Color := clblack;
    if Item.Index mod 2 = 1 then
      Sender.Canvas.Brush.Color := clMoneyGreen
    else
      Sender.Canvas.Brush.Color := clwhite;


avec OwnerDraw qui reste à False
ici on ne fait que modifier les propriétés du Canvas avant que la liste ne dessine elle-même son contenu


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 21-03-2005 à 18:23:33    

Je teste ça ce soir, merci encore !

Reply

Marsh Posté le 12-02-2006 à 20:48:44    

antp a écrit :

Dans OnCustomDrawItem :


    Sender.Canvas.Font.Color := clblack;
    if Item.Index mod 2 = 1 then
      Sender.Canvas.Brush.Color := clMoneyGreen
    else
      Sender.Canvas.Brush.Color := clwhite;


avec OwnerDraw qui reste à False
ici on ne fait que modifier les propriétés du Canvas avant que la liste ne dessine elle-même son contenu


 
Bravo,
 
Dans le cas d'une recherche d'un screensaver *.scr qui se trouve dans le dossier Windows et Windows\system32, comment faire pour lancer la recherche avec un seul bouton et que les icones apparaissent à côté du fichier dans le Tlistview.
 
Merci de me répondre,
 
Cincap

Reply

Marsh Posté le 15-02-2006 à 11:52:53    

J'ai du mal à voir le rapport avec la question de base du topic [:pingouino]
Les recherches c'est avec FindFirst/FindNext/FindClose.
Pour récupérer une icône d'un fichier (et ensuite l'ajouter à une ImageList par exemple), il y a ceci :

Code :
  1. function GetIcon(const FileName: TFileName; const Large: Boolean): TIcon;
  2. var
  3.  sfi: TSHFileInfo;
  4.  i: Integer;
  5. begin
  6.  Result := nil;
  7.  try
  8.    Result := TIcon.Create;
  9.    if Large then
  10.      i := SHGFI_LARGEICON
  11.    else
  12.      i := SHGFI_SMALLICON;
  13.    SHGetFileInfo(PChar(FileName), FILE_ATTRIBUTE_NORMAL, sfi, SizeOf(sfi), SHGFI_ICON or SHGFI_USEFILEATTRIBUTES or i);
  14.    if sfi.hIcon = 0 then
  15.      FreeAndNil(Result)
  16.    else
  17.      Result.Handle := sfi.hIcon;
  18.  except
  19.    FreeAndNil(Result);
  20.  end;
  21. end;


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 27-10-2009 à 14:06:53    

j'ai une petite question je suis entrain d'essayer de faire un casse brique avec D5 et je ne sais plus comment faire pour lui dire que si la balle passe sur une brique bleue ... alors elle s'efface ... vous avez une idée ?????????? merci d'avance

Reply

Marsh Posté le 27-10-2009 à 15:17:43    

pouvez vous me répondre par mail svp : jolikim7@msn.com merci

Reply

Marsh Posté le 27-10-2009 à 15:17:43   

Reply

Marsh Posté le 28-10-2009 à 11:19:18    

Comme dans mon post précédent, j'ai encore une fois du mal à voir le rapport avec la question de base du topic ou même avec la question suivante.
En plus une question pareille je ne vois pas qui pourrait te répondre... Tellement vague et général.


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed