Item in TListView einfärben

[BastardOp]

Hi

ich wollte mal frage ob und wie es geht das ich ein einzelnes Item in eine TListView in einer bestimmten Farbe einfärb wenn ein bestimmter Inhalt vorliegt.
Habe es bereits hinbekommen jede zweite Zeile einzufärben.
ich hab meine TListView auf vsRecord

Ich hoffe ihr könt mir helfen

MfG
BastardOp

[Treffnix]

Wenn du jedes 2. Item einfärben kannst, was hindert dich daran genau das gleiche nur mit einem einzigen zu machen? :gruebel:

[BastardOp]

Im mom kann ich nur jede 2. Zeile einfärben aber ich will jetzte nur einzellne Zellen einfärben wen in denen "ja" steht

[Treffnix]

schau mal http://www.delphipraxis.net/internal...=148033#148033

[BastardOp]

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

[Treffnix]

:gruebel: 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" :oops:

[marabu]

Kleiner Verbesserungsvorschlag:

Delphi-Quellcode:

with Sender.Canvas.Brush do 
  if Item.SubItems[Pred(SubItem)] = 'ja' 
    then Color := clred
    else Color := clBlack;

Später müsste man dann noch State auswerten, damit das ganze schöner aussieht.

Grüße vom marabu

[BastardOp]

thx der code funzt soweit auch ganz gut aber is nicht ganz das was ich möchte denn ich will das nur die zelle in der ja bzw. nein steht gefärbt wird nun wird immer alles außer die 1. splate gefärbt.

wie geht des?

[marabu]

Wenn der Code in OnCustomDrawSubItem steht, dann wird nur die Zelle gefärbt - bei mir.

marabu

[Treffnix]

Zitat:

Zitat von marabu

Kleiner Verbesserungsvorschlag:

Delphi-Quellcode:

with Sender.Canvas.Brush do 
  if Item.SubItems[Pred(SubItem)] = 'ja' 
    then Color := clred
    else Color := clBlack;

Später müsste man dann noch State auswerten, damit das ganze schöner aussieht.

Grüße vom marabu

Pred? Ist SubItem nicht der Index?

[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