Hallo,
ich möchte in einer TListView eine Zelle färben und verwende diesen Code
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:=$00F7F7F7;
end;
end;
Die TListView hat als Color ebenfalls $00F7F7F7
Die Folge ist nun, dass alle Zellen mit SubItem >= 7 in rot gefärbt werden. Zum Testen habe ich mal eine andere Hintergrundfarbe genommen.
Somit unterscheidet sich nun also TListView.Color und Sender.Canvas.Brush.Color:=$00F7F7F7;
Damit funktioniert es wie gewünscht. Allerdings sollten ja die SubItems genauso eingefärbt werden, wie TListView.Color (außer halt bei SubItem=7)
Was mache ich falsch?
Grüße
Christof