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

6
src/ce_common.pas
View File

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

1
src/ce_miniexplorer.pas
View File

@ -68,7 +68,6 @@ uses
ce_main, ce_common; 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-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------------------------------------------------------} {$REGION Standard Comp/Obj------------------------------------------------------}
constructor TCEMiniExplorerWidget.create(aIwner: TComponent); constructor TCEMiniExplorerWidget.create(aIwner: TComponent);