Item in TListView einfärben

[BastardOp]

also so schaut der code aus

Delphi-Quellcode:

procedure TForm1.ListView6CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
with ListView6.Canvas.brush do
  begin
    if (Item.SubItems[5] = 'ja') then
    begin
      Color := clgreen;
    end ;
    if (Item.SubItems[5] = 'nein') then
    begin
      Color := clred;
    end ;
  end;
    end;
end.

und so schaut das pic in dem fall aus

[marabu]

Einfache Erklärung: das ist nicht mein Code und auch nicht der von treffnix. Du fragst nur SubItem[5] ab und steuerst damit die Farbunterlegung für alle SubItems.

Wenn du nur die Spalte mit 'ja' und 'nein' einfärben willst, dann probiere es so:

Delphi-Quellcode:

with Sender.Canvas.Brush do
  if Item.SubItems[5] = 'ja' then 
    if SubItem = 6 
      then Color := clgreen 
      else Color := clBlack
  else 
  if Item.SubItems[5] = 'nein' then 
    if SubItem = 6 
      then Color := clred 
      else Color := clBlack
  else
    Color := clBlack;

marabu

@treffnix: Scheint so als wäre Subitem = Succ(index).

[BastardOp]

thx so funzt es schonmal
aber ich habe ja zuvor jede 2. zeile grau eingefärbt wegen der übersichtlich keit nun is da prob das die grau einfärbung ja überschrieben wird
was kann man da amachen

/Edit also irgenwie da wo else steht immer die Farbe die ie jeweilige Zeile vorher hat

[marabu]

Du könntest die Farben Rot und Grün etwas abdunkeln, wenn sie auf einer grauen Zeile liegen.

marabu

[BastardOp]

kann ihm ja auch sagen das wenn er auf einer grauen zelle liegt er bei else eine grau farbe nehmen soll. Aber ich weiß leider net wie ich nun raus bekomm ob er auf einer grauen zelle ist oder nicht

[marabu]

Odd(item.index) bedeutet bei dir "Grau"

marabu

[BastardOp]

sorry das ich schon wieder frage aber wie sieht dafür ein code schniupsel aus? bin im mom grad net ganz auf der höhe sorry

[BastardOp]

habs nun hinbekommen allerdings wenn ich die selbe Frabe wähle wie die standart farbe des ListViews wird dies komischweiße ignoriert