plannercal.hpp

一个非常棒的控件.做商业软件特别适用.里面的控件涉及面非常的广,有兴趣的话可以下来用用就知道了.

	void __fastcall SetPrevYearStartMonth(int m);
	void __fastcall SetNextYearStartDay(int d);
	void __fastcall SetNextYearStartMonth(int m);
	bool __fastcall ValidateDay(int d);
	bool __fastcall ValidateMonth(int m);
	void __fastcall Changed(void);
	void __fastcall SetISOWeekNumber(const bool Value);
	
public:
	__fastcall TYearStartAt(TCustomCalendarPanel* AOwner);
	__fastcall virtual ~TYearStartAt(void);
	
__published:
	__property bool ISOWeekNumber = {read=FISOWeekNumber, write=SetISOWeekNumber, default=0};
	__property int StartDay = {read=FStartDay, write=SetStartDay, default=1};
	__property int StartMonth = {read=FStartMonth, write=SetStartMonth, default=1};
	__property int PrevYearStartDay = {read=FPrevYearStartDay, write=SetPrevYearStartDay, default=1};
	__property int PrevYearStartMonth = {read=FPrevYearStartMonth, write=SetPrevYearStartMonth, default=1};
	__property int NextYearStartDay = {read=FNextYearStartDay, write=SetNextYearStartDay, default=1};
	__property int NextYearStartMonth = {read=FNextYearStartMonth, write=SetNextYearStartMonth, default=1};
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
};


class DELPHICLASS TNameOfDays;
class PASCALIMPLEMENTATION TNameOfDays : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	AnsiString FMonday;
	AnsiString FTuesday;
	AnsiString FWednesday;
	AnsiString FThursday;
	AnsiString FFriday;
	AnsiString FSaturday;
	AnsiString FSunday;
	Classes::TNotifyEvent FOnChange;
	bool FUseIntlNames;
	void __fastcall SetFriday(const AnsiString Value);
	void __fastcall SetMonday(const AnsiString Value);
	void __fastcall SetSaturday(const AnsiString Value);
	void __fastcall SetSunday(const AnsiString Value);
	void __fastcall SetThursday(const AnsiString Value);
	void __fastcall SetTuesday(const AnsiString Value);
	void __fastcall SetWednesday(const AnsiString Value);
	void __fastcall SetUseIntlNames(const bool Value);
	
protected:
	void __fastcall Changed(void);
	void __fastcall InitIntl(void);
	
public:
	__fastcall TNameOfDays(void);
	__fastcall virtual ~TNameOfDays(void);
	AnsiString __fastcall GetDay(int i);
	
__published:
	__property AnsiString Monday = {read=FMonday, write=SetMonday};
	__property AnsiString Tuesday = {read=FTuesday, write=SetTuesday};
	__property AnsiString Wednesday = {read=FWednesday, write=SetWednesday};
	__property AnsiString Thursday = {read=FThursday, write=SetThursday};
	__property AnsiString Friday = {read=FFriday, write=SetFriday};
	__property AnsiString Saturday = {read=FSaturday, write=SetSaturday};
	__property AnsiString Sunday = {read=FSunday, write=SetSunday};
	__property bool UseIntlNames = {read=FUseIntlNames, write=SetUseIntlNames, default=1};
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
};


class DELPHICLASS TNameOfMonths;
class PASCALIMPLEMENTATION TNameOfMonths : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	AnsiString FJanuary;
	AnsiString FFebruary;
	AnsiString FMarch;
	AnsiString FApril;
	AnsiString FMay;
	AnsiString FJune;
	AnsiString FJuly;
	AnsiString FAugust;
	AnsiString FSeptember;
	AnsiString FOctober;
	AnsiString FNovember;
	AnsiString FDecember;
	Classes::TNotifyEvent FOnChange;
	bool FUseIntlNames;
	void __fastcall SetApril(const AnsiString Value);
	void __fastcall SetAugust(const AnsiString Value);
	void __fastcall SetDecember(const AnsiString Value);
	void __fastcall SetFebruary(const AnsiString Value);
	void __fastcall SetJanuary(const AnsiString Value);
	void __fastcall SetJuly(const AnsiString Value);
	void __fastcall SetJune(const AnsiString Value);
	void __fastcall SetMarch(const AnsiString Value);
	void __fastcall SetMay(const AnsiString Value);
	void __fastcall SetNovember(const AnsiString Value);
	void __fastcall SetOctober(const AnsiString Value);
	void __fastcall SetSeptember(const AnsiString Value);
	void __fastcall SetUseIntlNames(const bool Value);
	
protected:
	void __fastcall Changed(void);
	void __fastcall InitIntl(void);
	
public:
	__fastcall TNameOfMonths(void);
	__fastcall virtual ~TNameOfMonths(void);
	AnsiString __fastcall GetMonth(int i);
	
