Discussion :

[Lung]

Comment utiliser l'évènement OnDrawItem d'une ListBox ?

Mon but est d'avoir le fond de ma ListBox en noir, avec une police de couleur claire.
J'ai donc fait comme ca :

Code :

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

1
2
3
4
5
6
7
procedure TMainForm.ListBoxCtrlEspaceDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
   ListBoxCtrlEspace.Canvas.Brush.Color := _CouleurF;
   ListBoxCtrlEspace.Canvas.Pen.Color := _Couleur;
   ListBoxCtrlEspace.Canvas.Font.Color := _Couleur;
   ListBoxCtrlEspace.Canvas.TextRect(Rect, 2, 2, ListBoxCtrlEspace.Items[Index]);
end;

Et j'obtiens une ListBox noire ... et vide.
Je ne comprend pas.

Comment faut-il s'y prendre ?

[Pedro]

Salut
As-tu mis OwnerDraw à true?

[Lung]

Tu veux dire Style à lbOwnerDrawFixed ?
Oui.

Quand ma ListBox est motivée, elle condescend à m'afficher le texte de ma première ligne. Mais pas plus.

[Pedro]

Bon ben questions idiotes suivantes:
Est-ce que _Couleur et _CouleurF sont correctement assignées?

[Lung]

Oui.
Je viens de refaire un test vite-fait dans un nouveau projet :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.ListBoxCtrlEspaceDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
   ListBoxCtrlEspace.Canvas.Brush.Color := clBlack;
   ListBoxCtrlEspace.Canvas.Pen.Color := clLime;
   ListBoxCtrlEspace.Canvas.Font.Color := clLime;
   ListBoxCtrlEspace.Canvas.TextRect(Rect, 2, 2, ListBoxCtrlEspace.Items[Index]);
end;

[Pedro]

Je ne connais pas bien TextRect ( ) mais essaie de décomposer pour voir ce qui ne va pas:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.ListBoxCtrlEspaceDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); 
begin
  with ListBoxCtrlEspace.Canvas do
  begin
    Brush.Color := clRed; //met rouge pour voir le changement.
    //Si tu mets noir, tu ne sauras pas s'il a bien fait l'opération ou s'il a mis une couleur par défaut...
    Pen.Color := clLime; 
    Font.Color := clBlue;
    Rectangle(Rect);
    TextOut(Rect.Left,Rect.Top,ListBoxCtrlEspace.Items[Index]);
end;

Là comme ça, chez moi ça devrait marcher...

[Lung]

Ca marche !

Code :

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

1
2
3
4
5
    ListBoxCtrlEspace.Canvas.Brush.Color := clBlack;
    ListBoxCtrlEspace.Canvas.Pen.Color := clBlack;
    ListBoxCtrlEspace.Canvas.Font.Color := clLime;
    ListBoxCtrlEspace.Canvas.Rectangle(Rect);
    ListBoxCtrlEspace.Canvas.TextOut(Rect.Left, Rect.Top, ListBoxCtrlEspace.Items[Index]);

Par contre, je ne vois pas bien ce qui n'allait pas ...

[Pedro]

Mais de rien

Par contre, je ne vois pas bien ce qui n'allait pas ...

Ben moi non plus figure-toi... Je pense qu'il faudrait potasser l'aide pour TextRec parce que visiblement, c'est là qu'il y a(avait) un problème...
Mais je ne le connais pas, je n'utilise jamais TextRec...