with LBox.Canvas do
  begin
    Brush.Color := LBox.Color;
    FillRect(Rect);
    { если сюда подставить LBox.Handle, то ничего рисоваться не будет,
      а если использовать VSCLASS_LISTBOX и соответствующие ID ниже,
      то будет уродское синее выделение, как в стандартном listbox'е }
    LTheme := OpenThemeData(stFileView.Handle, VSCLASS_LISTVIEW); 
    if odSelected in State then
    begin
      LElement := ThemedElement[odFocused in State];
      DrawThemeBackground(LTheme, Handle, LVP_LISTITEM, LElement, Rect, nil);
      if odFocused in State then
        DrawFocusRect(Rect);
    end else
      LElement := LIS_NORMAL;
    InflateRect(Rect, -2, -2);
    DrawThemeText(LTheme, Handle, LVP_LISTITEM, LElement, PChar(LBox.Items[Index]), -1,
      DT_SINGLELINE or DT_VCENTER or DT_END_ELLIPSIS, 0, Rect);
    CloseThemeData(LTheme);
  end;