paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 11:56:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fix crash in ShellTreeView by José Mejuto, issue #0021360

Browse Source 
git-svn-id: trunk@36208 -
This commit is contained in:
paul 2012-03-22 02:28:53 +00:00
parent 936ca11193
commit de7eaefc28
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/shellctrls.pas
View File

@ -539,14 +539,15 @@ begin
for i:=0 to Files.Count-1 do for i:=0 to Files.Count-1 do
begin begin
FileItem:=TFileItem(Files[i]); FileItem:=TFileItem(Files[i]);
if (i > 0) and (TFileItem(Files[i]).Name = TFileItem(Files[i - 1]).Name) then if (i < Files.Count - 1) and (TFileItem(Files[i]).Name = TFileItem(Files[i + 1]).Name) then
Continue; // cause Files is sorted // From patch from bug 17761: TShellListView Mask: duplicated items if mask is " *.ext;*.ext " Continue; // cause Files is sorted // From patch from bug 17761: TShellListView Mask: duplicated items if mask is " *.ext;*.ext "
if FileItem.isFolder then if FileItem.isFolder then
AResult.AddObject(FileItem.Name, ObjectData) AResult.AddObject(FileItem.Name, ObjectData)
else else
AResult.AddObject(FileItem.Name, nil); AResult.AddObject(FileItem.Name, nil);
FileItem.Free;
end; end;
for i:=0 to Files.Count-1 do
TFileItem(Files[i]).Free;
Files.Free; Files.Free;
end; end;