Discussion :

[wwilly17]

Bonjour,
Voilà mon souci : je remplis mon listview avec des données issues d une bdd, sauf que suivant la valeur d'un champ je dois mettre le subitem correspondant d'une certaine couleur.
J"ai trouvé sur le net comment mettre un subitem avec une couleur de fond différente mais pas comment le faire en fonction de la valeur d'un autre subitems.
J'utilise cette fonction pour mettre de la couleur mais en réponse j'ai une erreur car il me dit que le String[1] est not found... Je précise que le listview est rempli lors de la saisie sur un champ Tedit.

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure Tfrm_recherche.lst_persCustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
 
begin
if ((subitem=7) and (item.SubItems.Strings[1]='tot')) then sender.Canvas.font.color:=clgreen;
 
end;

Merci d'avance

[anapurna]

salut
Subitems est deja un TStrings donc le Strings est de trop

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure Tfrm_recherche.lst_persCustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
 
begin
  if ((subitem=7) and (item.SubItems[1]='tot')) then 
     sender.Canvas.font.color:=clgreen;
end;

[wwilly17]

j ai essaye avec ton code mais il me redonne la même erreur : List Index 7 out of bounds ( j ai remplace le numero d' index de 1 par 7 )

[wwilly17]

Pour bien comprendre ma demarche voila le bout de code complet avec le remplissage de la Tlistview

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
 
 
procedure Tfrm_recherche.lst_persCustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  if ((subitem=6) and (item.SubItems[6]='0')) then sender.Canvas.font.color:=clgreen;
 
end;
 
 
 
 
 
procedure Tfrm_recherche.txt_rechChange(Sender: TObject);
var li:TlistItem;
    Senderb: TCustomListView;
    Item: TListItem ;
begin
  reqsql.close;
  reqsql.sql.text:='select id_pers,CAST(nom_pers AS CHAR(255)) as nom_pers,prenom,naissance,lieu,badge,statut from accueil2_personnes where nom_pers like "'+txt_rech.Text+'%" or prenom like "'+txt_rech.text+'%"';
  reqsql.Open;
  lst_pers.Clear;
  while not reqsql.EOF do
  begin
//       ShowMessage(SQLquery1.Fields[0].AsString);
       li:=lst_pers.Items.add;
       li.Caption:=reqsql.Fields[0].AsString;
       li.SubItems.Add(reqsql.Fields[1].AsString);
       li.SubItems.Add(reqsql.Fields[2].AsString);
       li.SubItems.Add(reqsql.Fields[3].AsString);
       li.SubItems.Add(reqsql.Fields[4].AsString);
 
       if (reqsql.fields[5].AsString='0') then
         begin
               li.SubItems.Add('');
         end
       else
       begin
       li.SubItems.Add(reqsql.Fields[5].AsString);
         end ;
 
       if reqsql.fields[6].AsString='0'  then
          begin
                li.SubItems.Add('AUTORISE');
          end
        else
        begin
        li.SubItems.Add('NON AUTORISE');
         end;
 
        li.SubItems.Add(reqsql.Fields[6].AsString);
 
 
 
       reqsql.Next;
 
  end;
 
end;

[tourlourou]

Je pense que ton ListView, chaque fois qu'il doit se redessiner, va exécuter le test.
Chaque fois que tu lui ajoutes un élément, il va vouloir se redessiner, y compris avant de lui avoir ajouté autant d'éléments, d'où une violation d'accès (index out of bounds).
Il doit suffire de tester la propriété Count avant de faire le test pour être sûr de ne pas dépasser.
Autre solution, si applicable, encadrer d'un ListView.BeginUpdate/EndUpdate sa mise à jour pour qu'il ne se rafraichisse pas avant d'être rempli.

[EDIT] la liste des SubItems est d'indice démarrant à zéro, donc subitems[0..Count-1]
mais le test if (subitem=6) ne devrait pas déclencher la vérification and (item.SubItems[6]='0')) sauf option de compilation réglée pour évaluer toutes les conditions même quand résultat de l'évaluation déjà connu, non ?

[wwilly17]

merci pour la dernière idée , j ai ajouté un beginupdate et endupdate et cela fonctionne correctement.
merci encore