home *** CD-ROM | disk | FTP | other *** search
- // Borland C++ Builder
- // Copyright (c) 1995, 1998 by Borland International
- // All rights reserved
-
- // (DO NOT EDIT: machine generated header) 'AHMTDroppedFiles.pas' rev: 3.00
-
- #ifndef AHMTDroppedFilesHPP
- #define AHMTDroppedFilesHPP
- #include <AHMTFormHook.hpp>
- #include <AHMSystem.hpp>
- #include <ShellAPI.hpp>
- #include <SysUtils.hpp>
- #include <Classes.hpp>
- #include <Messages.hpp>
- #include <Windows.hpp>
- #include <SysInit.hpp>
- #include <System.hpp>
-
- //-- user supplied -----------------------------------------------------------
-
- namespace Ahmtdroppedfiles
- {
- //-- type declarations -------------------------------------------------------
- typedef void __fastcall (__closure *TAHMOnDrop)(System::TObject* Sender, System::AnsiString DroppedItem
- );
-
- enum TAHMFileDisplay { dFullPath, dFullName, dExtension };
-
- class DELPHICLASS TAHMDroppedFiles;
- class PASCALIMPLEMENTATION TAHMDroppedFiles : public Ahmtformhook::TAHMHookComponent
- {
- typedef Ahmtformhook::TAHMHookComponent inherited;
-
- private:
- Classes::TStrings* FDroppedItems;
- TAHMFileDisplay FCollectBy;
- int FNoFilesDropped;
- bool FActive;
- Classes::TNotifyEvent FOnStartDrop;
- Classes::TNotifyEvent FOnEndDrop;
- TAHMOnDrop FOnDrop;
- void __fastcall SetDroppedItems(Classes::TStrings* value);
- void __fastcall DropFiles(int hDropHandle);
- void __fastcall SetActive(bool Value);
-
- public:
- virtual void __fastcall Hooked(Messages::TMessage &AMsg);
- __fastcall virtual TAHMDroppedFiles(Classes::TComponent* AOwner);
- __fastcall virtual ~TAHMDroppedFiles(void);
- virtual void __fastcall Loaded(void);
- __property int NoFilesDropped = {read=FNoFilesDropped, nodefault};
-
- __published:
- __property TAHMFileDisplay CollectBy = {read=FCollectBy, write=FCollectBy, default=0};
- __property Classes::TStrings* DroppedItems = {read=FDroppedItems, write=SetDroppedItems, stored=false
- };
- __property bool Active = {read=FActive, write=SetActive, default=0};
- __property Classes::TNotifyEvent OnStartDrop = {read=FOnStartDrop, write=FOnStartDrop};
- __property Classes::TNotifyEvent OnEndDrop = {read=FOnEndDrop, write=FOnEndDrop};
- __property TAHMOnDrop OnDrop = {read=FOnDrop, write=FOnDrop};
- };
-
- //-- var, const, procedure ---------------------------------------------------
-
- } /* namespace Ahmtdroppedfiles */
- #if !defined(NO_IMPLICIT_NAMESPACE_USE)
- using namespace Ahmtdroppedfiles;
- #endif
- //-- end unit ----------------------------------------------------------------
- #endif // AHMTDroppedFiles
-