Discussion :

[Soulama]

Salut,
je veux bien savoir si c possible de coloré un SubItem, par exemple:
jai une TListview avec 8 Cologne, et je veux coloré le SubItem[3] de la ligne 2 en Rouge.
jai vu levenement onCustomDrawSubItem, mais je colore toute la ligne, et c pas mon but.
si quelqun connait le probleme?
Merci

[LadyWasky]

Le mieux ce serait d'avir le code que tu utilises.

A priori tu utilises Canvas.brush:=clred pour toute la ligne au lieu de l'utiliser que pour le subitem.

[Soulama]

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
 
procedure TFrameInvoiceObj.ViewLocalCallsCustomDrawSubItem(
  Sender: TCustomListView; Item: TListItem; SubItem: Integer;
  State: TCustomDrawState; var DefaultDraw: Boolean);
var
  Str: String;
begin
  if Item.SubItems.Count<=SubItem Then exit ;
  if SubItem=3 Then
  Begin
    Str:= UpperCase(Item.SubItems.Strings[SubItem]);
    if AnsiContainsStr(Str, 'DEJA') Then
    Begin
       Sender.Canvas.Font.Color := clRed;
    End ;
  End ;
end;

[LadyWasky]

Et comme ça ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TFrameInvoiceObj.ViewLocalCallsCustomDrawSubItem(
  Sender: TCustomListView; Item: TListItem; SubItem: Integer;
  State: TCustomDrawState; var DefaultDraw: Boolean);
var
  Str: String;
begin 
  if SubItem=3 Then
  Begin
    Str:= UpperCase(Item.SubItems.Strings[SubItem-1]);
    if AnsiContainsStr(Str, 'DEJA') Then
    Sender.Canvas.Font.Color := clRed
  End
  else Sender.Canvas.Font.Color := clBlack;

et sinon, ce que je te propose pour une ligne spécifique :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.lv1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
var
  Str: String;
begin
  if ((SubItem=3) and (Item.Index=1)) //Item.index=LigneVoulue-1 donc 2-1, donc 1.
  then Sender.Canvas.Font.Color := clRed
  else Sender.Canvas.Font.Color := clBlack;
end;

[Soulama]

salut,
mais c pas ce que je veux.
le code colore toute les colognes sauf la premiere, mois je veux colorer juste SubItem[3]

[LadyWasky]

Ha ba non, chez moi ça marche ! (avec Delphi 7, promis, juré, craché par terre)

[LadyWasky]

Voici la preuve :


Voici le code :

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
 
procedure TForm1.lv1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  if ((SubItem=3) and (Item.Index=1)) //Item.index=LigneVoulue-1 donc 2-1, donc 1.
  then Sender.Canvas.Font.Color := clRed
  else Sender.Canvas.Font.Color := clBlack;
end;
 
procedure TForm1.lv2CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  if ((SubItem=3) and (Item.Index=1)) //Item.index=LigneVoulue-1 donc 2-1, donc 1.
  then Sender.Canvas.Brush.Color := clRed
  else Sender.Canvas.Brush.Color := clWhite;
end;

[Soulama]

bon je vais essayé une 2eme fois

[Soulama]

ben chez moi c toute la ligne qui est rouge ???

[LadyWasky]

Alors, maintenant, ils faudrait que l'on sache :
1) Quelle version de delphi tu utilises
2) si tu as activé la prise en chrge des themes de Windows XP (XPManifest, ou un truc comme ça)

Parce que :
1) Je suis en Delphi7
2) Je n'utilise pas un truc comme XPManifest.

bref, on a peut-être pas le même environnement de développement et ça changerait tout

[Soulama]

suis en Delphi7, WinXP Pro.
le probleme c que jai essayé ton code avec un simple project, et ca marche impek.

[LadyWasky]

Alors là je sêche...

Qu'est-ce qui dans ton code fait que ça ne marche pas...

[Soulama]

voila le code dans une autre variante:

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
 
procedure TFrameInvoiceObj.ViewLocalCallsCustomDrawSubItem(
  Sender: TCustomListView; Item: TListItem; SubItem: Integer;
  State: TCustomDrawState; var DefaultDraw: Boolean);
var
  Str: String;
begin
 Sender.Canvas.Font.Color := clBlack;
 Str:= UpperCase(Item.SubItems.Strings[1]);
 if SubItem=1 Then
 Begin
   if AnsiContainsStr(Str, 'DEJA') then
    Sender.Canvas.Font.Color := clRed
   else
    Sender.Canvas.Font.Color := clBlack;
 end ;
end;

[LadyWasky]

Non, à la place, il faut que tu écrives ça, sinon la fin de ligne reste efectivement en rouge :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TFrameInvoiceObj.ViewLocalCallsCustomDrawSubItem(
  Sender: TCustomListView; Item: TListItem; SubItem: Integer;
  State: TCustomDrawState; var DefaultDraw: Boolean);
var
  Str: String;
begin
 Str:= UpperCase(Item.SubItems.Strings[1]);
 if ((SubItem=1) and AnsiContainsStr(Str, 'DEJA')) 
 Then Sender.Canvas.Font.Color := clRed
 else Sender.Canvas.Font.Color := clBlack;
end;

Edit : j'avais pas vu le Sender.Canvas.Font.Color := clBlack; en début de procedure
En tout cas ça fait plus propre comme ça...

[Soulama]

Desolé, mais ca ne marche pas du tout.

[LadyWasky]

Chez moi ça colorie bien tous les éléments de la deuxième colonne qui contiennent la sous-chaîne 'DEJA' sans distinction de majuscules ou minuscules... Etonnant : : :

A mon avis, tu as du coder un autre évènement de la ListView que OnustomDrawSubItem.

Je me trompe ?

[cpdump]

A priori, tu as toutes les infos nécessaires, mais voici un lien qui explique les différents customdraw pour un listview
http://www.delphidabbler.com/articles.php?article=16

[Pedro]

Salut
As-tu comparé les options de ta ListView qui marche (dans le projet simple) et celle qui ne marche pas... Il y a peut-être une option qui modifie l'affichage des colonnes...

[Soulama]

Salut,
jai changé la listview avec une autre et ca marche bien.
Merci les gas pour vos Réponses

[LadyWasky]

Super !