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

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

#ifndef AHMTAnimatorHPP
#define AHMTAnimatorHPP
#include <AHMStandardConst.hpp>
#include <AHMStdClass.hpp>
#include <Controls.hpp>
#include <Classes.hpp>
#include <SysUtils.hpp>
#include <Windows.hpp>
#include <SysInit.hpp>
#include <System.hpp>

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

namespace Ahmtanimator
{
//-- type declarations -------------------------------------------------------
enum TAHMState { sOpen, sClosed, sBusy };

class DELPHICLASS TAHMAnimator;
class PASCALIMPLEMENTATION TAHMAnimator : public Controls::TWinControl 
{
	typedef Controls::TWinControl inherited;
	
private:
	Ahmstdclass::TAHMAboutSControlStr FAboutStr;
	short FPlayFrom;
	short FPlayTo;
	short FCycles;
	TAHMState FState;
	System::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(System::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(System::AnsiString Filename);
	virtual void __fastcall Loaded(void);
	
__published:
	__property Ahmstdclass::TAHMAboutSControlStr About = {read=FAboutStr, write=FAboutStr};
	__property Enabled ;
	__property Visible ;
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
	__property System::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:
	/* TWinControl.CreateParented */ __fastcall TAHMAnimator(HWND ParentWindow) : Controls::TWinControl(
		ParentWindow) { }
	
};

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

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