// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'ahmtanimator.pas' rev: 6.00

#ifndef ahmtanimatorHPP
#define ahmtanimatorHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <ahmstandardconst.hpp>	// Pascal unit
#include <ahmstdclass.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Ahmtanimator
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TAHMState { sOpen, sClosed, sBusy };
#pragma option pop

class DELPHICLASS TAHMAnimator;
class PASCALIMPLEMENTATION TAHMAnimator : public Controls::TWinControl 
{
	typedef Controls::TWinControl inherited;
	
private:
	AnsiString FAboutStr;
	short FPlayFrom;
	short FPlayTo;
	short FCycles;
	TAHMState FState;
	AnsiString FAVIName;
	bool fAutoAni;
	bool FCenter;
	bool FTransparent;
	void __fastcall SetPlayRange(void);
	void __fastcall SetPlayFrom(short FromFrame);
	void __fastcall SetPlayTo(short ToFrame);
	void __fastcall SetCycles(short nCycles);
	void __fastcall SetAVIName(AnsiString aName);
	void __fastcall SetState(TAHMState aState);
	void __fastcall SetCenter(bool NewValue);
	void __fastcall SetTransparent(bool NewValue);
	void __fastcall SetAutoPlay(bool NewValue);
	void __fastcall SetAllData(void);
	
protected:
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	virtual void __fastcall CreateWnd(void);
	
public:
	__fastcall virtual TAHMAnimator(Classes::TComponent* AOwner);
	__fastcall virtual ~TAHMAnimator(void);
	void __fastcall OpenResource(int ResID);
	void __fastcall OpenAVIFile(AnsiString Filename);
	virtual void __fastcall Loaded(void);
	
__published:
	__property AnsiString About = {read=FAboutStr, write=FAboutStr};
	__property Enabled  = {default=1};
	__property Visible  = {default=1};
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
	__property AnsiString Filename = {read=FAVIName, write=SetAVIName};
	__property bool Center = {read=FCenter, write=SetCenter, default=1};
	__property bool Transparent = {read=FTransparent, write=SetTransparent, default=1};
	__property short PlayFrom = {read=FPlayFrom, write=SetPlayFrom, default=0};
	__property short PlayTo = {read=FPlayTo, write=SetPlayTo, default=-1};
	__property short Cycles = {read=FCycles, write=SetCycles, default=-1};
	__property TAHMState Action = {read=FState, write=SetState, default=1};
	__property bool AutoAnimate = {read=fAutoAni, write=SetAutoPlay, default=1};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TAHMAnimator(HWND ParentWindow) : Controls::TWinControl(ParentWindow) { }
	#pragma option pop
	
};


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

}	/* namespace Ahmtanimator */
using namespace Ahmtanimator;
#pragma option pop	// -w-
#pragma option pop	// -Vx

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