Bonjour à tous, j'essaie de faire une listview perso, j'ai donc mis le ownerdraw à true, et testé la fonction OnCustomdraw avec ce petit 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
procedure TfrmMain.lvPenetCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
begin
  with lvPenet.Canvas.Brush do
  begin
    case Item.Index of
      0: Color := clYellow;
      1: Color := clGreen;
      else Color := clRed;
    end;
  end;
end;
end;
Mais ça ne colore rien du tout :'(
Quelqu'un aurait-il une idée ?