in tfilelistbox ftdirectory doesn't function
Original Reporter info from Mantis: liewald
-
Reporter name: dave Liewald
Original Reporter info from Mantis: liewald
- Reporter name: dave Liewald
Description:
setting a tfilelistbox filter to tdirectory displays both files and directories
Steps to reproduce:
drop filelistbox on form point at directory of mixed files and subdirs set filetype to ftDirectory
Additional information:
Adding line fixes
repeat
if MatchesMaskList(Info.Name,Mask) then
begin
if (ftNormal in FileType) or ((Info.Attr and AttrNotNormal) > 0) then
begin
if (Info.Attr and faDirectory) > 0 then
Items.Add('['+Info.Name+']')
else
if FileType <> [ftDirectory] then // This line added!!!!
Items.Add(Info.Name);
end;
end;
until FindNextUTF8(Info) <> 0;
FindCloseUTF8(Info);
end;
Mantis conversion info:
- Mantis ID: 31281
- Platform: Linux & Windows
- Version: 1.6.2
- Fixed in version: 1.6.3 (SVN)
- Fixed in revision: r54025 (#739663d4)
- Target version: 1.6.4