Hi,
wenn das Problem noch steht... so gehts:
Im Ereigniss der Listview: ONCustomDrawSubItem
Zugriff aufs Subitem: Item.SubItems[0];
also so(LV is der Name der Listview
:
[delphi]
procedure TForm1.LVCustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
with LV.Canvas.Brush do begin
if StrToInt(Item.SubItems[0]) > 0 then
Color := clred;
end;
end;
[delphi]
Ich hoffe es hilft weiter...
CU