plannercal.hpp

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

	void __fastcall SetNameofDays(TNameOfDays* ANameofDays);
	void __fastcall SetNameofMonths(TNameOfMonths* ANameofMonths);
	void __fastcall SetShowWeeks(bool AValue);
	void __fastcall SetStartDay(int AValue);
	void __fastcall SetCalDay(Word AValue);
	void __fastcall SetCalMonth(Word AValue);
	void __fastcall SetCalYear(Word AValue);
	Word __fastcall GetCalDay(void);
	Word __fastcall GetCalMonth(void);
	Word __fastcall GetMonth(System::TDateTime &dt);
	Word __fastcall GetCalYear(void);
	int __fastcall GetYear(System::TDateTime dt);
	Types::TRect __fastcall DateToRect(System::TDateTime dt);
	System::TDateTime __fastcall XYToDate(int X, int Y, bool Change);
	System::TDateTime __fastcall GetDateProc(void);
	void __fastcall SetDateProc(const System::TDateTime Value);
	void __fastcall SetDateCol(const TSelDateItems* Value);
	TSelDateItems* __fastcall GetDateCol(void);
	void __fastcall DoMonthPopup(void);
	void __fastcall DoYearPopup(void);
	void __fastcall PropsChanged(System::TObject* Sender);
	void __fastcall SetLineColor(Graphics::TColor AValue);
	void __fastcall SetDateSelectColor(Graphics::TColor AColor);
	void __fastcall SetLine3D(bool AValue);
	void __fastcall DrawGradient(Graphics::TCanvas* Canvas, Graphics::TColor FromColor, Graphics::TColor ToColor, int Steps, const Types::TRect &r, bool Direction);
	void __fastcall SetImage(const Advimage::TAdvImage* Value);
	void __fastcall SetBackgroundPosition(const TBackGroundPosition Value);
	void __fastcall SetAutoThemeAdapt(const bool Value);
	void __fastcall SetStyle(const TPlannerCalendarStyle Value);
	void __fastcall SetComponentStyle(Advstyleif::TTMSStyle AStyle);
	void __fastcall BackgroundChanged(System::TObject* Sender);
	TSelDateItems* __fastcall GetEvents(void);
	AnsiString __fastcall GetDatesAsText();
	void __fastcall SetEvents(const TSelDateItems* Value);
	void __fastcall SetShowDaysAfter(const bool Value);
	void __fastcall SetShowDaysBefore(const bool Value);
	void __fastcall SetShowSelection(const bool Value);
	void __fastcall SetCaptionColor(const Graphics::TColor Value);
	void __fastcall SetGradientStartColor(Graphics::TColor AValue);
	void __fastcall SetGradientEndColor(Graphics::TColor AValue);
	void __fastcall SetGradientDirection(TGradientDirection AValue);
	void __fastcall SetMonthGradientStartColor(Graphics::TColor AValue);
	void __fastcall SetMonthGradientEndColor(Graphics::TColor AValue);
	void __fastcall SetMonthGradientDirection(TGradientDirection AValue);
	void __fastcall SetGlyphs(const TCalGlyphs* Value);
	void __fastcall SetHintPrevYear(AnsiString AValue);
	void __fastcall SetHintPrevMonth(AnsiString AValue);
	void __fastcall SetHintNextMonth(AnsiString AValue);
	void __fastcall SetHintNextYear(AnsiString AValue);
	void __fastcall SetTodayStyle(const TTodayStyle Value);
	int __fastcall NumRows(void);
	int __fastcall NumCols(void);
	void __fastcall SetShowGotoToday(const bool Value);
	void __fastcall SetTodayFormat(const AnsiString Value);
	void __fastcall SetBorderXP(const bool Value);
	void __fastcall SetCaptionTextColor(const Graphics::TColor Value);
	void __fastcall SetCaption3D(bool Value);
	bool __fastcall IsVisibleDay(System::TDateTime dt);
	AnsiString __fastcall GetVersion();
	void __fastcall SetVersion(const AnsiString Value);
	int __fastcall GetVersionNr(void);
	
