TShellListView组件问题

Question

我用TShellListView组件， 但碰到一点问题。
1. ViewStyle 设为vsReport, 但是点击title，没有排序功能。2. 我想只显示*.jpg 文件，但不知怎么设置。

Answer 1

只显示*.jpgprocedure TForm1.ShellListView1AddFolder(Sender: TObject; AFolder: TShellFolder;
  var CanAdd: Boolean);
begin
  if (AFolder.IsFolder = false) and (extractfileext(AFolder.DisplayName) <> '*.jpg')
  then begin
    CanAdd := False;
  end;
end;排序事件
begin
  SortColumn := 0;
  ShellListView1.FolderList.Sort(ShellCompare);
  ShellListView1.Invalidate;
end;

Answer 2

谢谢楼上的，
排序问题还没解决，
ShellListView1.FolderList 编译不过，
没有FolderList 这个属性。
我用的是delphi7

Answer 3

我用的也是D7,少了一个函数
function ShellCompare(Item1, Item2: Pointer): Integer;
begin
  Result := Smallint(
    TShellFolder(Item1).ParentShellFolder.CompareIDs(
    SortColumn,
    TShellFolder(Item1).RelativeID,
    TShellFolder(Item2).RelativeID));
end;