Und wie kommst du auf den Code?
Du kannst nicht einfach TListitems auf String casten. Ausserdem ist mir schleierhaft, was du damit überhaupt willst. Du bekommst das aktuelle Item + Subitem doch als Parameter.
Versuchs mal so:
Delphi-Quellcode:
procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
with ListView1.Canvas.brush do
begin
if (Item.SubItems[Subitem] = 'ja') then
begin
Color := clred;
end
else
begin
Color := clBlack;
end;
end;
end;
Ist ungetestet, könnte aber funktionieren
*edit* da fehlte noch ein "s"
