plannercal.hpp

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

	bool FShowWeeks;
	bool FEventHints;
	bool FSPlitterBevel;
	Graphics::TColor FSplitterColor;
	int FBevelWidth;
	Forms::TFormBorderStyle FBorderStyle;
	int FBorderWidth;
	Controls::TBevelCut FBevelOuter;
	Controls::TBevelCut FBevelInner;
	bool FMultiSelect;
	bool FShowToday;
	TSelDateItems* FEventCol;
	TSelDateItems* FDates;
	bool FAllDaySelect;
	bool FWeekSelect;
	Graphics::TColor FCaptionColor;
	int FStartDay;
	Graphics::TColor FLineColor;
	bool FLine3D;
	TGradientDirection FGradientDirection;
	Graphics::TColor FGradientStartColor;
	Graphics::TColor FGradientEndColor;
	TGradientDirection FMonthGradientDirection;
	Graphics::TColor FMonthGradientStartColor;
	Graphics::TColor FMonthGradientEndColor;
	TCalendarBrowsers* FBrowsers;
	AnsiString FHintNextMonth;
	AnsiString FHintNextYear;
	AnsiString FHintPrevYear;
	AnsiString FHintPrevMonth;
	TCalGlyphs* FGlyphs;
	Graphics::TColor FCaptionTextColor;
	System::TDateTime FLastDay;
	TYearStartAt* FYearStartAt;
	TPlannerCalendarStyle FStyle;
	Graphics::TColor FDateSelectColor;
	Graphics::TColor FDateHoverColor;
	Graphics::TColor FDateDownColor;
	bool FAutoThemeAdapt;
	bool FShowMonthSelector;
	bool FShowYearSelector;
	void __fastcall SetColCount(const int Value);
	void __fastcall SetRowCount(const int Value);
	void __fastcall SetCalendarWidth(const int Value);
	void __fastcall SetCalendarHeight(const int Value);
	HIDESBASE void __fastcall SetFont(const Graphics::TFont* Value);
	void __fastcall SetStartMonth(const int Value);
	void __fastcall SetStartYear(const int Value);
	void __fastcall SetSpliterH(const Byte Value);
	void __fastcall SetSpliterV(const Byte Value);
	void __fastcall UpdateFields(void);
	void __fastcall UpdateEvents(void);
	TSelDateItems* __fastcall GetDates(void);
	void __fastcall SetDates(const TSelDateItems* Value);
	void __fastcall SetDay(Word Value);
	void __fastcall SetMonth(Word Value);
	void __fastcall SetYear(Word Value);
	Word __fastcall GetMonth(void);
	Word __fastcall GetYear(void);
	void __fastcall SetLook(TPlannerCalendarLook AValue);
	void __fastcall SetDayFont(Graphics::TFont* AValue);
	void __fastcall SetWeekFont(Graphics::TFont* AValue);
	void __fastcall SetWeekName(const AnsiString Value);
	void __fastcall SetTextColor(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 SetFocusColor(Graphics::TColor AColor);
	void __fastcall SetInversColor(Graphics::TColor AColor);
	void __fastcall SetWeekendColor(Graphics::TColor AColor);
	void __fastcall SetNameOfDays(const TNameOfDays* Value);
	void __fastcall SetNameOfMonths(const TNameOfMonths* Value);
	void __fastcall SetShowSelection(const bool Value);
	void __fastcall SetShowWeeks(bool AValue);
	void __fastcall SetEventHints(bool AValue);
	void __fastcall SetFOnDaySelect(TDaySelectEvent Value);
	void __fastcall SetFOnMonthSelect(Classes::TNotifyEvent Value);
	void __fastcall SetFOnGetDateEvent(TGetDateEvent Value);
	void __fastcall SetFOnGetDateEventHint(TGetDateEventHint Value);
	void __fastcall SetFOnDateChange(TDateChangeEvent Value);
	void __fastcall SetFOnMonthChange(TDateChangeEvent Value);
	void __fastcall SetFOnYearChange(TDateChangeEvent Value);
	void __fastcall SetFOnDayChange(TDateChangeEvent Value);
	void __fastcall SetFOnCancelledChange(TCancelledChangeEvent Value);
	void __fastcall SetFOnWeekSelect(Classes::TNotifyEvent Value);
	void __fastcall SetFOnAllDaySelect(Classes::TNotifyEvent Value);
	void __fastcall SetFOnKeyDown(Controls::TKeyEvent Value);
	void __fastcall SetFOnKeyPress(Controls::TKeyPressEvent Value);
	void __fastcall SetFOnKeyUp(Controls::TKeyEvent Value);
	void __fastcall SetFOnMouseMove(Controls::TMouseMoveEvent Value);
	void __fastcall SetFOnMouseDown(Controls::TMouseEvent Value);
	void __fastcall SetFOnMouseUp(Controls::TMouseEvent Value);
	void __fastcall SetFOnDragOver(Controls::TDragOverEvent Value);
	void __fastcall SetFOnDragDrop(Controls::TDragDropEvent Value);
	void __fastcall SetFOnEndDrag(Controls::TEndDragEvent Value);
	void __fastcall SetFOnStartDrag(Controls::TStartDragEvent Value);
	void __fastcall MouseDownV(System::TObject* Sender, Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	void __fastcall MouseMoveV(System::TObject* Sender, Classes::TShiftState Shift, int X, int Y);
	void __fastcall MouseUpV(System::TObject* Sender, Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	void __fastcall MouseDownH(System::TObject* Sender, Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	void __fastcall MouseMoveH(System::TObject* Sender, Classes::TShiftState Shift, int X, int Y);
	void __fastcall MouseUpH(System::TObject* Sender, Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	void __fastcall SetImage(const Advimage::TAdvImage* Value);
	void __fastcall BackgroundChanged(System::TObject* Sender);
	void __fastcall SetBackgroundPosition(const TBackGroundPosition Value);
	Graphics::TColor __fastcall GetColorEx(void);
	void __fastcall SetColorEx(const Graphics::TColor Value);
	void __fastcall FitPlanners(void);
	void __fastcall SetPlannersUpdate(const bool State);
	void __fastcall SetSplitterBevel(const bool Value);
	void __fastcall SetSplitterColor(const Graphics::TColor Value);
	void __fastcall SetBebelInnerEx(const Controls::TBevelCut Value);
	void __fastcall SetBevelOuterEx(const Controls::TBevelCut Value);
	void __fastcall SetBevelWidthEx(const int Value);
	void __fastcall SetBorderStyleEx(const Forms::TBorderStyle Value);
	void __fastcall SetBorderWidthEx(const int Value);
	void __fastcall SetMultiSelect(const bool Value);
	void __fastcall SetShowToday(const bool Value);
	TSelDateItems* __fastcall GetEvents(void);
	void __fastcall SetEvents(const TSelDateItems* Value);
	void __fastcall SetAllDaySelect(const bool Value);
	void __fastcall SetWeekSelect(const bool Value);
	void __fastcall SetCaptionColor(const Graphics::TColor Value);
	int __fastcall GetBevelWidth(void);
	int __fastcall GetBorderWidth(void);
	HIDESBASE void __fastcall SetBevelWidth(const int Value);
	HIDESBASE void __fastcall SetBorderWidth(const int Value);
	void __fastcall SetStartDay(const int Value);
	void __fastcall SetLineColor(const Graphics::TColor Value);
	void __fastcall SetLine3D(const bool Value);
	void __fastcall SetGradientDirection(TGradientDirection Value);
	void __fastcall SetGradientStartColor(Graphics::TColor Value);
	void __fastcall SetGradientEndColor(Graphics::TColor Value);
	void __fastcall setMonthGradientDirection(TGradientDirection Value);
	void __fastcall SetMonthGradientStartColor(Graphics::TColor Value);
	void __fastcall SetMonthGradientEndColor(Graphics::TColor Value);
	void __fastcall SetHintPrevMonth(AnsiString Value);
	void __fastcall SetHintPrevYear(AnsiString Value);
	void __fastcall SetHintNextMonth(AnsiString Value);
	void __fastcall SetHintNextYear(AnsiString Value);
	void __fastcall SetGlyphs(const TCalGlyphs* Value);
	void __fastcall GlyphsChanged(System::TObject* Sender);
	void __fastcall SetCaptionTextColor(const Graphics::TColor Value);
	void __fastcall YearStartChanged(System::TObject* Sender);
	System::TDateTime __fastcall GetDate(void);
	void __fastcall SetDate(const System::TDateTime Value);
	AnsiString __fastcall GetVersion();
	void __fastcall SetVersion(const AnsiString Value);
	int __fastcall GetVersionNr(void);
	void __fastcall SetStyle(TPlannerCalendarStyle Value);
	void __fastcall SetDateSelectColor(Graphics::TColor Value);
	void __fastcall SetAutoThemeAdapt(bool Value);
	void __fastcall DblClickProc(System::TObject* Sender);
	void __fastcall SetShowMonthSelector(const bool Value);
	void __fastcall SetShowYearSelector(const bool Value);
	int __fastcall GetMonthCount(void);
	
protected:
	virtual void __fastcall DoPaint(void);
	virtual void __fastcall RepaintDate(System::TDateTime dt);
	void __fastcall ShowPlanners(void);
	void __fastcall UpdatePlanners(void);
	void __fastcall Updatezero(System::TDateTime &dt);
	virtual void __fastcall Paint(void);
	void __fastcall CtrlKeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
	void __fastcall CtrlKeyUP(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
	void __fastcall GetGroupDate(System::TObject* Sender, System::TDateTime origDate, System::TDateTime newDate);
	void __fastcall AnyDaySelect(System::TObject* Sender, System::TDateTime SelDate);
	void __fastcall AnyDayChange(System::TObject* Sender, System::TDateTime OrigDate, System::TDateTime SelDate);
	void __fastcall WeekChange(System::TObject* Sender);
	DYNAMIC void __fastcall Resize(void);
	void __fastcall PropsChanged(System::TObject* Sender);
	void __fastcall EventsChanged(System::TObject* Sender);
	void __fastcall ThemeAdapt(void);
	virtual void __fastcall WndProc(Messages::TMessage &Msg);
	
public:
	__fastcall virtual TPlannerCalendarGroup(Classes::TComponent* AOwner);
	__fastcall virtual ~TPlannerCalendarGroup(void);
	virtual void __fastcall Loaded(void);
	bool __fastcall DateAtXY(int X, int Y, System::TDateTime &ADate);
	void __fastcall ModifyGroup(int Cols, int Rows, int CalendarWidth, int CalendarHeight);
	__property TSelDateItems* Events = {read=GetEvents, write=SetEvents};
	__property TSelDateItems* Dates = {read=GetDates, write=SetDates};
	void __fastcall UpdateDates(void);
	__property System::TDateTime Date = {read=GetDate, write=SetDate};
	__property TPlannerCalendarStyle Style = {read=FStyle, write=SetStyle, nodefault};
	__property int MonthCount = {read=GetMonthCount, nodefault};
	System::TDateTime __fastcall FirstDate(void);
	System::TDateTime __fastcall LastDate(void);
	
__published:
	__property Align  = {default=0};
	__property bool AllDaySelect = {read=FAllDaySelect, write=SetAllDaySelect, default=0};
	__property Advimage::TAdvImage* Background = {read=FImage, write=SetImage};
	__property TBackGroundPosition BackgroundPosition = {read=FBackgroundPosition, write=SetBackgroundPosition, nodefault};
	__property Graphics::TColor Color = {read=GetColorEx, write=SetColorEx, nodefault};
	__property int ColCount = {read=FColCount, write=SetColCount, nodefault};
	__property int RowCount = {read=FRowCount, write=SetRowCount, nodefault};
	__property int CalendarWidth = {read=FCalendarWidth, write=SetCalendarWidth, nodefault};
	__property int CalendarHeight = {read=FCalendarHeight, write=SetCalendarHeight, nodefault};
	__property Graphics::TFont* Font = {read=fFont, write=SetFont};
	__property int StartDay = {read=FStartDay, write=SetStartDay, nodefault};
	__property int StartMonth = {read=FStartMonth, write=SetStartMonth, nodefault};
	__property int StartYear = {read=FStartYear, write=SetStartYear, nodefault};
	__property Byte SpliterV = {read=fspliterV, write=SetSpliterV, nodefault};
	__property Byte SpliterH = {read=fspliterH, write=SetSpliterH, nodefault};
	__property Graphics::TColor SplitterColor = {read=FSplitterColor, write=SetSplitterColor, nodefault};
	__property bool SplitterBevel = {read=FSPlitterBevel, write=SetSplitterBevel, nodefault};
	__property Graphics::TColor LineColor = {read=FLineColor, write=SetLineColor, nodefault};
	__property bool Line3D = {read=FLine3D, write=SetLine3D, nodefault};
	__property TGradientDirection GradientDirection = {read=FGradientDirection, write=SetGradientDirection, nodefault};
	__property Graphics::TColor GradientStartColor = {read=FGradientStartColor, write=SetGradientStartColor, nodefault};
	__property Graphics::TColor GradientEndColor = {read=FGradientEndColor, write=SetGradientEndColor, nodefault};
	__property TGradientDirection MonthGradientDirection = {read=FMonthGradientDirection, write=setMonthGradientDirection, nodefault};
	__property Graphics::TColor MonthGradientStartColor = {read=FMonthGradientStartColor, write=SetMonthGradientStartColor, nodefault};
	__property Graphics::TColor MonthGradientEndColor = {read=FMonthGradientEndColor, write=SetMonthGradientEndColor, nodefault};
	__property TCalendarBrowsers* Browsers = {read=FBrowsers, write=FBrowsers};
	__property AnsiString HintPrevYear = {read=FHintPrevYear, write=SetHintPrevYear};
	__property AnsiString HintPrevMonth = {read=FHintPrevMonth, write=SetHintPrevMonth};
	__property AnsiString HintNextYear = {read=FHintNextYear, write=SetHintNextYear};
	__property AnsiString HintNextMonth = {read=FHintNextMonth, write=SetHintNextMonth};
	__property TCalGlyphs* Glyphs = {read=FGlyphs, write=SetGlyphs};
	__property bool AutoThemeAdapt = {read=FAutoThemeAdapt, write=SetAutoThemeAdapt, nodefault};
	__property BorderStyle  = {default=0};
	__property BevelInner  = {default=0};
	__property BevelOuter  = {default=2};
	__property int BevelWidth = {read=GetBevelWidth, write=SetBevelWidth, nodefault};
	__property int BorderWidth = {read=GetBorderWidth, write=SetBorderWidth, nodefault};
	__property Controls::TBevelCut CalendarBevelInner = {read=FBevelInner, write=SetBebelInnerEx, nodefault};
	__property Controls::TBevelCut CalendarBevelOuter = {read=FBevelOuter, write=SetBevelOuterEx, nodefault};
	__property int CalendarBevelWidth = {read=FBevelWidth, write=SetBevelWidthEx, nodefault};
	__property int CalendarBorderWidth = {read=FBorderWidth, write=SetBorderWidthEx, nodefault};
	__property Forms::TBorderStyle CalendarBorderStyle = {read=FBorderStyle, write=SetBorderStyleEx, 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 Hint ;
	__property ShowHint ;
	__property ParentShowHint  = {default=1};
	__property Word Day = {read=FDay, write=SetDay, default=1};
	__property Word Month = {read=GetMonth, write=SetMonth, default=1};
	__property Word Year = {read=GetYear, write=SetYear, default=1};
	__property TPlannerCalendarLook Look = {read=FLook, write=SetLook, nodefault};
	__property bool MultiSelect = {read=FMultiSelect, write=SetMultiSelect, nodefault};
	__property Graphics::TFont* DayFont = {read=FDayFont, write=SetDayFont};
	__property Graphics::TFont* WeekFont = {read=FWeekFont, write=SetWeekFont};
	__property AnsiString WeekName = {read=FWeekName, write=SetWeekName};
	__property bool WeekSelect = {read=FWeekSelect, write=SetWeekSelect, default=0};
	__property TNameOfDays* NameOfDays = {read=FNameOfDays, write=SetNameOfDays};
	__property TNameOfMonths* NameOfMonths = {read=FNameOfMonths, write=SetNameOfMonths};
	__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 bool ShowSelection = {read=FShowSelection, write=SetShowSelection, nodefault};
	__property bool ShowToday = {read=FShowToday, write=SetShowToday, nodefault};
	__property bool ShowWeeks = {read=FShowWeeks, write=SetShowWeeks, nodefault};
	__property bool ShowMonthSelector = {read=FShowMonthSelector, write=SetShowMonthSelector, default=1};
	__property bool ShowYearSelector = {read=FShowYearSelector, write=SetShowYearSelector, default=1};
	__property bool EventHints = {read=FEventHints, write=SetEventHints, nodefault};
	__property Graphics::TColor CaptionColor = {read=FCaptionColor, write=SetCaptionColor, default=536870911};
	__property Graphics::TColor CaptionTextColor = {read=FCaptionTextColor, write=SetCaptionTextColor, default=536870911};
	__property TYearStartAt* YearStartAt = {read=FYearStartAt, write=FYearStartAt};
	__property TDaySelectEvent OnDaySelect = {read=FOnDaySelect, write=SetFOnDaySelect};
	__property Classes::TNotifyEvent OnMonthSelect = {read=FOnMonthSelect, write=SetFOnMonthSelect};
	__property TGetDateEvent OnGetDateHint = {read=FOnGetDateEvent, write=SetFOnGetDateEvent};
	__property TGetDateEventHint OnGetDateHintString = {read=FOnGetDateEventHint, write=SetFOnGetDateEventHint};
	__property TDateChangeEvent OnMonthChange = {read=FOnMonthChange, write=SetFOnMonthChange};
	__property TDateChangeEvent OnYearChange = {read=FOnYearChange, write=SetFOnYearChange};
	__property TDateChangeEvent OnDayChange = {read=FOnDayChange, write=SetFOnDayChange};
	__property TDateChangeEvent OnDateChange = {read=FOnDateChange, write=SetFOnDateChange};
	__property TCancelledChangeEvent OnCancelledChange = {read=FOnCancelledChange, write=SetFOnCancelledChange};
	__property TCellDrawEvent OnCellDraw = {read=FOnCellDraw, write=FOnCellDraw};
	__property Classes::TNotifyEvent OnWeekSelect = {read=FOnWeekSelect, write=SetFOnWeekSelect};
	__property Classes::TNotifyEvent OnAllDaySelect = {read=FOnAllDaySelect, write=SetFOnAllDaySelect};
	__property OnDblClick ;
	__property OnKeyDown  = {read=FOnKeyDown, write=SetFOnKeyDown};
	__property OnKeyPress  = {read=FOnKeyPress, write=SetFOnKeyPress};
	__property OnKeyUp  = {read=FOnKeyUp, write=SetFOnKeyUp};
	__property OnMouseMove  = {read=FOnMouseMove, write=SetFOnMouseMove};
	__property OnMouseDown  = {read=FOnMouseDown, write=SetFOnMouseDown};
	__property OnMouseUp  = {read=FOnMouseUp, write=SetFOnMouseUp};
	__property OnDragDrop  = {read=FOnDragDrop, write=SetFOnDragDrop};
	__property OnDragOver  = {read=FOnDragOver, write=SetFOnDragOver};
	__property OnEndDrag  = {read=FOnEndDrag, write=SetFOnEndDrag};
	__property OnStartDrag  = {read=FOnStartDrag, write=SetFOnStartDrag};
	__property AnsiString Version = {read=GetVersion, write=SetVersion};
	__property Visible  = {default=1};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TPlannerCalendarGroup(HWND ParentWindow) : TCustomCalendarPanel(ParentWindow) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE Word adaysinmonth[13];
extern PACKAGE SmallString<5>  monames[12];
#define selstr "Select month"
static const Shortint labelx = 0x1e;
static const Shortint labelw = 0x41;
static const Shortint CW = 0x10;
static const Shortint MAJ_VER = 0x1;
static const Shortint MIN_VER = 0x7;
static const Shortint REL_VER = 0x1;
static const Shortint BLD_VER = 0x3;

}	/* namespace Plannercal */
using namespace Plannercal;
#pragma pack(pop)
#pragma option pop

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