Add Custom Sorting To Delphi's TShellListView Control

TShellListView Custom Sort - Test Project

Before the popup is displayed we want the items of the popup to match column names as used by the shell list view control. Handle the "OnPopup" event as:

procedure TShellListSortForm.shellListSortPopupPopup(Sender: TObject);
var
  c: Integer;
begin
  //4 columns in "vsReport" view
  for c := 0 to ShellListView1.Columns.Count - 1 do
  begin
    shellListSortPopup.Items[c].Caption := ShellListView1.Columns[c].Caption;
    shellListSortPopup.Items[c].Tag := c;
  end;
end;

In the OnCreate event handler for the form, assign the OnClick procedure for popup menu items:

//form OnCreate
procedure TShellListSortForm.FormCreate(Sender: TObject);
var
  cnt: Integer;
begin
  ShellListView1.PopupMenu := shellListSortPopup;

  for cnt := 0 to shellListSortPopup.Items.Count - 1 do
    shellListSortPopup.Items[cnt].OnClick := shellListSortPopupItemClick;
end;

procedure TShellListSortForm.shellListSortPopupItemClick(Sender: TObject);
begin
  if shellListSortColumn <> TMenuItem(Sender).Tag then
    shellListSortColumn := TMenuItem(Sender).Tag
  else
    shellListSortAscending := NOT shellListSortAscending;

  //the actual sort
  ShellListView1.FolderList.Sort(@ShellCompare);
  ShellListView1.Invalidate;
end;

...
implementation

var
  shellListSortColumn : integer;
  shellListSortAscending : boolean;

• TShellListView - No OnCompare For Custom Sort :(
• A Little Tweak to ShellCtrls.pas and The Shell Controls Package
• One PopupMenu, one ShellListView and Custom Sorting ... Here We Go!
• ShellListView1.FolderList.Sort(@ShellCompare);