TListView.OnDrawItem

[WojTec]

Now working Thanks so much!

Delphi-Quellcode:

    Brush.Style := bsClear;
    FillRect(Rect);

    if odSelected in State then
    begin
      DrawThemeBackground(Theme, lvRecentFiles.Canvas.Handle,
        LVP_LISTITEM, LIS_SELECTED, Rect, nil
      );
    end;

Yes, OnCustom* are not required, just OnDrawItem is needed. This cod I putten between font color and text render. And now I have list liki in Delphi