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

// (DO NOT EDIT: machine generated header) 'AHMTFolderLookup.pas' rev: 5.00

#ifndef AHMTFolderLookupHPP
#define AHMTFolderLookupHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <StdCtrls.hpp>	// Pascal unit
#include <Mask.hpp>	// Pascal unit
#include <AHMStdClass.hpp>	// Pascal unit
#include <AHMTLookupEdit.hpp>	// Pascal unit
#include <ShellAPI.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <ShlObj.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Ahmtfolderlookup
{
//-- type declarations -------------------------------------------------------
typedef void __fastcall (__closure *TAHMPathChange)(System::TObject* Sender, AnsiString OldPath, AnsiString 
	NewPath);

#pragma option push -b-
enum TAHMRoots { csidlDesktop, csidlDesktopExpanded, csidlPrograms, csidlControlPanel, csidlPrinters, 
	csidlPersonal, csidlFavorites, csidlStartup, csidlRecent, csidlSendto, csidlRecycleBin, csidlStartMenu, 
	csidlDesktopDirectory, csidlMyComputer, csidlNetwork, csidlNetworkNeighborhood, csidlFonts, csidlTemplates 
	};
#pragma option pop

#pragma option push -b-
enum TAHMInfoFlags { FileSystemDirsOnly, DontGoBelowDomain, StatusText, FileSystemAncestors, LookupForComputer, 
	LookupForPrinter, DisplayPath };
#pragma option pop

typedef Set<TAHMInfoFlags, FileSystemDirsOnly, DisplayPath>  TAHMInfoFlagSet;

class DELPHICLASS TAHMFolderLookup;
class PASCALIMPLEMENTATION TAHMFolderLookup : public Ahmtlookupedit::TAHMCustomLookupEdit 
{
	typedef Ahmtlookupedit::TAHMCustomLookupEdit inherited;
	
private:
	Ahmstdclass::TAHMAboutSControlStr FAboutStr;
	HWND FDialogHandle;
	AnsiString FTitle;
	HWND FParentHandle;
	AnsiString FDisplayName;
	TAHMInfoFlagSet FLookupFlags;
	TAHMRoots FLookupRoot;
	Classes::TNotifyEvent FBeforeLookup;
	Classes::TNotifyEvent FAfterLookup;
	TAHMPathChange FOnPathChanged;
	
protected:
	bool __fastcall Execute(void);
	void __fastcall OnLookupPress(System::TObject* Sender);
	
public:
	__fastcall virtual TAHMFolderLookup(Classes::TComponent* AOwner);
	void __fastcall SetStatusText(const HWND Hwnd, const AnsiString StatusText);
	void __fastcall SetSelectionPIDL(const HWND Hwnd, const Shlobj::PItemIDList ItemIDList);
	void __fastcall SetSelectionPath(const HWND Hwnd, const AnsiString Path);
	void __fastcall EnableOK(const HWND Hwnd, const bool Value);
	__property AnsiString DisplayName = {read=FDisplayName};
	__property HWND ParentHandle = {read=FParentHandle, write=FParentHandle, nodefault};
	__property HWND DialogHandle = {read=FDialogHandle, write=FDialogHandle, nodefault};
	
__published:
	__property Ahmstdclass::TAHMAboutSControlStr About = {read=FAboutStr, write=FAboutStr};
	__property AnsiString LookupCaption = {read=FTitle, write=FTitle};
	__property TAHMInfoFlagSet LookupFlags = {read=FLookupFlags, write=FLookupFlags, nodefault};
	__property TAHMRoots LookupRoot = {read=FLookupRoot, write=FLookupRoot, default=1};
	__property Classes::TNotifyEvent BeforeLookup = {read=FBeforeLookup, write=FBeforeLookup};
	__property Classes::TNotifyEvent AfterLookup = {read=FAfterLookup, write=FAfterLookup};
	__property TAHMPathChange OnPathChanged = {read=FOnPathChanged, write=FOnPathChanged};
	__property EditButton1 ;
	__property Enabled ;
	__property Alignment ;
	__property EditMask ;
	__property MaxLength ;
	__property Text ;
	__property AutoSize ;
	__property CharCase ;
	__property PasswordChar ;
	__property ReadOnly ;
	__property Font ;
	__property OnEnter ;
	__property OnExit ;
	__property OnKeyDown ;
	__property OnKeyPress ;
	__property OnKeyUp ;
	__property OnClick ;
	__property OnDblClick ;
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnEndDrag ;
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
	__property OnStartDrag ;
public:
	#pragma option push -w-inl
	/* TAHMCustomLookupEdit.Destroy */ inline __fastcall virtual ~TAHMFolderLookup(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TAHMFolderLookup(HWND ParentWindow) : Ahmtlookupedit::TAHMCustomLookupEdit(
		ParentWindow) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE void __stdcall AHMLookuprCallbackProc(HWND HWindow, int uMsg, int lParameter, int lpLookupFolder
	);

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

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