TAbCustomListView

type TAbCustomListView = class(TCustomListView)

protected

  FArchive: TAbBaseBrowser;

  FDefHeaderProc: TWindowProcPtr;

  FFlatList: Boolean;

  FHeaderHandle: HWND;

  FHeaderImages: TImageList;

  FHeaderInstance: Pointer;

  FInUpdateSortArrows: Boolean;

  FPath: string;

  FSortAscending: Boolean;

  FSortColIndex: Integer;

  FSortColumn: TAbViewColumn;

  FSortUpBmp: HBITMAP;

  FSortDownBmp: HBITMAP;

  FTreeView: TAbCustomTreeView;

  FVisibleColumns: TAbViewColumns;

  procedure ColClick(); override;

  function CreateListItem; override;

  function CreateListItems; override;

  procedure CreateWnd; override;

  function CustomDrawSubItem(); override;

  procedure DblClick; override;

  procedure DoChange(); virtual;

  function GetListItems;

  procedure HeaderWndProc(); virtual;

  function IsCustomDrawn(); override;

  procedure Notification(); override;

  procedure SetArchive();

  procedure SetFlatList();

  procedure SetPath();

  procedure SetTreeView();

  procedure SetVisibleColumns();

  procedure UpdateColumns;

  procedure UpdateSortArrow;

  procedure UpdateView;

  property HeaderImages: TImageList; [r]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Sort();

  property Archive: TAbBaseBrowser; [rw]

  property Columns;

  property FlatList: Boolean; [rw]

  property Items: TAbListItems; [rs]

  property TreeView: TAbCustomTreeView; [rw]

  property Path: string; [rw]

  property VisibleColumns: TAbViewColumns; [rw]

end;

TAbCustomListView

TObject