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

TFileSearcher: supply fully qualified filename for OnQueryFileFound and OnQueryDirectoryFound events.

Browse Source
This commit is contained in:
Bart 2024-02-04 18:29:41 +01:00
parent 0fd4564df7
commit 6e1eac9018
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazutils/fileutil.inc
View File

@ -832,7 +832,7 @@ var
// Deal with both files and directories
if (PathInfo.Attr and faDirectory) = 0 then
begin // File
if ((MaskList = nil) or MaskList.Matches(PathInfo.Name)) and AcceptFile(APath+PathInfo.Name) then
if ((MaskList = nil) or MaskList.Matches(PathInfo.Name)) and AcceptFile(ExpandFilenameUtf8(APath+PathInfo.Name)) then
begin
FPath := APath;
FLevel := ALevel;
@ -841,7 +841,7 @@ var
end;
end
else begin // Directory
if AcceptDir(PathInfo.Name) then
if AcceptDir(AppendPathDelim(ExpandFilenameUtf8(APath + PathInfo.Name))) then
begin
FPath := APath;
FLevel := ALevel;
@ -869,7 +869,7 @@ var
FileIsInPath(ExpandFilenameUTF8(ReadAllLinks(APath+PathInfo.Name,False)),ExpandFilenameUTF8(APath)) or
FileIsInPath(ExpandFilenameUTF8(APath),ExpandFilenameUTF8(ReadAllLinks(APath+PathInfo.Name,False))))
) or
(not AcceptDir(PathInfo.Name))
(not AcceptDir(AppendPathDelim(ExpandFilenameUtf8(APath + PathInfo.Name))))
then Continue;
FPath := APath;