listview selected farbe ändern

[Fussball-Robby]

Delphi-Quellcode:

procedure TForm1.ListView1DrawItem(Sender: TCustomListView;
  Item: TListItem; Rect: TRect; State: TOwnerDrawState);
begin
  with Sender.Canvas do
  begin
    Brush.Color := clWhite;
    Pen.Color := clBlack;
    if Item.Selected then
    begin
      Brush.Color := clLime;
      Font.Color := clRed;
    end;
    if i = Item.Index then
    begin
      Brush.Color := clRed;
      Font.Color := clBlack;
    end;
    FillRect(Rect);
    TextOut(Rect.Left, Rect.Top, Item.Caption);
  end;
end;