Discussion :

[user8]

Bonjour tout le monde,

je rencontre actuellement un problème lié au composant TlistView sous Delphi XE.
Le composant est en mode vsreport. Je souhaite afficher à gauche de chaque item un petit rectangle d'une couleur différente suivant l'item.

J'utilise donc l’évènement OnAdvancedCustomDrawItem de la manière suivante:

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
 
procedure TForm1.AdvListView1AdvancedCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
  var DefaultDraw: Boolean);
var
  rect     : TRect;
 
  OldBrushCol   : TColor;
  OldBrushStyle : TBrushStyle;
  OldPenCol     : TColor;
  OldPenStyle   : TPenStyle;
  OldPenMode    : TPenMode;
begin
  if (Stage = cdPostPaint) then
  begin
    {sauvegarde de brush et pen}
    OldBrushCol := Sender.Canvas.Brush.Color;
    OldBrushStyle := Sender.Canvas.Brush.Style;
    OldPenCol   := Sender.Canvas.Pen.Color;
    OldPenStyle := Sender.Canvas.Pen.Style;
    OldPenMode  := Sender.Canvas.Pen.Mode;
 
 
    Sender.Canvas.Brush.Color := {get item color}
    Sender.Canvas.Pen.Style := psClear;
    {récupération du rectangle cible}
    rect:=Item.DisplayRect(drIcon);
    {dessin du rectangle}
    Sender.Canvas.RoundRect(rect.Left,rect.top,rect.right,rect.bottom,10,10);
 
    {récupération des anciennes valeurs de brush et pen}
    Sender.Canvas.Brush.Color:=OldBrushCol;
    Sender.Canvas.Brush.Style:=OldBrushStyle;
    Sender.Canvas.Pen.Color:=OldPenCol;
    Sender.Canvas.Pen.Style:=OldPenStyle;
    Sender.Canvas.Pen.Mode:=OldPenMode;
 end;
end;

A première vue cela semble marcher mais lorsque qu'à l'exécution je joue avec le focus, je veux dire par la que je passe ma souris plus ou moins rapidement au dessus des items, un fond noir apparaît derrière chacun des libellés des subitems de l'item pointé.
Ce qui est encore plus étonnant c'est que ce fond noir apparaît lorsque que je descends dans la liste mais pas lorsque je remonte.

Quelqu'un a-t-il déjà rencontré ce problème?

[EDIT] Je joins 2 screenshots pour imager tout ça.

[user8]

Ce post ne semble pas passionner les foules...

Personne n'a déjà eu ce genre de problème avec le OnAdvancedCustomDrawItem?

[ShaiLeTroll]

Au pire, si tu n'as pas trop de couleur, utilise une TImageList contenant les pastilles de chaque couleur prévu !
D'ailleurs, tu n'aurais pas affecter une TImageList vide juste pour afficher les Icones (sinon l'option m'interesse !)

Sinon, as-tu un autre évènement OnCustomDraw pour le Texte en Rouge ?
Parce qu'en C++ Builder 2007 (XP SP3), j'ai repris ton code (Random pour la Couleur), c'est nickel !

L'aspect de mon RowSelect est différent du tiens, moi c'est un rectangle Bleu + Pointillé, tu l'as refait ou c'est Seven ?

[user8]

Les couleurs correspondent à des groupes dont je ne connais pas le nombre. Elles sont donc générés aléatoirement. Il faudrait dont que je génère dynamique un TImagelist ... ça peut être une solution.

Non je n'ai pas d'autre OnCustomDraw. C'est la propriété font du Listview qui est définit rouge.

Pour l'aspect de sélection, c'est bien seven.

[Sixpounder]

Bonjour,

J'ai actuellement le même problème que toi sous c++ builder.

J'essaye de jouer avec les états mais rien n'y fait...

As-tu trouvé une solution ?