TListView.OnDrawItem

[Namenloser]

One thing I immediately spotted:

Delphi-Quellcode:

procedure TForm20.FormCreate(Sender: TObject);
begin
  SetWindowTheme(lvRecentFiles.Handle, 'Explorer', nil);
  Theme := OpenThemeData(0, 'ListView');
end;

has to be

Delphi-Quellcode:

procedure TForm20.FormCreate(Sender: TObject);
begin
  SetWindowTheme(lvRecentFiles.Handle, 'Explorer', nil);
  Theme := OpenThemeData(lvRecentFiles.Handle, 'ListView');
end;

Because, as I said, you have to manually activate the "explorer style" for each window by calling SetWindowTheme. If you do this for a specific window, but then open the theme data of a different window handle (0), of course it won't work.

Not saying, that this is the only issue (might be, might not be), but at least it's one reason why it can't work. If it doesn't work after changing this, try to set

Delphi-Quellcode:

DefaultDraw

to

Delphi-Quellcode:

False

because it's possible that the default drawing routine overdraws the background again (I don't know about that and I'm too lazy to look it up in the VCL sources).

Also, I don't know what the difference between

Delphi-Quellcode:

OnDrawItem

and

Delphi-Quellcode:

OnCustomDrawItem

is, and in which order they are called. But I would suggest moving the

Delphi-Quellcode:

DrawThemedBackground

-code to the

Delphi-Quellcode:

OnDrawItem

routine.

[WojTec]

Now working :D 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 :D