// Borland C++ Builder
// Copyright (c) 1995, 1999 by Borland International
// All rights reserved

// (DO NOT EDIT: machine generated header) 'AHMTFileCollector.pas' rev: 4.00

#ifndef AHMTFileCollectorHPP
#define AHMTFileCollectorHPP

#pragma delphiheader begin
#pragma option push -w-
#include <AHMSystemClass.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Ahmtfilecollector
{
//-- type declarations -------------------------------------------------------
typedef void __fastcall (__closure *TAHMOnFileFound)(System::TObject* Sender, AnsiString FileOrPath, 
	bool &Continue);

class DELPHICLASS TAHMFileCollector;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TAHMFileCollector : public Ahmsystemclass::TAHMExecuteComponent 
{
	typedef Ahmsystemclass::TAHMExecuteComponent inherited;
	
private:
	bool FDoContinue;
	TAHMOnFileFound FOnFileFound;
	bool FDoSubdirectories;
	TAHMOnFileFound FOnDirectoryFound;
	AnsiString FInitialDirectory;
	AnsiString FFileMask;
	Classes::TStrings* FLocatedObjects;
	Classes::TNotifyEvent FOnStart;
	Classes::TNotifyEvent FOnDone;
	void __fastcall SetLocatedObjects(Classes::TStrings* value);
	
public:
	__fastcall virtual TAHMFileCollector(Classes::TComponent* AOwner);
	__fastcall virtual ~TAHMFileCollector(void);
	virtual bool __fastcall Execute(void);
	bool __fastcall Scandirectory(const AnsiString dir, AnsiString fmask);
	
__published:
	__property TAHMOnFileFound OnDirectoryFound = {read=FOnDirectoryFound, write=FOnDirectoryFound};
	__property TAHMOnFileFound OnFileFound = {read=FOnFileFound, write=FOnFileFound};
	__property Classes::TStrings* LocatedObjects = {read=FLocatedObjects, write=SetLocatedObjects};
	__property AnsiString InitialDirectory = {read=FInitialDirectory, write=FInitialDirectory};
	__property AnsiString FileMask = {read=FFileMask, write=FFileMask};
	__property Classes::TNotifyEvent OnStart = {read=FOnStart, write=FOnStart};
	__property Classes::TNotifyEvent OnDone = {read=FOnDone, write=FOnDone};
	__property bool DoSubDirectories = {read=FDoSubdirectories, write=FDoSubdirectories, default=1};
};

#pragma pack(pop)

//-- var, const, procedure ---------------------------------------------------

}	/* namespace Ahmtfilecollector */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Ahmtfilecollector;
#endif
#pragma option pop	// -w-

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// AHMTFileCollector
