Farbige ListView Einträge

[MrKnogge]

Servus,

ich habe ein Listview mit mehreren Spalten, nun möchte ich in einem bestimmten Feld rote schrift haben, nur weis ich nicht wie ich auf ein einzelnen Feld zugreifen kann.

Kann mir jemand weiter helfen ?

[grayfox]

hallo mr knogge!

hast schon --> hier nachgesehen, ob für dich etwas passendes dabei ist?
falls nicht, dann meld dich nochmal.
mfg, stefan

[MrKnogge]

Zitat von Die Suche:

Keine Beiträge entsprechen deinen Kriterien.

[Sharky]

Hai MrKnogge,

schaue Dir mal diesen Beitrag an. Das vorletzte Posting sollte Dir helfen.

[MrKnogge]

Sorry, da hab ich mich falsch ausgedrückt. Mit:

Delphi-Quellcode:

with ListView1.Canvas.Font do 
  begin 
    case Item.Index of 
      0: Color := clred; 
    end; 
  end;

wird die gesamte 1. reihe rot geschrieben, ich möchte aber nun nur einen Eintrag (2. Spalte) in der ersten Reiche rot haben.

[Sharky]

Hai MrKnogge,

dann musst Du es im OnCustomDrawSubItem machen.

Delphi-Quellcode:

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
with ListView1.Canvas.Font do
  begin
    //Item.Index = Zeile und SubItme = Spalte (bei 0 beginnend)
    if (Item.Index = 0) AND (SubItem = 1) then 
    begin
      Color := clred;
    end
    else
    begin
      Color := clBlack;
    end;
  end;
end;

[MrKnogge]

alles klar thx !
SubItem hätte mir aber auch die Augen springen müssen