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

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

#ifndef ahmtimagescrollerHPP
#define ahmtimagescrollerHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <Menus.hpp>	// Pascal unit
#include <ahmcontrols.hpp>	// Pascal unit
#include <ahmenhancedclass.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Ahmtimagescroller
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TAHMImageScroller;
class PASCALIMPLEMENTATION TAHMImageScroller : public Ahmcontrols::TAHMGraphicControl 
{
	typedef Ahmcontrols::TAHMGraphicControl inherited;
	
private:
	Graphics::TColor FColor;
	Ahmenhancedclass::TAHMFont3D* f3d;
	bool FParentColor;
	int FTextWindowLeft;
	int FTextWindowTop;
	bool FTextToCenter;
	AnsiString FText;
	Graphics::TBitmap* FBitmap;
	Graphics::TBitmap* FTextBitmap;
	Ahmenhancedclass::TAHMEnhancedTimer32* FTimer;
	int FXPos;
	int FYPos;
	AnsiString FAHMAboutStr;
	int FMemoryWidth;
	int FMemoryHeight;
	Ahmenhancedclass::TAHMKind FScrollDirection;
	int FScrollInterval;
	Byte FScrollStep;
	bool FScrolling;
	bool FScrollInverse;
	Graphics::TBitmap* FMemoryBmp;
	bool FAlreadyIniMemoryBmp;
	bool FAlreadyIniTextMemoryBmp;
	bool FAutoSize;
	bool FParentCenter;
	void __fastcall SetBitmap(Graphics::TBitmap* Value);
	void __fastcall MoveImage(System::TObject* Sender);
	void __fastcall SetScrollDirection(Ahmenhancedclass::TAHMKind Value);
	void __fastcall SetScrollInterval(int Value);
	void __fastcall SetAutoSized(bool Value);
	void __fastcall SetParentCenter(bool Value);
	HIDESBASE void __fastcall SetText(AnsiString Value);
	void __fastcall IniMemoryBmp(void);
	void __fastcall IniTextMemoryBmp(void);
	void __fastcall SetTextBitmap(void);
	Graphics::TColor __fastcall GetColor(void);
	HIDESBASE void __fastcall SetColor(Graphics::TColor Value);
	HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
	HIDESBASE void __fastcall SetParentColor(bool Value);
	void __fastcall SetTextWindowLeft(int Value);
	void __fastcall SetTextWindowTop(int Value);
	void __fastcall SetTextToCenter(bool Value);
	void __fastcall SetScrolling(bool value);
	void __fastcall Set3D(Ahmenhancedclass::TAHMFont3D* value);
	
protected:
	virtual void __fastcall Paint(void);
	
public:
	__fastcall virtual TAHMImageScroller(Classes::TComponent* AOwner);
	__fastcall virtual ~TAHMImageScroller(void);
	virtual void __fastcall Loaded(void);
	
__published:
	__property AnsiString About = {read=FAHMAboutStr, write=FAHMAboutStr, stored=false};
	__property Width  = {default=100};
	__property Height  = {default=100};
	__property Align  = {default=0};
	__property ParentColor  = {read=FParentColor, write=SetParentColor, default=1};
	__property Color  = {read=GetColor, write=SetColor, default=-2147483633};
	__property Font ;
	__property bool Scrolling = {read=FScrolling, write=SetScrolling, default=0};
	__property AnsiString Text = {read=FText, write=SetText};
	__property Graphics::TBitmap* Bitmap = {read=FBitmap, write=SetBitmap};
	__property bool AutoSize = {read=FAutoSize, write=SetAutoSized, default=0};
	__property Ahmenhancedclass::TAHMKind ScrollDirection = {read=FScrollDirection, write=SetScrollDirection, default=1};
	__property int ScrollInterval = {read=FScrollInterval, write=SetScrollInterval, default=50};
	__property Byte ScrollStep = {read=FScrollStep, write=FScrollStep, default=1};
	__property bool ScrollInverse = {read=FScrollInverse, write=FScrollInverse, default=0};
	__property Ahmenhancedclass::TAHMFont3D* Font3D = {read=f3d, write=Set3D, stored=true};
	__property Visible  = {default=1};
	__property ShowHint ;
	__property ParentShowHint  = {default=1};
	__property bool ParentCenter = {read=FParentCenter, write=SetParentCenter, default=0};
	__property int TextWindowLeft = {read=FTextWindowLeft, write=SetTextWindowLeft, default=10};
	__property int TextWindowTop = {read=FTextWindowTop, write=SetTextWindowTop, default=10};
	__property bool TextToCenter = {read=FTextToCenter, write=SetTextToCenter, default=1};
	__property PopupMenu ;
	__property Tag  = {default=0};
	__property OnClick ;
	__property OnDblClick ;
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnEndDrag ;
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
};


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

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

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