[D6] Utiliser OnDrawItem d'une ListBox !?

Version imprimable

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:

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 ?

:hola:

17/05/2005, 10h16
Pedro

Salut
As-tu mis OwnerDraw à true?
17/05/2005, 10h25
Lung

Tu veux dire Style à lbOwnerDrawFixed ?
Oui. :wink:

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

:(
17/05/2005, 10h58
Pedro

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

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

Code:

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;

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

Code:

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...

Ca marche !

Code:

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]);

:bravo: :merci: :ccool:

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

:roll:

17/05/2005, 11h21
Pedro

Citation:

Envoyé par Lung

:bravo: :merci: :ccool:

Mais de rien

Citation:

Envoyé par Lung

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...