aafont.hpp

是一个免费并开源的支持农历的月历控件

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

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

#ifndef AAFontHPP
#define AAFontHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <Menus.hpp>	// Pascal unit
#include <IniFiles.hpp>	// Pascal unit
#include <Math.hpp>	// Pascal unit
#include <ExtCtrls.hpp>	// Pascal unit
#include <StdCtrls.hpp>	// Pascal unit
#include <Registry.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Consts.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Classes.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 Aafont
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TAAQuality { aqHigh, aqNormal, aqLow, aqNone };
#pragma option pop

typedef Shortint TAlpha;

typedef Shortint TBlurStrength;

typedef Shortint TOffset;

typedef Shortint TSprayRange;

typedef short TAngle;

#pragma option push -b-
enum TGradualStyle { gsLeftToRight, gsRightToLeft, gsTopToBottom, gsBottomToTop, gsCenterToLR, gsCenterToTB };
#pragma option pop

#pragma option push -b-
enum TTextureMode { tmTiled, tmStretched, tmCenter, tmNormal };
#pragma option pop

class DELPHICLASS TNotifyClass;
class PASCALIMPLEMENTATION TNotifyClass : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Classes::TNotifyEvent FOnChanged;
	
protected:
	Classes::TPersistent* FOwner;
	virtual void __fastcall Changed(void);
	virtual void __fastcall OnChildChanged(System::TObject* Sender);
	DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
	
public:
	__fastcall virtual TNotifyClass(Classes::TNotifyEvent ChangedProc);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__property Classes::TNotifyEvent OnChanged = {read=FOnChanged, write=FOnChanged};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TNotifyClass(void) { }
	#pragma option pop
	
};


class DELPHICLASS TEnabledClass;
class PASCALIMPLEMENTATION TEnabledClass : public TNotifyClass 
{
	typedef TNotifyClass inherited;
	
private:
	bool FEnabled;
	
protected:
	virtual void __fastcall SetEnabled(const bool Value);
	virtual void __fastcall Changed(void);
	
public:
	__fastcall virtual TEnabledClass(Classes::TNotifyEvent ChangedProc);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property bool Enabled = {read=FEnabled, write=SetEnabled, default=0};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TEnabledClass(void) { }
	#pragma option pop
	
};


class DELPHICLASS TAAShadow;
class PASCALIMPLEMENTATION TAAShadow : public TEnabledClass 
{
	typedef TEnabledClass inherited;
	
private:
	TBlurStrength FBlur;
	TAlpha FAlpha;
	Graphics::TColor FColor;
	TOffset FOffsetX;
	TOffset FOffsetY;
	void __fastcall SetBlur(const TBlurStrength Value);
	void __fastcall SetColor(const Graphics::TColor Value);
	void __fastcall SetOffsetX(const TOffset Value);
	void __fastcall SetOffsetY(const TOffset Value);
	void __fastcall SetAlpha(const TAlpha Value);
	
public:
	__fastcall virtual TAAShadow(Classes::TNotifyEvent ChangedProc);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property TBlurStrength Blur = {read=FBlur, write=SetBlur, default=80};
	__property TAlpha Alpha = {read=FAlpha, write=SetAlpha, default=70};
	__property Graphics::TColor Color = {read=FColor, write=SetColor, default=4473924};
	__property TOffset OffsetX = {read=FOffsetX, write=SetOffsetX, default=2};
	__property TOffset OffsetY = {read=FOffsetY, write=SetOffsetY, default=2};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TAAShadow(void) { }
	#pragma option pop
	
};


class DELPHICLASS TAAGradual;
class PASCALIMPLEMENTATION TAAGradual : public TEnabledClass 
{
	typedef TEnabledClass inherited;
	
private:
	TGradualStyle FStyle;
	Graphics::TColor FStartColor;
	Graphics::TColor FEndColor;
	void __fastcall SetStyle(const TGradualStyle Value);
	void __fastcall SetStartColor(const Graphics::TColor Value);
	void __fastcall SetEndColor(const Graphics::TColor Value);
	
public:
	__fastcall virtual TAAGradual(Classes::TNotifyEvent ChangedProc);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property TGradualStyle Style = {read=FStyle, write=SetStyle, default=0};
	__property Graphics::TColor StartColor = {read=FStartColor, write=SetStartColor, default=16777215};
	__property Graphics::TColor EndColor = {read=FEndColor, write=SetEndColor, default=0};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TAAGradual(void) { }
	#pragma option pop
	
};


