TListView.OnDrawItem

[WojTec]

I wanted make list with recent files. I also wanted make grey these items, that match file not exists (click File-->Reopen-->Properties in Delphi to see what I want to do). This is what I have:

Delphi-Quellcode:

begin
  with lvRecentFiles, lvRecentFiles.Canvas do
  begin
    if FileExists(Item.Caption) then
      Pen.Color := clBlack
    else
      Pen.Color := clGrayText
    ;

    TextOut(Rect.Left + 2, Rect.Top + 2, Item.Caption);
  end;
end;

I want just grey text if file not exists. Any help with this?