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

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

#ifndef AHMTClipboardHPP
#define AHMTClipboardHPP
#include <AHMStandardConst.hpp>
#include <AHMStdClass.hpp>
#include <Menus.hpp>
#include <ExtCtrls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Clipbrd.hpp>
#include <Controls.hpp>
#include <Graphics.hpp>
#include <Classes.hpp>
#include <Messages.hpp>
#include <SysUtils.hpp>
#include <Windows.hpp>
#include <SysInit.hpp>
#include <System.hpp>

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

namespace Ahmtclipboard
{
//-- type declarations -------------------------------------------------------
enum TAHMClipFormat { fDefault, fEmpty, fUnknown, fText, fBitmap, fMetafile, fOemText, fPicture, fComponent, 
	fIcon };

class DELPHICLASS TAHMClipboard;
class PASCALIMPLEMENTATION TAHMClipboard : public Forms::TScrollBox 
{
	typedef Forms::TScrollBox inherited;
	
private:
	HWND PrevHwnd;
	Ahmstdclass::TAHMAboutSControlStr FAboutStr;
	Classes::TComponent* FPaintControl;
	TAHMClipFormat FViewFormat;
	Classes::TNotifyEvent FOnChange;
	bool __fastcall IsEmptyClipboard(void);
	void __fastcall ForwardMessage(Messages::TMessage &Msg);
	HIDESBASE MESSAGE void __fastcall WMSize(Messages::TMessage &Msg);
	MESSAGE void __fastcall WMDestroyClipboard(Messages::TMessage &Msg);
	MESSAGE void __fastcall WMChangeCBChain(Messages::TWMChangeCBChain &Msg);
	MESSAGE void __fastcall WMDrawClipboard(Messages::TMessage &Msg);
	void __fastcall SetViewFormat(TAHMClipFormat Value);
	System::AnsiString __fastcall GetClipboardFormatNames(int Index);
	
protected:
	virtual void __fastcall CreateWnd(void);
	virtual void __fastcall DestroyWnd(void);
	DYNAMIC void __fastcall Change(void);
	virtual void __fastcall CreatePaintControl(void);
	virtual TAHMClipFormat __fastcall GetDrawFormat(void);
	DYNAMIC bool __fastcall ValidFormat(TAHMClipFormat Format);
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
	
public:
	__fastcall virtual TAHMClipboard(Classes::TComponent* AOwner);
	/*         class method */ static bool __fastcall CanDrawFormat(System::TMetaClass* vmt, Word ClipboardFormat
		);
	__property System::AnsiString ClipboardFormat[int Index] = {read=GetClipboardFormatNames};
	
__published:
	__property Ahmstdclass::TAHMAboutSControlStr About = {read=FAboutStr, write=FAboutStr};
	__property TAHMClipFormat ViewFormat = {read=FViewFormat, write=SetViewFormat, stored=false, nodefault
		};
	__property Color ;
	__property ParentColor ;
	__property OnStartDrag ;
public:
	/* TScrollingWinControl.Destroy */ __fastcall virtual ~TAHMClipboard(void) { }
	
public:
	/* TWinControl.CreateParented */ __fastcall TAHMClipboard(HWND ParentWindow) : Forms::TScrollBox(ParentWindow
		) { }
	
};

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

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