mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Empty panel then can not read directory content

Browse source
This commit is contained in:
Alexander Koblov 2009-06-16 05:50:40 +00:00
commit 2e39882acf
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/platform/ufileop.pas
View file

@ -52,7 +52,7 @@ const
implementation
uses
uFileProcs, uFindEx, uGlobs, uOSUtils {$IFDEF UNIX}, uUsersGroups, Unix, BaseUnix{$ENDIF}
uFileProcs, uFindEx, uGlobs, uDCUtils, uVFSUtil, uOSUtils {$IFDEF UNIX}, uUsersGroups, Unix, BaseUnix{$ENDIF}
{$IFDEF WINDOWS}, Windows {$ENDIF};
{$IFDEF UNIX} // *nix
@ -197,15 +197,19 @@ function LoadFilesbyDir(const sDir: String; fl: TFileList): Boolean;
var
fr: TFileRecItem;
sr: TSearchRec;
sParentDir: UTF8String;
begin
// DebugLn('Enter LoadFilesbyDir');
Result:= False;
fl.Clear;
fl.CurrentDirectory := IncludeTrailingPathDelimiter(sDir);
if FindFirstEx('*',faAnyFile,sr)<>0 then
if FindFirstEx('*',faAnyFile,sr) <> 0 then
begin
{ No files have been found. }
FindCloseEx(sr);
sParentDir:= GetParentDir(sDir);
if sParentDir <> EmptyStr then // if parent dir exists then add up level item
AddUpLevel(sParentDir, fl);
Exit;
end;
repeat