Discussion :

[Betcour]

Je m'arrache les cheveux sur un problème plutôt simple : changer la couleur de la fonte en dessinant dans un Canvas (plus précisément dans un évènement OnCustomDrawItem) :

ListView1.Canvas.FillRect(Rectangle_sans_importance);
ListView1.Canvas.Brush.Color:=clBlue;
ListView1.Canvas.Font.Color:=clWhite;
ListView1.Canvas.TextRect(FRect,FRect.Left+adj,FRect.Top,Item.Caption);

Le text est bien affiché mais toujours en noir sur fond blanc. J'en perd mon latin

Edit : rajouté le FillRect

[Rayek]

Et avec Textout ?

Code :

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

1
2
 
ListView1.Canvas.TextOut(FRect.Left+adj,FRect.Top,Item.Caption);

[Betcour]

Même problème malheureusement

Pourtant je ne vois pas bien ce que je peu avoir fait de travers, et je suis sûr que ces biens ces lignes qui affichent ce texte (donc c'est pas "autre chose" qui peint par dessus mon texte).

[ero-sennin]

Salut,

Chez moi j'ai essayé le code ci dessous, et ca fonctionne

Code :

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

1
2
3
4
5
6
7
procedure TForm1.ListView1CustomDraw(Sender: TCustomListView;
  const ARect: TRect; var DefaultDraw: Boolean);
begin
ListView1.Canvas.Brush.Color:=clYellow; // Surlignage jaune
ListView1.Canvas.Font.Color:=clBlue; // Texte en bleu
ListView1.Canvas.TextOut(10,10,'cool'); // Position du texte et texte à afficher
end;

Tu es sur que le problème ne vient pas d'autre part?

@+

[Betcour]

Tu es sur que le problème ne vient pas d'autre part?

Bah il ne reste que l'évènement lui même. Je suis déjà tombé sur un bug car quand on laisse le composant s'occuper du tracé du texte la fonte par défaut "saute" si on trace quelque chose sur le canvas dans l'évènement OnCustomDrawItem qui est déclenché avant (et apparement je suis pas le seul a avoir découvert ce problème).

Bon ben du coup je crois que je essayer d'écrire sur un canvas virtuel et faire une copie du résultat sur le canvas du composant. Mais bon c'est loin d'être optimal, ça serait mieux si le composant marchait comme il faut

[Betcour]

Salut,

Chez moi j'ai essayé le code ci dessous, et ca fonctionne

Code :

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

1
2
3
4
5
6
7
procedure TForm1.ListView1CustomDraw(Sender: TCustomListView;
  const ARect: TRect; var DefaultDraw: Boolean);
begin
ListView1.Canvas.Brush.Color:=clYellow; // Surlignage jaune
ListView1.Canvas.Font.Color:=clBlue; // Texte en bleu
ListView1.Canvas.TextOut(10,10,'cool'); // Position du texte et texte à afficher
end;

Tu es sur que le problème ne vient pas d'autre part?

@+

Ca marche comme ça, mais essaye en rajoutant un FillRect avant et en placant le code, dans CustomDrawItem, et la ça ne marche plus

[Bejaia-In]

J'ai fait un petit essai sur Delphi 7 et ça marche :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var R:TRect;
begin
 R:=Node.DisplayRect(True);
 with Sender.Canvas do
 begin
  Brush.Color:=clblue;
  Font.Color:=clwhite;
  TextRect(R,R.Left,R.Top,Node.Text);
 end; 
end;

[Betcour]

J'ai fait un petit essai sur Delphi 7 et ça marche :

Effectivement, mais à condition de ne rien dessiner sur le canvas avant et pas dans une ListView

[Betcour]

Bon le bug semble etre dans la VCL, j'ai réussi à le contourner en utilisant directement les fonctions GDI de l'API Windows (SetTextColor et TextOut)

[Bejaia-In]

Mea-culpa, je me suis trempé de composant.
néanmoins, j'ai refais l'essai ... et ça marche toujours :

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 TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var R:TRect;
begin
 R:=Item.DisplayRect(drLabel);
 with Sender.Canvas do
 begin
  Brush.Color:=clRed;
  FillRect(Rect(50,50,200,100));
  Brush.Color:=clblue;
  Font.Color:=clwhite;
  TextRect(R,R.Left,R.Top,Item.Caption);
 end;
end;

Alors, comme tu affirmais que ça marche pas pour toi, j'ai cherché la petite bête.
Je crois que le problème viendrais de la propriété "OwnerDraw" du ListView qu'il faut laisser à ... false !