aactrls.hpp

该控件显示公历和农历

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

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

#ifndef AACtrlsHPP
#define AACtrlsHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <ShellAPI.hpp>	// Pascal unit
#include <StdCtrls.hpp>	// Pascal unit
#include <ExtCtrls.hpp>	// Pascal unit
#include <AATimer.hpp>	// Pascal unit
#include <AAFont.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Aactrls
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TAAFontEffect;
class PASCALIMPLEMENTATION TAAFontEffect : public Aafont::TCustomParam 
{
	typedef Aafont::TCustomParam inherited;
	
__published:
	__property Transparent  = {default=0};
	__property Layout  = {default=0};
	__property Alignment  = {default=0};
	__property Quality  = {default=1};
	__property FontEffect ;
	__property BackColor ;
	__property BackGround ;
	__property BackGroundMode  = {default=2};
public:
	#pragma option push -w-inl
	/* TCustomParam.Create */ inline __fastcall virtual TAAFontEffect(Aafont::TAAGraphicControl* AOwner, Classes::TNotifyEvent ChangedProc) : Aafont::TCustomParam(AOwner, ChangedProc) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomParam.Destroy */ inline __fastcall virtual ~TAAFontEffect(void) { }
	#pragma option pop
	
};


class DELPHICLASS TAALabel;
class PASCALIMPLEMENTATION TAALabel : public Aafont::TAAGraphicControl 
{
	typedef Aafont::TAAGraphicControl inherited;
	
private:
	TAAFontEffect* FEffect;
	Graphics::TBitmap* MemBmp;
	void __fastcall SetEffect(const TAAFontEffect* Value);
	
protected:
	virtual void __fastcall PaintCanvas(void);
	virtual void __fastcall Reset(void);
	void __fastcall TransparentPaint(void);
	void __fastcall DrawMem(void);
	
public:
	__fastcall virtual TAALabel(Classes::TComponent* AOwner);
	__fastcall virtual ~TAALabel(void);
	
__published:
	__property AutoSize  = {default=1};
	__property Border  = {default=0};
	__property Caption ;
	__property Font ;
	__property Width  = {default=46};
	__property Height  = {default=12};
	__property TAAFontEffect* Effect = {read=FEffect, write=SetEffect};
};


