TListView.OnDrawItem

[Namenloser]

TListview doesn't support the themed selection rectangle out of the box. You have to activate it manually by calling SetWindowTheme(Listview.Handle, 'Explorer', nil);

[WojTec]

I added it to OnCreate, this is good procedere?
Still no effect OnDrawItem should be in OnCustomDrawItem? But this don't have Rect parameter. Don't have idea how to do it

[Namenloser]

Does it work if you don't use any owner/custom drawing code?

Btw: As you're already using clGrayText , why not use clWindowText for regular text as well? Depending on the settings, text may not always be black by default. In general, you should avoid combining environment colors with hard coded colors, because it can get ugly (e.g. black text on a black background) if someone uses different settings.

[WojTec]

If I don't use owner draw (in owner draw event I put my drawing code) items selection is as in all other listview components (system too). When enable owner drawing I don't have selection, though in custom draw event default draw is on.

[Namenloser]

You could use DrawThemedBackground from the UxTheme api. Here's a quick example:

Delphi-Quellcode:

uses UxTheme;

TMyForm = class(TForm)
private
  Theme: hTheme;
end;

procedure TMyForm.FormCreate(Sender: TObject);
begin
  Theme := OpenThemeData(0, 'ListView');
end;

procedure TMyForm.FormDestroy(Sender: TObject);
begin
  CloseThemeData(Theme);
end;

procedure TMyForm.ListViewCustomDraw(...);
var
  StateId: Integer;
begin
  StateId := LIS_SELECTED; // LIS_SELECTEDNOTFOCUS // LIS_NORMAL
  DrawThemeBackground(
    Theme, 
    ListView.Canvas.Handle, 
    LVP_LISTITEM, 
    StateId,
    Rect, 
    nil
  );
  { Other drawing code... }
end;

But if you do this, be careful to check if Themes are available or else your program will not work on older systems.

[edit]
In order to see any difference, you have to execute the SetWindowTheme-code from above first (before you acquire the theme handle). Or you could replace 'ListView' with 'Explorer::ListView' . But the former version is preferable.
[/edit]

[WojTec]

Don't working, when try select item, all what is inside control is erased, so component is blank.

Maybe I'm calling in wrong order? I have: OwnerDraw is True, OnDrawItem to make grey text, OnCustom* event with DefaultDraw set to True. Now selection is don't visible, but items are with black and grey text. Then I added your first code for themes to form OnCreate - result was the same, then repleaced it with next example - control area is cleared.

[Namenloser]

Maybe you should post your source code along with a screenshot.