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

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

#ifndef AHMTFileCollectorHPP
#define AHMTFileCollectorHPP
#include <AHMSystemClass.hpp>
#include <Classes.hpp>
#include <SysInit.hpp>
#include <System.hpp>

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

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

class DELPHICLASS TAHMFileCollector;
class PASCALIMPLEMENTATION TAHMFileCollector : public Ahmsystemclass::TAHMExecuteComponent 
{
	typedef Ahmsystemclass::TAHMExecuteComponent inherited;
	
private:
	bool FDoContinue;
	TAHMOnFileFound FOnFileFound;
	bool FDoSubdirectories;
	TAHMOnFileFound FOnDirectoryFound;
	System::AnsiString FInitialDirectory;
	System::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 System::AnsiString dir, System::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 System::AnsiString InitialDirectory = {read=FInitialDirectory, write=FInitialDirectory};
		
	__property System::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};
};

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

}	/* namespace Ahmtfilecollector */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Ahmtfilecollector;
#endif
//-- end unit ----------------------------------------------------------------
#endif	// AHMTFileCollector