protected:
	virtual void __fastcall DoPaint(void);
	virtual void __fastcall RepaintDate(System::TDateTime dt);
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	virtual void __fastcall Paint(void);
	DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall KeyPress(char &Key);
	DYNAMIC void __fastcall DoEnter(void);
	DYNAMIC void __fastcall DoExit(void);
	virtual void __fastcall Loaded(void);
	virtual bool __fastcall HasEvent(System::TDateTime dt, TSelDateItem* &EventItem);
	virtual void __fastcall DoChangeMonth(System::TDateTime dt1, System::TDateTime dt2);
	virtual void __fastcall DoChangeYear(System::TDateTime dt1, System::TDateTime dt2);
	__property bool UseTheme = {read=FUseTheme, nodefault};
	void __fastcall YearStartChanged(System::TObject* Sender);
	virtual bool __fastcall IsInActiveDay(System::TDateTime dt);
	void __fastcall ThemeAdapt(void);
	virtual void __fastcall WndProc(Messages::TMessage &Msg);
	
public:
	__fastcall virtual TPlannerCalendar(Classes::TComponent* AOwner);
	__fastcall virtual ~TPlannerCalendar(void);
	void __fastcall ChangeMonth(int dx);
	void __fastcall ChangeYear(int dx);
	void __fastcall SetDate(Word da, Word mo, Word ye);
	void __fastcall GetDate(Word &da, Word &mo, Word &ye);
	void __fastcall BeginUpdate(void);
	void __fastcall EndUpdate(void);
	void __fastcall ResetUpdate(void);
	bool __fastcall DateAtXY(int x, int y, System::TDateTime &ADate);
	Types::TPoint __fastcall DateToXY(System::TDateTime dt);
	__property System::TDateTime Date = {read=GetDateProc, write=SetDateProc};
	__property TSelDateItems* Dates = {read=GetDateCol, write=SetDateCol};
	__property AnsiString DatesAsText = {read=GetDatesAsText};
	__property TSelDateItems* Events = {read=GetEvents, write=SetEvents};
	__property TPlannerCalendarStyle Style = {read=FStyle, write=SetStyle, nodefault};
	__property bool CustomDraw = {read=FCustomDraw, write=FCustomDraw, nodefault};
	System::TDateTime __fastcall FirstDate(void);
	System::TDateTime __fastcall LastDate(void);
	
