also ich habe mir mal die links angeschyut aber werde nich wirklich schlau draus.
Delphi-Quellcode:
procedure TForm1.ListView6CustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
var Item2 : TListItems;
begin
Item2 := ListView6.Items;
with ListView6.Canvas.brush do
begin
if string(Item2) = 'ja' then
begin
Color := clred;
end;
if string(Item2) = 'nein' then
begin
Color := clBlack;
end;
end;
end;
den code habe ich im mom nur leider färbt sich damit nichts zu vor hatte ich keine 2. if anweisung sondern ein normales else drin und da wurden alle zeilen bei mir schwarz gemacht. Was mache ich flasch?
MfG
BastardOp