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? :(

[mkinzler]

Delphi-Quellcode:

if FileExists(Item.Caption) then
      Font.Color := clBlack
    else
      Font.Color := clGrayText;

[WojTec]

Oh, why I didn't think about this :D

Delphi-Quellcode:

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

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

    R := Classes.Rect(Rect.Left + 6, Rect.Top + 3, Rect.Right, Rect.Bottom - 2);
    S := Item.Caption;
    TextRect(R, S, [tfEndEllipsis]);
  end;
end;

There is grey, but can't be selected as when OwnerDraw is False (in system style). In Delphi can be. Any idea?

[mkinzler]

You have to evaluate the state

[Luckie]

The item gets selected, but you don't see it because it is your responsiblity to give the user visual feedback if you draw the items yourself.

[WojTec]

So, how I can draw it in current Windows's style?

[Luckie]

Markus gave you the answer.

[WojTec]

Yes, but how about in current system style. For example in XP there is solid color, but on Vista+ there is gradiented. I want to just grey text, all other should be "original". Are you understand what I mean ;)

[mkinzler]

Call the standard Draw-Routine after you set the new Color

[WojTec]

What you mean? I'm not pro in owner drawing :( Could you give me an example?