class DELPHICLASS TAATexture;
class PASCALIMPLEMENTATION TAATexture : public TEnabledClass 
{
	typedef TEnabledClass inherited;
	
private:
	Graphics::TPicture* FPicture;
	TTextureMode FMode;
	void __fastcall SetMode(const TTextureMode Value);
	void __fastcall SetPicture(const Graphics::TPicture* Value);
	void __fastcall PictureChanged(System::TObject* Sender);
	
public:
	__fastcall virtual TAATexture(Classes::TNotifyEvent ChangedProc);
	__fastcall virtual ~TAATexture(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property TTextureMode Mode = {read=FMode, write=SetMode, default=0};
	__property Graphics::TPicture* Picture = {read=FPicture, write=SetPicture};
};


class DELPHICLASS TAAEffect;
class PASCALIMPLEMENTATION TAAEffect : public TNotifyClass 
{
	typedef TNotifyClass inherited;
	
private:
	TAlpha FAlpha;
	TBlurStrength FBlur;
	TAAGradual* FGradual;
	TAAShadow* FShadow;
	TAATexture* FTexture;
	bool FOutline;
	Byte FNoise;
	TSprayRange FSpray;
	TAngle FAngle;
	bool FHorzMirror;
	bool FVertMirror;
	void __fastcall SetAlpha(const TAlpha Value);
	void __fastcall SetBlur(const TBlurStrength Value);
	void __fastcall SetGradual(const TAAGradual* Value);
	void __fastcall SetShadow(const TAAShadow* Value);
	void __fastcall SetTexture(const TAATexture* Value);
	void __fastcall SetOutline(const bool Value);
	void __fastcall SetNoise(const Byte Value);
	void __fastcall SetSpray(const TSprayRange Value);
	void __fastcall SetAngle(const TAngle Value);
	void __fastcall SetHorzMirror(const bool Value);
	void __fastcall SetVertMirror(const bool Value);
	
public:
	__fastcall virtual TAAEffect(Classes::TNotifyEvent ChangedProc);
	__fastcall virtual ~TAAEffect(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	virtual void __fastcall LoadFromIni(Inifiles::TCustomIniFile* Ini, const AnsiString Section);
	virtual void __fastcall SaveToIni(Inifiles::TCustomIniFile* Ini, const AnsiString Section);
	
__published:
	__property TAAShadow* Shadow = {read=FShadow, write=SetShadow};
	__property TAAGradual* Gradual = {read=FGradual, write=SetGradual};
	__property TAATexture* Texture = {read=FTexture, write=SetTexture};
	__property TAlpha Alpha = {read=FAlpha, write=SetAlpha, default=100};
	__property TBlurStrength Blur = {read=FBlur, write=SetBlur, default=0};
	__property TAngle Angle = {read=FAngle, write=SetAngle, default=0};
	__property Byte Noise = {read=FNoise, write=SetNoise, default=0};
	__property TSprayRange Spray = {read=FSpray, write=SetSpray, default=0};
	__property bool Outline = {read=FOutline, write=SetOutline, default=0};
	__property bool HorzMirror = {read=FHorzMirror, write=SetHorzMirror, default=0};
	__property bool VertMirror = {read=FVertMirror, write=SetVertMirror, default=0};
};


class DELPHICLASS EInvalidPixel;
class PASCALIMPLEMENTATION EInvalidPixel : public Sysutils::Exception 
{
	typedef Sysutils::Exception inherited;
	
public:
	#pragma option push -w-inl
	/* Exception.Create */ inline __fastcall EInvalidPixel(const AnsiString Msg) : Sysutils::Exception(Msg) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmt */ inline __fastcall EInvalidPixel(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateRes */ inline __fastcall EInvalidPixel(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmt */ inline __fastcall EInvalidPixel(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateHelp */ inline __fastcall EInvalidPixel(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmtHelp */ inline __fastcall EInvalidPixel(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResHelp */ inline __fastcall EInvalidPixel(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmtHelp */ inline __fastcall EInvalidPixel(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~EInvalidPixel(void) { }
	#pragma option pop
	
};


class DELPHICLASS EInvalidLine;
class PASCALIMPLEMENTATION EInvalidLine : public Sysutils::Exception 
{
	typedef Sysutils::Exception inherited;
	
public:
	#pragma option push -w-inl
	/* Exception.Create */ inline __fastcall EInvalidLine(const AnsiString Msg) : Sysutils::Exception(Msg) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmt */ inline __fastcall EInvalidLine(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateRes */ inline __fastcall EInvalidLine(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmt */ inline __fastcall EInvalidLine(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateHelp */ inline __fastcall EInvalidLine(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmtHelp */ inline __fastcall EInvalidLine(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResHelp */ inline __fastcall EInvalidLine(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmtHelp */ inline __fastcall EInvalidLine(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~EInvalidLine(void) { }
	#pragma option pop
	
};


typedef Byte TByteArray[32768];

typedef Byte *PByteArray;

typedef tagRGBTRIPLE TRGBArray[8193];