So, jetzt habe ich es gefunden und mache es so:
Delphi-Quellcode:
procedure TForm_UserAnlegen.ListView1CustomDrawSubItem(
Sender: TCustomListView; Item: TListItem; SubItem: Integer;
State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if (Item=nil) then Exit;
if (Item.SubItems.Count>0) then
begin
if (StrToInt(Item.SubItems[0])>0) then ListView1.Canvas.Brush.Color:=clGreen;
end;
end;
Dann hatte ich im Property-Editor OwnerDraw auf True, das habe ich jetzt auf False.
Jetzt funktioniert es.
Kleiner Fehler große Wirkung...
DANKE für eure Hilfe und Mühen..
MfG
schuetze09