__published:
	__property Align  = {default=0};
	__property bool AllDaySelect = {read=FAllDaySelect, write=FAllDaySelect, default=0};
	__property bool AutoThemeAdapt = {read=FAutoThemeAdapt, write=SetAutoThemeAdapt, default=0};
	__property Anchors  = {default=3};
	__property Constraints ;
	__property Advimage::TAdvImage* Background = {read=FImage, write=SetImage};
	__property TBackGroundPosition BackgroundPosition = {read=FBackgroundPosition, write=SetBackgroundPosition, nodefault};
	__property BevelInner  = {default=0};
	__property BevelOuter  = {default=2};
	__property BevelWidth  = {default=1};
	__property BorderWidth  = {default=0};
	__property bool BorderXP = {read=FBorderXP, write=SetBorderXP, default=1};
	__property BorderStyle  = {default=0};
	__property TCalendarBrowsers* Browsers = {read=FBrowsers, write=FBrowsers};
	__property bool Caption3D = {read=FCaption3D, write=SetCaption3D, default=0};
	__property Color  = {default=-16777201};
	__property Cursor  = {default=0};
	__property DragMode  = {default=0};
	__property bool Enable = {read=FEnable, write=FEnable, default=1};
	__property TWeekDays* InActiveDays = {read=FInActiveDays, write=FInActiveDays};
	__property TPlannerCalendarLook Look = {read=FLook, write=SetLook, nodefault};
	__property Graphics::TColor DateDownColor = {read=FDateDownColor, write=FDateDownColor, nodefault};
	__property Graphics::TColor DateHoverColor = {read=FDateHoverColor, write=FDateHoverColor, nodefault};
	__property Graphics::TColor DateSelectColor = {read=FDateSelectColor, write=SetDateSelectColor, nodefault};
	__property bool MultiSelect = {read=FMultiSelect, write=SetMultiSelect, default=0};
	__property bool MultiSelectCtrlKey = {read=FMultiSelectCtrlKey, write=FMultiSelectCtrlKey, default=0};
	__property Graphics::TFont* DayFont = {read=FDayFont, write=SetDayFont};
	__property Graphics::TFont* WeekFont = {read=FWeekFont, write=SetWeekFont};
	__property AnsiString WeekName = {read=FWeekName, write=SetWeekName, stored=true};
	__property Graphics::TColor TextColor = {read=FTextcolor, write=SetTextColor, nodefault};
	__property Graphics::TColor SelectColor = {read=FSelectColor, write=SetSelectColor, nodefault};
	__property Graphics::TColor SelectFontColor = {read=FSelectFontColor, write=SetSelectFontColor, nodefault};
	__property Graphics::TColor InActiveColor = {read=FInactiveColor, write=SetInactiveColor, nodefault};
	__property Graphics::TColor HeaderColor = {read=FHeaderColor, write=SetHeaderColor, nodefault};
	__property Graphics::TColor FocusColor = {read=FFocusColor, write=SetFocusColor, nodefault};
	__property Graphics::TColor InversColor = {read=FInverscolor, write=SetInversColor, nodefault};
	__property Graphics::TColor WeekendColor = {read=FWeekendColor, write=SetWeekendColor, nodefault};
	__property TNameOfDays* NameOfDays = {read=FNameOfDays, write=SetNameofDays};
	__property TNameOfMonths* NameOfMonths = {read=FNameOfMonths, write=SetNameofMonths};
	__property TMinMaxDate* MaxDate = {read=FMaxDate, write=FMaxDate};
	__property TMinMaxDate* MinDate = {read=FMinDate, write=FMinDate};
	__property PopupMenu ;
	__property bool ReturnIsSelect = {read=FReturnIsSelect, write=FReturnIsSelect, default=0};
	__property bool ShowDaysBefore = {read=FShowDaysBefore, write=SetShowDaysBefore, default=1};
	__property bool ShowDaysAfter = {read=FShowDaysAfter, write=SetShowDaysAfter, default=1};
	__property bool ShowGotoToday = {read=FShowGotoToday, write=SetShowGotoToday, default=0};
	__property bool ShowSelection = {read=FShowSelection, write=SetShowSelection, default=1};
	__property bool ShowToday = {read=FShowToday, write=SetShowToday, default=0};
	__property bool ShowWeeks = {read=FShowWeeks, write=SetShowWeeks, default=0};
	__property bool ShowMonthSelector = {read=FShowMonthSelector, write=FShowMonthSelector, default=1};
	__property bool ShowYearSelector = {read=FShowYearSelector, write=FShowYearSelector, default=1};
	__property int StartDay = {read=FStartDay, write=SetStartDay, nodefault};
	__property AnsiString TodayFormat = {read=FTodayFormat, write=SetTodayFormat};
	__property TTodayStyle TodayStyle = {read=FTodayStyle, write=SetTodayStyle, default=0};
	__property TYearStartAt* YearStartAt = {read=FYearStartAt, write=FYearStartAt};
	__property Word Day = {read=GetCalDay, write=SetCalDay, default=1};
	__property Word Month = {read=GetCalMonth, write=SetCalMonth, default=1};
	__property Word Year = {read=GetCalYear, write=SetCalYear, default=1};
	__property ShowHint ;
	__property ParentShowHint  = {default=1};
	__property TabStop  = {default=0};
	__property TabOrder  = {default=-1};
	__property bool WeekSelect = {read=FWeekSelect, write=FWeekSelect, default=0};
	__property Graphics::TFont* Font = {read=fFont, write=SetFont};
	__property bool EventHints = {read=FEventHints, write=FEventHints, default=0};
	__property Graphics::TColor CaptionColor = {read=FCaptionColor, write=SetCaptionColor, nodefault};
	__property Graphics::TColor CaptionTextColor = {read=FCaptionTextColor, write=SetCaptionTextColor, nodefault};
	__property TCellDrawEvent OnCellDraw = {read=FOnCellDraw, write=FOnCellDraw};
	__property TDaySelectEvent OnDaySelect = {read=FOnDaySelect, write=FOnDaySelect};
	__property Classes::TNotifyEvent OnMonthSelect = {read=FOnMonthSelect, write=FOnMonthSelect};
	__property TGetDateEvent OnGetDateHint = {read=FOnGetDateEvent, write=FOnGetDateEvent};
	__property TGetDateEventHint OnGetDateHintString = {read=FOnGetDateEventHint, write=FOnGetDateEventHint};
	__property TEventPropEvent OnGetEventProp = {read=FOnGetEventProp, write=FOnGetEventProp};
	__property TDateChangeEvent OnMonthChange = {read=FOnMonthChange, write=FOnMonthChange};
	__property TDateChangeEvent OnYearChange = {read=FOnYearChange, write=FOnYearChange};
	__property TDateChangeEvent OnDayChange = {read=FOnDayChange, write=FOnDayChange};
	__property TDateChangeEvent OnDateChange = {read=FOnDateChange, write=FOnDateChange};
	__property TCancelledChangeEvent OnCancelledChange = {read=FOnCancelledChange, write=FOnCancelledChange};
	__property Classes::TNotifyEvent OnWeekSelect = {read=FOnWeekSelect, write=FOnWeekSelect};
	__property Classes::TNotifyEvent OnAllDaySelect = {read=FOnAllDaySelect, write=FOnAllDaySelect};
	__property OnKeyDown ;
	__property OnKeyPress ;
	__property OnKeyUp ;
	__property OnMouseMove ;
	__property OnMouseDown ;
	__property OnMouseUp ;
	__property OnDblClick ;
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnStartDrag ;
	__property OnEndDrag ;
	__property OnEnter ;
	__property OnExit ;
	__property OnResize ;
	__property Graphics::TColor LineColor = {read=FLineColor, write=SetLineColor, nodefault};
	__property bool Line3D = {read=FLine3D, write=SetLine3D, nodefault};
	__property Graphics::TColor GradientStartColor = {read=FGradientStartColor, write=SetGradientStartColor, nodefault};
	__property Graphics::TColor GradientEndColor = {read=FGradientEndColor, write=SetGradientEndColor, nodefault};
	__property TGradientDirection GradientDirection = {read=FGradientDirection, write=SetGradientDirection, nodefault};
	__property Graphics::TColor MonthGradientStartColor = {read=FMonthGradientStartColor, write=SetMonthGradientStartColor, nodefault};
	__property Graphics::TColor MonthGradientEndColor = {read=FMonthGradientEndColor, write=SetMonthGradientEndColor, nodefault};
	__property TGradientDirection MonthGradientDirection = {read=FMonthGradientDirection, write=SetMonthGradientDirection, nodefault};
	__property TCalGlyphs* Glyphs = {read=FGlyphs, write=SetGlyphs};
	__property AnsiString HintPrevYear = {read=FHintPrevYear, write=SetHintPrevYear};
	__property AnsiString HintPrevMonth = {read=FHintPrevMonth, write=SetHintPrevMonth};
	__property AnsiString HintNextMonth = {read=FHintNextMonth, write=SetHintNextMonth};
	__property AnsiString HintNextYear = {read=FHintNextYear, write=SetHintNextYear};
	__property AnsiString Version = {read=GetVersion, write=SetVersion};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TPlannerCalendar(HWND ParentWindow) : TCustomCalendarPanel(ParentWindow) { }
	#pragma option pop
	
