forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fixed file scanning error under linux

This commit is contained in:
Basile Burg 2014-07-22 21:56:18 +02:00
parent a21d334810
commit b522b1da03
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/ce_common.pas
View File

@ -467,7 +467,7 @@ end;
function isFolder(sr: TSearchRec): boolean;
begin
result := (sr.Name <> '.') and (sr.Name <> '..' )and (sr.Name <> '' ) and
result := (sr.Name <> '.') and (sr.Name <> '..' ) and (sr.Name <> '' ) and
(sr.Attr and faDirectory = faDirectory);
end;
@ -480,7 +480,7 @@ begin
aList.Add(aPath + directorySeparator + sr.Name);
end;
begin
if findFirst(aPath + directorySeparator + '*.*', faAnyFile, sr) = 0 then
if findFirst(aPath + directorySeparator + '*', faAnyFile, sr) = 0 then
try
repeat
tryAdd;
@ -497,7 +497,7 @@ procedure listFolders(const aList: TStrings; const aPath: string);
var
sr: TSearchrec;
begin
if findFirst(aPath + '*.*', faDirectory, sr) = 0 then
if findFirst(aPath + '*', faDirectory, sr) = 0 then
try
repeat if isFolder(sr) then
aList.Add(aPath + sr.Name);
@ -513,7 +513,7 @@ var
res: boolean;
begin
res := false;
if findFirst(aPath + directorySeparator + '*.*', faDirectory, sr) = 0 then
if findFirst(aPath + directorySeparator + '*', faDirectory, sr) = 0 then
try
repeat if isFolder(sr) then
begin

1
src/ce_miniexplorer.pas
View File

@ -68,7 +68,6 @@ uses
ce_main, ce_common;
//TODO-cbugfix: click on the expander glyph, sometime the subdirs are not scanned but the fake sub item is still displayed
//TODO-cfeature: the linux version doesnt work at all
{$REGION Standard Comp/Obj------------------------------------------------------}
constructor TCEMiniExplorerWidget.create(aIwner: TComponent);