Hallo,
wenn ich Deinen Code verwende
Code:
procedure TKabOpTerminManager.ListViewTermineCustomDrawSubItem(Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if SubItem = 7 then
begin
Sender.Canvas.Brush.Color:=clRed;
end
else
begin
Sender.Canvas.Brush.Color:=TListView(Sender).Color;
end;
end;
dann sehen die Zellen ab SubItem >= 7 rot aus, wie im Bild zu sehen ist.
Verwende ich aber
Code:
procedure TKabOpTerminManager.ListViewTermineCustomDrawSubItem(Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if SubItem = 7 then
begin
Sender.Canvas.Brush.Color:=clRed;
end
else
begin
Sender.Canvas.Brush.Color:=clGray; // als Beispiel
end;
end;
Dann sehen alle Spalten grau aus (bis auf die 7.) Es soll aber nicht grau sein, sondern eigentlich TListView(Sender).Color, aber das funktioniert nicht