__published:
	__property AnsiString January = {read=FJanuary, write=SetJanuary};
	__property AnsiString February = {read=FFebruary, write=SetFebruary};
	__property AnsiString March = {read=FMarch, write=SetMarch};
	__property AnsiString April = {read=FApril, write=SetApril};
	__property AnsiString May = {read=FMay, write=SetMay};
	__property AnsiString June = {read=FJune, write=SetJune};
	__property AnsiString July = {read=FJuly, write=SetJuly};
	__property AnsiString August = {read=FAugust, write=SetAugust};
	__property AnsiString September = {read=FSeptember, write=SetSeptember};
	__property AnsiString October = {read=FOctober, write=SetOctober};
	__property AnsiString November = {read=FNovember, write=SetNovember};
	__property AnsiString December = {read=FDecember, write=SetDecember};
	__property bool UseIntlNames = {read=FUseIntlNames, write=SetUseIntlNames, nodefault};
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
};


class DELPHICLASS TCalGlyphs;
class PASCALIMPLEMENTATION TCalGlyphs : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Classes::TComponent* FOwner;
	Graphics::TBitmap* FNextYear;
	Graphics::TBitmap* FPrevYear;
	Graphics::TBitmap* FNextMonth;
	Graphics::TBitmap* FPrevMonth;
	Classes::TNotifyEvent FOnChange;
	void __fastcall SetNextYear(const Graphics::TBitmap* Value);
	void __fastcall SetPrevYear(const Graphics::TBitmap* Value);
	void __fastcall SetPrevMonth(const Graphics::TBitmap* Value);
	void __fastcall SetNextMonth(const Graphics::TBitmap* Value);
	void __fastcall Changed(System::TObject* Sender);
	
public:
	__fastcall TCalGlyphs(Classes::TComponent* AOwner);
	__fastcall virtual ~TCalGlyphs(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property Graphics::TBitmap* NextMonth = {read=FNextMonth, write=SetNextMonth};
	__property Graphics::TBitmap* PrevMonth = {read=FPrevMonth, write=SetPrevMonth};
	__property Graphics::TBitmap* NextYear = {read=FNextYear, write=SetNextYear};
	__property Graphics::TBitmap* PrevYear = {read=FPrevYear, write=SetPrevYear};
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
};