private:
	void *__ITMSStyle;	/* Advstyleif::ITMSStyle */
	
public:
	operator ITMSStyle*(void) { return (ITMSStyle*)&__ITMSStyle; }
	
};


class PASCALIMPLEMENTATION TMinMaxDate : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	TPlannerCalendar* FOwner;
	short FDay;
	short FMonth;
	short FYear;
	bool FUse;
	void __fastcall SetDay(short avalue);
	void __fastcall SetMonth(short avalue);
	void __fastcall SetYear(short avalue);
	void __fastcall SetUse(bool avalue);
	System::TDateTime __fastcall GetDate(void);
	void __fastcall SetDate(const System::TDateTime Value);
	
public:
	__fastcall TMinMaxDate(TPlannerCalendar* aOwner);
	__property System::TDateTime Date = {read=GetDate, write=SetDate};
	
__published:
	__property short Day = {read=FDay, write=SetDay, default=0};
	__property short Month = {read=FMonth, write=SetMonth, default=0};
	__property short Year = {read=FYear, write=SetYear, default=0};
	__property bool Use = {read=FUse, write=SetUse, default=0};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TMinMaxDate(void) { }
	#pragma option pop
	
};


class DELPHICLASS TPlannerCalendarGroup;
class PASCALIMPLEMENTATION TPlannerCalendarGroup : public TCustomCalendarPanel 
{
	typedef TCustomCalendarPanel inherited;
	
private:
	Advimage::TAdvImage* FImage;
	TBackGroundPosition FBackgroundPosition;
	Classes::TList* FCalendars;
	int FColCount;
	int FRowCount;
	Extctrls::TPanel* FResizeVertical;
	Extctrls::TPanel* FResizeHorizontal;
	Byte fspliterV;
	Byte fspliterH;
	bool FLetResize;
	int FCalendarWidth;
	int FCalendarHeight;
	Graphics::TFont* fFont;
	int FStartMonth;
	int FStartYear;
	TDaySelectEvent FOnDaySelect;
	Classes::TNotifyEvent FOnMonthSelect;
	TGetDateEvent FOnGetDateEvent;
	TGetDateEventHint FOnGetDateEventHint;
	TDateChangeEvent FOnDateChange;
	TDateChangeEvent FOnMonthChange;
	TDateChangeEvent FOnYearChange;
	TDateChangeEvent FOnDayChange;
	TCancelledChangeEvent FOnCancelledChange;
	Classes::TNotifyEvent FOnWeekSelect;
	Classes::TNotifyEvent FOnAllDaySelect;
	bool Fctltdown;
	Controls::TKeyEvent FOnKeyDown;
	Controls::TKeyPressEvent FOnKeyPress;
	Controls::TKeyEvent FOnKeyUp;
	Controls::TMouseMoveEvent FOnMouseMove;
	Controls::TMouseEvent FOnMouseDown;
	Controls::TMouseEvent FOnMouseUp;
	Controls::TDragDropEvent FOnDragDrop;
	Controls::TDragOverEvent FOnDragOver;
	Controls::TEndDragEvent FOnEndDrag;
	Controls::TStartDragEvent FOnStartDrag;
	TCellDrawEvent FOnCellDraw;
	Word FDay;
	Word FMonth;
	Word FYear;
	TPlannerCalendarLook FLook;
	Graphics::TFont* FDayFont;
	Graphics::TFont* FWeekFont;
	AnsiString FWeekName;
	Graphics::TColor FTextColor;
	Graphics::TColor FSelectColor;
	Graphics::TColor FSelectFontColor;
	Graphics::TColor FInactiveColor;
	Graphics::TColor FHeaderColor;
	Graphics::TColor FFocusColor;
	Graphics::TColor FInversColor;
	Graphics::TColor FWeekendColor;
	TNameOfDays* FNameOfDays;
	TNameOfMonths* FNameOfMonths;
	bool FShowSelection;