Ich möchte hier ein ListView wechselseitig immer eine Zeile grün und eine weis
und das unabhängig ob in der Zeile des ListView etwas steht oder ob sie leer ist.
Mein nachstehender Code macht das nur für die Zeilen im ListView wo etwas drinsteht.
Wie kann ich das für das ganze Listview machen?
Gruß
Michael
Code: Alles auswählen
// Grün-Weis Teil-1
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
const
cStripe = $CCFFCC;
begin
ListView1.Canvas.Font.Color := clBlack;
if Odd(Item.Index) then ListView1.Canvas.Brush.Color := cStripe
else ListView1.Canvas.Brush.Color := clWindow;
end;
Code: Alles auswählen
// Grün-Weis Teil-2
procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
const
cStripe = $CCFFCC;
begin
if Odd(Item.Index) then ListView1.Canvas.Brush.Color := cStripe
else ListView1.Canvas.Brush.Color := clWindow;
end;