ListView - Item färben

[xZise]

Kann ich in einer ListView mit der Einstellung Report ein Item färben?

Weil ich gerne ein Item, wenn es nicht gefunden wurde, rot hinterlegen (oder den Text rot einfärben).

[BenjaminH]

Das hier ist doch das, was du suchtest, oder?

[xZise]

Nicht ganz... Ich möchte es zur Luafzeit ändern.

D.h. sie wird ausgeführt, während sie schon längst gezeichnet wurde.

Allerdinsg könnte ma es umformen:
Dazu fehlt mir leider TCustumListView!

[Nils_13]

Hier ein Beispiel:

Delphi-Quellcode:

procedure TfrmMain.lvTasksCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Item.Checked then
  begin
    Sender.Canvas.Brush.Color := clWhite;
    Sender.Canvas.Font.Color  := clBlack;
  end else
  begin
    Sender.Canvas.Brush.Color := $00006CEB;
    Sender.Canvas.Font.Color  := clWhite;
  end;
end;

[xZise]

Wann wird denn diese Funktion ausgeführt?

[Zacherl]

Immer, wenn ein Eintrag neu gezeichnet werden muss, weil er z.B. von einem Fenster verdeckt war, oder sich geändert hat.
Das macht die Komponente aber selbstständig.

Florian

[xZise]

Ich hätte es lieber "kontrollierbar" machen.
Und zwar gibt es eine Liste mit Dateien.
Diese soll er auf einem Buttonklick rot einfärben, wenn es diese Datei nicht mehr gibt (umbenannt, gelöscht).

[Nils_13]

Dann wird doch etwas verändert, oder ?

[DGL-luke]

dann mach dir einfach irgendwo ein boolean, das du bei buttonclick auf true setzt, listview.invalidate aufrufst und im ownerdraw prüfst.