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

TFileSearcher: Implement OnDirectoryEnter event.

Browse Source 
git-svn-id: trunk@41032 -
This commit is contained in:
bart 2013-05-04 21:52:55 +00:00
parent f84bed8662
commit 0631e9d7d1
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/fileutil.inc
View File

@ -1408,7 +1408,7 @@ end;
procedure TFileSearcher.DoDirectoryEnter;
begin
//
if Assigned(FonDirectoryEnter) then FOnDirectoryEnter(Self);
end;
procedure TFileSearcher.DoDirectoryFound;

3
components/lazutils/fileutil.pas
View File

@ -142,6 +142,7 @@ type
TFileFoundEvent = procedure (FileIterator: TFileIterator) of object;
TDirectoryFoundEvent = procedure (FileIterator: TFileIterator) of object;
TDirectoryEnterEvent = procedure (FileIterator: TFileIterator) of object;
{ TFileSearcher }
@ -152,6 +153,7 @@ type
FFollowSymLink: Boolean;
FOnFileFound: TFileFoundEvent;
FOnDirectoryFound: TDirectoryFoundEvent;
FOnDirectoryEnter: TDirectoryEnterEvent;
FFileAttribute: Word;
FDirectoryAttribute: Word;
procedure RaiseSearchingError;
@ -170,6 +172,7 @@ type
property DirectoryAttribute: Word read FDirectoryAttribute write FDirectoryAttribute default faDirectory;
property OnDirectoryFound: TDirectoryFoundEvent read FOnDirectoryFound write FOnDirectoryFound;
property OnFileFound: TFileFoundEvent read FOnFileFound write FOnFileFound;
property OnDirectoryEnter: TDirectoryEnterEvent read FOnDirectoryEnter write FOnDirectoryEnter;
end;
function FindAllFiles(const SearchPath: String; SearchMask: String = '';