TShellListView组件问题

[zaza_bbface]

我用TShellListView组件， 但碰到一点问题。
1. ViewStyle 设为vsReport, 但是点击title，没有排序功能。

2. 我想只显示*.jpg 文件，但不知怎么设置。

[jdngz]

只显示*.jpg

procedure 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;

[jdngz]

我用的也是D7,少了一个函数

function ShellCompare(Item1, Item2: Pointer): Integer;
begin
Result := Smallint(
TShellFolder(Item1).ParentShellFolder.CompareIDs(
SortColumn,
TShellFolder(Item1).RelativeID,
TShellFolder(Item2).RelativeID));
end;

[zaza_bbface]

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