class PASCALIMPLEMENTATION TPlannerCalendar : public TCustomCalendarPanel 
{
	typedef TCustomCalendarPanel inherited;
	
private:
	TSelDateItems* DateCol;
	TSelDateItems* EventCol;
	int xoffset;
	int yoffset;
	System::TDateTime seldate;
	System::TDateTime thedate;
	System::TDateTime clkdate;
	System::TDateTime movdate;
	System::TDateTime initdate;
	bool mousesel;
	bool showhintbusy;
	#pragma pack(push,1)
	Types::TPoint fLastHintPos;
	#pragma pack(pop)
	Word dx;
	Word dy;
	Word lblx1;
	Word lblx2;
	Word lblx3;
	Graphics::TFont* fFont;
	int xposin;
	int yposin;
	bool flgl;
	bool flgr;
	bool flgla;
	bool dflgl;
	bool dflgr;
	bool flgt;
	SmallString<20>  labels;
	AnsiString EventHint;
	AnsiString BrowserHint;
	bool FShowToday;
	TPlannerCalendarLook FLook;
	TCalendarBrowsers* FBrowsers;
	bool FMonthSelect;
	bool FMultiSelect;
	bool FEventHints;
	TYearStartAt* FYearStartAt;
	TNameOfDays* FNameOfDays;
	TNameOfMonths* FNameOfMonths;
	TMinMaxDate* FMaxDate;
	TMinMaxDate* FMinDate;
	Graphics::TColor FTextcolor;
	Graphics::TColor FSelectColor;
	Graphics::TColor FSelectFontColor;
	Graphics::TColor FInactiveColor;
	Graphics::TColor FFocusColor;
	Graphics::TColor FInverscolor;
	Graphics::TColor FWeekendColor;
	Graphics::TColor FHeaderColor;
	bool FShowWeeks;
	int FStartDay;
	Word FDay;
	Word FMonth;
	Word FYear;
	Graphics::TFont* FDayFont;
	Graphics::TFont* FWeekFont;
	AnsiString FWeekName;
	TCellDrawEvent FOnCellDraw;
	TDaySelectEvent FOnDaySelect;
	Classes::TNotifyEvent FOnMonthSelect;
	TGetDateEvent FOnGetDateEvent;
	TGetDateEventHint FOnGetDateEventHint;
	TDateChangeEvent FOnDateChange;
	TDateChangeEvent FOnMonthChange;
	TDateChangeEvent FOnYearChange;
	TDateChangeEvent FOnDayChange;
	Advimage::TAdvImage* FImage;
	TBackGroundPosition FBackgroundPosition;
	bool FShowDaysAfter;
	bool FShowDaysBefore;
	bool FShowSelection;
	bool FWeekSelect;
	bool FAllDaySelect;
	TCancelledChangeEvent FOnCancelledChange;
	Classes::TNotifyEvent FOnWeekSelect;
	Classes::TNotifyEvent FOnAllDaySelect;
	int FUpdateCount;
	Graphics::TColor FCaptionColor;
	bool FReturnIsSelect;
	Graphics::TColor FLineColor;
	bool FLine3D;
	Graphics::TColor FGradientStartColor;
	Graphics::TColor FGradientEndColor;
	TGradientDirection FGradientDirection;
	Graphics::TColor FMonthGradientStartColor;
	Graphics::TColor FMonthGradientEndColor;
	TGradientDirection FMonthGradientDirection;
	TCalGlyphs* FGlyphs;
	Controls::TCursor FOldCursor;
	AnsiString FHintPrevYear;
	AnsiString FHintPrevMonth;
	AnsiString FHintNextMonth;
	AnsiString FHintNextYear;
	bool FUseTheme;
	TTodayStyle FTodayStyle;
	TEventPropEvent FOnGetEventProp;
	bool FShowGotoToday;
	AnsiString FTodayFormat;
	Graphics::TCanvas* FCanvas;
	bool FBorderXP;
	Graphics::TColor FCaptionTextColor;
	bool FCaption3D;
	TWeekDays* FInActiveDays;
	bool FAutoThemeAdapt;
	System::TDateTime FHoverDate;
	TPlannerCalendarStyle FStyle;
	Graphics::TColor FDateSelectColor;
	Graphics::TColor FDateHoverColor;
	Graphics::TColor FDateDownColor;
	Graphics::TColor FBorderColor;
	bool FCustomDraw;
	bool FShowMonthSelector;
	bool FShowYearSelector;
	bool FEnable;
	bool FMultiSelectCtrlKey;
	HIDESBASE MESSAGE void __fastcall WMCommand(Messages::TWMCommand &Message);
	HIDESBASE MESSAGE void __fastcall WMKeyDown(Messages::TWMKey &Msg);
	HIDESBASE MESSAGE void __fastcall WMEraseBkGnd(Messages::TWMEraseBkgnd &Message);
	MESSAGE void __fastcall CMWantSpecialKey(Messages::TWMKey &Msg);
	HIDESBASE MESSAGE void __fastcall CMMouseLeave(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall WMLButtonDblClk(Messages::TWMMouse &Message);
	HIDESBASE MESSAGE void __fastcall CMHintShow(Messages::TMessage &Msg);
	void __fastcall UpdateYearStartAtISO(void);
	void __fastcall SetLabel(Word mo, Word ye);
	void __fastcall DiffCheck(System::TDateTime dt1, System::TDateTime dt2);
	System::TDateTime __fastcall DiffMonth(int dx);
	System::TDateTime __fastcall DiffYear(int dx);
	bool __fastcall CheckDateRange(System::TDateTime dt);
	bool __fastcall CheckMonth(System::TDateTime dt);
	Word __fastcall DaysInMonth(Word mo, Word ye);
	void __fastcall PaintArrowLeft(void);
	void __fastcall PaintArrowRight(void);
	void __fastcall PaintDblArrowLeft(void);
	void __fastcall PaintDblArrowRight(void);
	void __fastcall PaintLabel(void);
	void __fastcall PaintProc(void);
	void __fastcall PaintToday(void);
	void __fastcall PaintEventMarker(const Types::TRect &R, Graphics::TColor AColor, TEventShape AShape);
	void __fastcall SetLook(TPlannerCalendarLook AValue);
	void __fastcall SetShowToday(bool AValue);
	void __fastcall SetMultiSelect(bool AValue);
	void __fastcall SetDayFont(Graphics::TFont* AValue);
	void __fastcall SetWeekFont(Graphics::TFont* AValue);
	void __fastcall SetTextColor(Graphics::TColor AColor);
	void __fastcall SetFocusColor(Graphics::TColor AColor);
	void __fastcall SetInversColor(Graphics::TColor AColor);
	void __fastcall SetWeekendColor(Graphics::TColor AColor);
	void __fastcall SetSelectColor(Graphics::TColor AColor);
	void __fastcall SetSelectFontColor(Graphics::TColor AColor);
	void __fastcall SetInactiveColor(Graphics::TColor AColor);
	void __fastcall SetHeaderColor(Graphics::TColor AColor);
	void __fastcall SetWeekName(const AnsiString Value);
	HIDESBASE void __fastcall FontChanged(System::TObject* Sender);
	HIDESBASE void __fastcall SetFont(Graphics::TFont* Value);