class DELPHICLASS THotLink;
class PASCALIMPLEMENTATION THotLink : public Aafont::TCustomParam 
{
	typedef Aafont::TCustomParam inherited;
	
private:
	bool FFade;
	bool FUnderLine;
	unsigned FFadeDelay;
	AnsiString FURL;
	Aafont::TAAEffect* FFontEffect;
	Graphics::TColor FColor;
	Graphics::TColor FBackColor;
	HIDESBASE void __fastcall SetFontEffect(const Aafont::TAAEffect* Value);
	
public:
	__fastcall THotLink(void);
	__fastcall virtual ~THotLink(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property bool Fade = {read=FFade, write=FFade, default=1};
	__property unsigned FadeDelay = {read=FFadeDelay, write=FFadeDelay, default=600};
	__property Graphics::TColor Color = {read=FColor, write=FColor, default=16711680};
	__property Graphics::TColor BackColor = {read=FBackColor, write=FBackColor, default=-2147483633};
	__property Aafont::TAAEffect* FontEffect = {read=FFontEffect, write=SetFontEffect};
	__property AnsiString URL = {read=FURL, write=FURL};
	__property bool UnderLine = {read=FUnderLine, write=FUnderLine, default=0};
	__property Transparent  = {default=0};
	__property BackGround ;
	__property BackGroundMode  = {default=2};
};


#pragma option push -b-
enum TFadeStyle { fsNone, fsIn, fsOut };
#pragma option pop

class DELPHICLASS TAALinkLabel;
class PASCALIMPLEMENTATION TAALinkLabel : public TAALabel 
{
	typedef TAALabel inherited;
	
private:
	Graphics::TBitmap* HotBmp;
	Graphics::TBitmap* BlendBmp;
	Extctrls::TTimer* FadeTimer;
	TFadeStyle FFadeStyle;
	Aafont::TProgress FProgress;
	THotLink* FHotLink;
	bool FMouseIn;
	double NewProg;
	void __fastcall OnFadeTimer(System::TObject* Sender);
	HIDESBASE MESSAGE void __fastcall CMMouseEnter(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMMouseLeave(Messages::TMessage &Message);
	void __fastcall SetProgress(const Aafont::TProgress Value);
	void __fastcall SetFadeStyle(const TFadeStyle Value);
	void __fastcall SetHotLink(const THotLink* Value);
	
protected:
	__property Aafont::TProgress Progress = {read=FProgress, write=SetProgress, nodefault};
	__property TFadeStyle FadeStyle = {read=FFadeStyle, write=SetFadeStyle, nodefault};
	void __fastcall DrawHot(void);
	virtual void __fastcall PaintCanvas(void);
	virtual void __fastcall SetEnabled(bool Value);
	virtual void __fastcall LoadedEx(void);
	
public:
	__fastcall virtual TAALinkLabel(Classes::TComponent* AOwner);
	__fastcall virtual ~TAALinkLabel(void);
	DYNAMIC void __fastcall Click(void);
	
__published:
	__property THotLink* HotLink = {read=FHotLink, write=SetHotLink};
};


class DELPHICLASS TTextParam;
class PASCALIMPLEMENTATION TTextParam : public Aafont::TCustomTextParam 
{
	typedef Aafont::TCustomTextParam inherited;
	
protected:
	virtual bool __fastcall IsLinesStored(void);
	
public:
	__fastcall virtual TTextParam(Aafont::TAAGraphicControl* AOwner, Classes::TNotifyEvent ChangedProc);
	__fastcall virtual ~TTextParam(void);
	
__published:
	__property WordWrap  = {default=0};
	__property RowPitch  = {default=20};
	__property Lines ;
	__property Transparent  = {default=0};
	__property Alignment  = {default=0};
	__property Quality  = {default=1};
	__property FontEffect ;
	__property LabelEffect  = {default=1};
	__property BackColor ;
	__property BackGround ;
	__property BackGroundMode  = {default=2};
};


class DELPHICLASS TAAText;
class PASCALIMPLEMENTATION TAAText : public Aafont::TAACustomText 
{
	typedef Aafont::TAACustomText inherited;
	
private:
	TTextParam* FText;
	HIDESBASE void __fastcall SetText(const TTextParam* Value);
	
protected:
	Graphics::TBitmap* TextBmp;
	virtual void __fastcall PaintCanvas(void);
	virtual void __fastcall LoadedEx(void);
	virtual bool __fastcall UseDefaultLabels(void);
	void __fastcall CalcSize(void);
	void __fastcall DrawCanvas(Graphics::TCanvas* ACanvas);
	void __fastcall CreateText(void);
	void __fastcall TransparentPaint(void);
	virtual void __fastcall Reset(void);
	
public:
	__fastcall virtual TAAText(Classes::TComponent* AOwner);
	__fastcall virtual ~TAAText(void);
	
__published:
	__property AutoSize  = {default=1};
	__property Border  = {default=0};
	__property Font ;
	__property Width  = {default=46};
	__property Height  = {default=12};
	__property TTextParam* Text = {read=FText, write=SetText};
};


class DELPHICLASS TScrollTextParam;
class PASCALIMPLEMENTATION TScrollTextParam : public Aafont::TCustomTextParam 
{
	typedef Aafont::TCustomTextParam inherited;
	
private:
	bool FFade;
	int FFadeHeight;
	int FTailSpace;
	int FHeadSpace;
	void __fastcall SetFade(const bool Value);
	void __fastcall SetFadeHeight(const int Value);
	void __fastcall SetTailSpace(const int Value);
	void __fastcall SetHeadSpace(const int Value);
	
protected:
	virtual bool __fastcall IsLinesStored(void);
	
public:
	__fastcall virtual TScrollTextParam(Aafont::TAAGraphicControl* AOwner, Classes::TNotifyEvent ChangedProc);
	__fastcall virtual ~TScrollTextParam(void);
	
__published:
	__property bool Fade = {read=FFade, write=SetFade, default=1};
	__property int FadeHeight = {read=FFadeHeight, write=SetFadeHeight, default=10};
	__property int HeadSpace = {read=FHeadSpace, write=SetHeadSpace, default=0};
	__property int TailSpace = {read=FTailSpace, write=SetTailSpace, default=60};
	__property Alignment  = {default=2};
	__property RowPitch  = {default=20};
	__property WordWrap  = {default=0};
	__property Lines ;
	__property Quality  = {default=1};
	__property FontEffect ;
	__property LabelEffect  = {default=1};
	__property Font ;
	__property BackColor  = {default=16777215};
	__property BackGround ;
	__property BackGroundMode  = {default=0};
};


class DELPHICLASS TAAScrollText;
class PASCALIMPLEMENTATION TAAScrollText : public Aafont::TAACustomText 
{
	typedef Aafont::TAACustomText inherited;
	
private:
	Word FScrollDelay;
	int FScrollStep;
	Word FRepeatDelay;
	Controls::TBorderWidth FRepeatCount;
	int FRepeatedCount;
	TScrollTextParam* FText;
	int FCurrPos;
	Graphics::TBitmap* TextBmp;
	Graphics::TBitmap* CurrBmp;
	Extctrls::TTimer* DelayTimer;
	Aatimer::TAATimer* ScrollTimer;
	bool FActive;
	void __fastcall CreateText(void);
	void __fastcall OnDelayTimer(System::TObject* Sender);
	void __fastcall OnScrollTimer(System::TObject* Sender);
	void __fastcall SetActive(const bool Value);
	void __fastcall SetScrollDelay(const Word Value);
	void __fastcall SetScrollStep(const int Value);
	void __fastcall SetRepeatDelay(const Word Value);
	void __fastcall SetRepeatCount(const Controls::TBorderWidth Value);
	HIDESBASE void __fastcall SetText(const TScrollTextParam* Value);
	void __fastcall SetCurrPos(const int Value);
	int __fastcall GetBmpHeight(void);
	
protected:
	virtual void __fastcall CreateDefFonts(void);
	virtual void __fastcall PaintCanvas(void);
	virtual bool __fastcall UseDefaultLabels(void);
	virtual void __fastcall LoadedEx(void);
	virtual bool __fastcall CanResize(int &NewWidth, int &NewHeight);
	
public:
	__fastcall virtual TAAScrollText(Classes::TComponent* AOwner);
	__fastcall virtual ~TAAScrollText(void);
	virtual void __fastcall Reset(void);
	void __fastcall ReStart(void);
	__property int RepeatedCount = {read=FRepeatedCount, nodefault};
	__property int CurrPos = {read=FCurrPos, write=SetCurrPos, nodefault};
	__property int BmpHeight = {read=GetBmpHeight, nodefault};
	
__published:
	__property AutoUpdate  = {default=1};
	__property bool Active = {read=FActive, write=SetActive, default=1};
	__property Height  = {default=280};
	__property Width  = {default=240};
	__property Word ScrollDelay = {read=FScrollDelay, write=SetScrollDelay, default=60};
	__property int ScrollStep = {read=FScrollStep, write=SetScrollStep, default=1};
	__property Controls::TBorderWidth RepeatCount = {read=FRepeatCount, write=SetRepeatCount, default=0};
	__property Word RepeatDelay = {read=FRepeatDelay, write=SetRepeatDelay, default=2000};
	__property TScrollTextParam* Text = {read=FText, write=SetText};
	__property OnComplete ;
	__property OnTextReady ;
	__property OnPainted ;
};


class DELPHICLASS TFadeTextParam;
class PASCALIMPLEMENTATION TFadeTextParam : public Aafont::TCustomTextParam 
{
	typedef Aafont::TCustomTextParam inherited;
	
private:
	unsigned FFadeDelay;
	void __fastcall SetFadeDelay(const unsigned Value);
	void __fastcall SetLineDelay(const unsigned Value);
	unsigned __fastcall GetLineDelay(void);
	
protected:
	virtual bool __fastcall IsLinesStored(void);
	
public:
	__fastcall virtual TFadeTextParam(Aafont::TAAGraphicControl* AOwner, Classes::TNotifyEvent ChangedProc);
	__fastcall virtual ~TFadeTextParam(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property unsigned FadeDelay = {read=FFadeDelay, write=SetFadeDelay, default=600};
	__property unsigned LineDelay = {read=GetLineDelay, write=SetLineDelay, default=3000};
	__property Lines ;
	__property Transparent  = {default=0};
	__property Alignment  = {default=2};
	__property Layout  = {default=1};
	__property Quality  = {default=1};
	__property FontEffect ;
	__property LabelEffect  = {default=1};
	__property BackColor  = {default=16777215};
	__property BackGround ;
	__property BackGroundMode  = {default=2};
};


class DELPHICLASS TAAFadeText;
class PASCALIMPLEMENTATION TAAFadeText : public Aafont::TAACustomText 
{
	typedef Aafont::TAACustomText inherited;
	
private:
	bool FActive;
	int FLineIndex;
	TFadeTextParam* FText;
	Aafont::TProgress FFadeProgress;
	Graphics::TBitmap* InBmp;
	Graphics::TBitmap* OutBmp;
	Graphics::TBitmap* TextBmp;
	Extctrls::TTimer* FadeTimer;
	Extctrls::TTimer* DelayTimer;
	AnsiString LastText;
	AnsiString CurrText;
	Classes::TAlignment CurrAlign;
	int FRepeatedCount;
	Controls::TBorderWidth FRepeatCount;
	double NewProg;
	void __fastcall SetActive(const bool Value);
	void __fastcall SetLineIndex(const int Value);
	HIDESBASE void __fastcall SetText(const TFadeTextParam* Value);
	void __fastcall OnFadeTimer(System::TObject* Sender);
	void __fastcall OnDelayTimer(System::TObject* Sender);
	void __fastcall SetFadeProgress(const Aafont::TProgress Value);
	void __fastcall DrawFadeBmp(AnsiString AText, Graphics::TBitmap* Bmp);
	void __fastcall SetRepeatCount(const Controls::TBorderWidth Value);
	
protected:
	virtual void __fastcall CreateDefFonts(void);
	virtual void __fastcall PaintCanvas(void);
	virtual bool __fastcall UseDefaultLabels(void);
	virtual void __fastcall LoadedEx(void);
	virtual void __fastcall Reset(void);
	__property Aafont::TProgress FadeProgress = {read=FFadeProgress, write=SetFadeProgress, nodefault};
	
public:
	__fastcall virtual TAAFadeText(Classes::TComponent* AOwner);
	__fastcall virtual ~TAAFadeText(void);
	__property int LineIndex = {read=FLineIndex, write=SetLineIndex, nodefault};
	__property int RepeatedCount = {read=FRepeatedCount, nodefault};
	void __fastcall FadeTo(int Line);
	void __fastcall FadeToNext(void);
	void __fastcall FadeToStr(AnsiString AText);
	
__published:
	__property bool Active = {read=FActive, write=SetActive, default=1};
	__property Height  = {default=34};
	__property Width  = {default=240};
	__property Font ;
	__property Controls::TBorderWidth RepeatCount = {read=FRepeatCount, write=SetRepeatCount, default=0};
	__property TFadeTextParam* Text = {read=FText, write=SetText};
	__property OnComplete ;
	__property OnPainted ;
};


//-- var, const, procedure ---------------------------------------------------
#define verAAFont "V2.63"
extern PACKAGE void __fastcall Register(void);

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

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