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

take more things from filelistbox patch of Bart Broersma (issue #0010985)

Browse Source 
git-svn-id: trunk@14831 -
This commit is contained in:
paul 2008-04-15 15:34:14 +00:00
parent 04ef8c1251
commit 5dffa959e5
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/filectrl.pp
View File

@ -140,6 +140,13 @@ implementation
{ TCustomFileListBox }
procedure TCustomFileListBox.UpdateFileList;
const
AttrNotNormal = faReadOnly or
faHidden or
faSysFile or
faVolumeID or
faDirectory or
faArchive;
var
Info: TSearchRec;
@ -176,10 +183,13 @@ begin
repeat
if MatchesMaskList(Info.Name,Mask) then
begin
if (Info.Attr and faDirectory) > 0 then
Items.Add('['+Info.Name+']')
else
Items.Add(Info.Name);
if (ftNormal in FileType) or ((Info.Attr and AttrNotNormal) > 0) then
begin
if (Info.Attr and faDirectory) > 0 then
Items.Add('['+Info.Name+']')
else
Items.Add(Info.Name);
end;
end;
until SysUtils.FindNext(Info) <> 0;
SysUtils.FindClose(Info);