plannermonthview.hpp

TMS component pack v4.2 for delphi

private:
	TCustomMonthViewPanel* FOwner;
	int FUpdateCount;
	Classes::TNotifyEvent FOnChange;
	bool FVisible;
	HIDESBASE TSelDateItem* __fastcall GetItem(int Index);
	HIDESBASE void __fastcall SetItem(int Index, TSelDateItem* Value);
	void __fastcall DoPaint(void);
	TSelDateItem* __fastcall GetDate(System::TDateTime dt);
	
protected:
	virtual void __fastcall Update(Classes::TCollectionItem* Item);
	
public:
	int __fastcall IsInList(int da, int mo, int ye);
	int __fastcall IsDateInList(System::TDateTime dt);
	__fastcall TSelDateItems(TCustomMonthViewPanel* AOwner);
	HIDESBASE TSelDateItem* __fastcall Add(void);
	HIDESBASE TSelDateItem* __fastcall Insert(int Index);
	__property TSelDateItem* Items[int Index] = {read=GetItem, write=SetItem/*, default*/};
	__property TSelDateItem* Dates[System::TDateTime dt] = {read=GetDate};
	void __fastcall AddRange(System::TDateTime dt1, System::TDateTime dt2);
	void __fastcall DelRange(System::TDateTime dt1, System::TDateTime dt2);
	void __fastcall StartUpdate(void);
	void __fastcall StopUpdate(void);
	void __fastcall ResetUpdate(void);
	void __fastcall RepaintDate(System::TDateTime ADate);
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
	__property bool Visible = {read=FVisible, write=FVisible, nodefault};
public:
	#pragma option push -w-inl
	/* TCollection.Destroy */ inline __fastcall virtual ~TSelDateItems(void) { }
	#pragma option pop
	
};


typedef void __fastcall (__closure *TEventPropEvent)(System::TObject* Sender, System::TDateTime dt, TEventProp* &Event);

class DELPHICLASS TMinMaxDate;
class DELPHICLASS TPlannerMonthView;
#pragma option push -b-
enum TPlannerMonthViewLook { lookFlat, look3D };
#pragma option pop

class DELPHICLASS TCalendarBrowsers;
class PASCALIMPLEMENTATION TCalendarBrowsers : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	bool FPrevMonth;
	bool FNextMonth;
	bool FPrevYear;
	bool FNextYear;
	Classes::TNotifyEvent FOnChange;
	void __fastcall SetNextMonth(const bool Value);
	void __fastcall SetNextYear(const bool Value);
	void __fastcall SetPrevMonth(const bool Value);
	void __fastcall SetPrevYear(const bool Value);
	
public:
	__fastcall TCalendarBrowsers(void);
	void __fastcall Changed(void);
	
__published:
	__property bool PrevMonth = {read=FPrevMonth, write=SetPrevMonth, default=1};
	__property bool PrevYear = {read=FPrevYear, write=SetPrevYear, default=1};
	__property bool NextMonth = {read=FNextMonth, write=SetNextMonth, default=1};
	__property bool NextYear = {read=FNextYear, write=SetNextYear, default=1};
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TCalendarBrowsers(void) { }
	#pragma option pop
	
};


class DELPHICLASS TYearStartAt;
class PASCALIMPLEMENTATION TYearStartAt : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	TCustomMonthViewPanel* FOwner;
	int FStartDay;
	int FStartMonth;
	int FPrevYearStartDay;
	int FPrevYearStartMonth;
	int FNextYearStartDay;
	int FNextYearStartMonth;
	void __fastcall SetStartDay(int d);
	void __fastcall SetStartMonth(int m);
	void __fastcall SetPrevYearStartDay(int d);
	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);
	
public:
	__fastcall TYearStartAt(TCustomMonthViewPanel* AOwner);
	__fastcall virtual ~TYearStartAt(void);
	
__published:
	__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};
};


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, nodefault};
	__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 DELPHICLASS TPlannerMonthViewItems;
class PASCALIMPLEMENTATION TPlannerMonthViewItems : public Planner::TPlannerItems 
{
	typedef Planner::TPlannerItems inherited;
	
private:
	TPlannerMonthView* FPlannerMonthView;
	
protected:
	__property TPlannerMonthView* PlannerMonthView = {read=FPlannerMonthView, write=FPlannerMonthView};
	
public:
	virtual TMetaClass* __fastcall GetItemClass(void);
	virtual void __fastcall SetConflicts(void);
	Planner::TPlannerItem* __fastcall FindItemAtDate(System::TDateTime ADate, int X, int Y);
	HIDESBASE void __fastcall FocusItem(Planner::TPlannerItem* APlannerItem);
	bool __fastcall HasMonthPlannerItem(System::TDateTime FromDate, System::TDateTime ToDate);
public:
	#pragma option push -w-inl