TShellListView组件问题
我用TShellListView组件， 但碰到一点问题。
1. ViewStyle 设为vsReport, 但是点击title，没有排序功能。
2. 我想只显示*.jpg 文件，但不知怎么设置。
[解决办法]
只显示*.jpg
[code=Delphi(Pascal)][/code]
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;
