planner.hpp

TMS component pack v4.2 for delphi

	#pragma option push -w-inl
	/* TAdvHeader.Destroy */ inline __fastcall virtual ~TAdvFooter(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TAdvFooter(HWND ParentWindow) : TAdvHeader(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TAdvSpeedButton;
#pragma option push -b-
enum TButtonDirection { bdLeft, bdRight };
#pragma option pop

class PASCALIMPLEMENTATION TAdvSpeedButton : public Buttons::TSpeedButton 
{
	typedef Buttons::TSpeedButton inherited;
	
private:
	TButtonDirection FButtonDirection;
	bool FIsWinXP;
	HIDESBASE MESSAGE void __fastcall CMMouseLeave(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMMouseEnter(Messages::TMessage &Message);
	
protected:
	virtual void __fastcall Paint(void);
	
public:
	__fastcall virtual TAdvSpeedButton(Classes::TComponent* AOwner);
	
__published:
	__property TButtonDirection Direction = {read=FButtonDirection, write=FButtonDirection, nodefault};
public:
	#pragma option push -w-inl
	/* TSpeedButton.Destroy */ inline __fastcall virtual ~TAdvSpeedButton(void) { }
	#pragma option pop
	
};


class DELPHICLASS TPlannerMode;
#pragma option push -b-
enum TPlannerType { plDay, plWeek, plMonth, plDayPeriod, plHalfDayPeriod, plMultiMonth, plCustom, plTimeLine, plCustomList };
#pragma option pop

class PASCALIMPLEMENTATION TPlannerMode : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	bool FClip;
	TCustomPlanner* FOwner;
	TPlannerType FPlannerType;
	int FWeekStart;
	int FYear;
	int FMonth;
	AnsiString FDateTimeFormat;
	int FPeriodStartDay;
	int FPeriodStartMonth;
	int FPeriodStartYear;
	int FPeriodEndDay;
	int FPeriodEndMonth;
	int FPeriodEndYear;
	int FUpdateCount;
	System::TDateTime FTimeLineStart;
	int FTimeLineNVUBegin;
	int FTimeLineNVUEnd;
	bool FFullHalfDay;
	void __fastcall SetMonth(const int Value);
	void __fastcall SetPlannerType(const TPlannerType Value);
	void __fastcall SetWeekStart(const int Value);
	void __fastcall SetYear(const int Value);
	void __fastcall SetDateTimeFormat(const AnsiString Value);
	void __fastcall SetPeriodStartDay(const int Value);
	void __fastcall SetPeriodStartMonth(const int Value);
	void __fastcall SetPeriodStartYear(const int Value);
	void __fastcall SetPeriodEndDay(const int Value);
	void __fastcall SetPeriodEndMonth(const int Value);
	void __fastcall SetPeriodEndYear(const int Value);
	System::TDateTime __fastcall GetPeriodEndDate(void);
	System::TDateTime __fastcall GetPeriodStartDate(void);
	System::TDateTime __fastcall GetStartOfMonth(void);
	void __fastcall UpdatePeriod(void);
	void __fastcall SetPeriodEndDate(const System::TDateTime Value);
	void __fastcall SetPeriodStartDate(const System::TDateTime Value);
	void __fastcall SetTimeLineStart(const System::TDateTime Value);
	void __fastcall SetTimeLineNVUBegin(const int Value);
	void __fastcall SetTimeLineNVUEnd(const int Value);
	
public:
	__fastcall TPlannerMode(TCustomPlanner* AOwner);
	__fastcall virtual ~TPlannerMode(void);
	__property System::TDateTime PeriodStartDate = {read=GetPeriodStartDate, write=SetPeriodStartDate};
	__property System::TDateTime PeriodEndDate = {read=GetPeriodEndDate, write=SetPeriodEndDate};
	__property System::TDateTime StartOfMonth = {read=GetStartOfMonth};
	void __fastcall BeginUpdate(void);
	void __fastcall EndUpdate(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__property bool FullHalfDay = {read=FFullHalfDay, write=FFullHalfDay, nodefault};
	
__published:
	__property bool Clip = {read=FClip, write=FClip, default=0};
	__property AnsiString DateTimeFormat = {read=FDateTimeFormat, write=SetDateTimeFormat};
	__property int Month = {read=FMonth, write=SetMonth, nodefault};
	__property int PeriodStartDay = {read=FPeriodStartDay, write=SetPeriodStartDay, nodefault};
	__property int PeriodStartMonth = {read=FPeriodStartMonth, write=SetPeriodStartMonth, nodefault};
	__property int PeriodStartYear = {read=FPeriodStartYear, write=SetPeriodStartYear, nodefault};
	__property int PeriodEndDay = {read=FPeriodEndDay, write=SetPeriodEndDay, nodefault};
	__property int PeriodEndMonth = {read=FPeriodEndMonth, write=SetPeriodEndMonth, nodefault};
	__property int PeriodEndYear = {read=FPeriodEndYear, write=SetPeriodEndYear, nodefault};
	__property TPlannerType PlannerType = {read=FPlannerType, write=SetPlannerType, default=0};
	__property System::TDateTime TimeLineStart = {read=FTimeLineStart, write=SetTimeLineStart};
	__property int TimeLineNVUBegin = {read=FTimeLineNVUBegin, write=SetTimeLineNVUBegin, nodefault};
	__property int TimeLineNVUEnd = {read=FTimeLineNVUEnd, write=SetTimeLineNVUEnd, nodefault};
	__property int WeekStart = {read=FWeekStart, write=SetWeekStart, default=0};
	__property int Year = {read=FYear, write=SetYear, nodefault};
};


class DELPHICLASS TPlannerCaption;
#pragma option push -b-
enum TPlannerGradientDirection { gdHorizontal, gdVertical };
#pragma option pop

class PASCALIMPLEMENTATION TPlannerCaption : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	AnsiString FTitle;
	Classes::TAlignment FAlignment;
	Graphics::TColor FBackGround;
	Graphics::TColor FBackgroundTo;
	Graphics::TFont* FFont;
	TCustomPlanner* FOwner;
	int FHeight;
	bool FVisible;
	int FBackgroundSteps;
	TPlannerGradientDirection FGradientDirection;
	void __fastcall SetAlignment(const Classes::TAlignment Value);
	void __fastcall SetBackground(const Graphics::TColor Value);
	void __fastcall SetFont(const Graphics::TFont* Value);
	void __fastcall SetTitle(const AnsiString Value);
	void __fastcall SetHeigth(const int Value);
	void __fastcall FontChanged(System::TObject* Sender);
	void __fastcall SetVisible(const bool Value);
	void __fastcall SetBackgroundTo(const Graphics::TColor Value);
	void __fastcall SetBackgroundSteps(const int Value);
	void __fastcall SetGradientDirection(const TPlannerGradientDirection Value);
	
protected:
	void __fastcall UpdatePanel(void);
	
public:
	__fastcall TPlannerCaption(TCustomPlanner* AOwner);
	__fastcall virtual ~TPlannerCaption(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property AnsiString Title = {read=FTitle, write=SetTitle};
	__property Graphics::TFont* Font = {read=FFont, write=SetFont};
	__property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, default=0};
	__property Graphics::TColor Background = {read=FBackGround, write=SetBackground, default=8421504};
	__property int BackgroundSteps = {read=FBackgroundSteps, write=SetBackgroundSteps, default=128};
	__property Graphics::TColor BackgroundTo = {read=FBackgroundTo, write=SetBackgroundTo, default=16777215};
	__property TPlannerGradientDirection GradientDirection = {read=FGradientDirection, write=SetGradientDirection, default=0};
	__property int Height = {read=FHeight, write=SetHeigth, default=32};
	__property bool Visible = {read=FVisible, write=SetVisible, default=1};
};


class DELPHICLASS TPlannerSideBar;
#pragma option push -b-
enum TAMPMPos { apUnderTime, apNextToTime, apNone };
#pragma option pop

class PASCALIMPLEMENTATION TPlannerSideBar : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Classes::TAlignment FAlignment;
	Graphics::TColor FBackGround;
	Graphics::TColor FBackGroundTo;
	Graphics::TFont* FFont;
	TCustomPlanner* FOwner;
	bool FVisible;
	int FWidth;
	int FColOffset;
	int FRowOffset;
	TSideBarPosition FPosition;
	bool FShowInPositionGap;
	bool FShowOccupied;
	bool FFlat;
	Graphics::TColor FOccupied;
	Graphics::TColor FOccupiedTo;
	Graphics::TColor FOccupiedFontColor;
	AnsiString FDateTimeFormat;
	bool FBorder;
	bool FRotateOnTop;
	bool FShowDayName;
	Graphics::TColor FSeparatorLineColor;
	TAMPMPos FAMPMPos;
	Graphics::TColor FActiveColor;
	Graphics::TColor FActiveColorTo;
	Graphics::TColor FLineColor;
	bool FTimeIndicator;
	Graphics::TColor FTimeIndicatorColor;
	double FHourFontRatio;
	bool FShowOtherTimeZone;
	int FTimeZoneOffset;
	void __fastcall SetAlignment(const Classes::TAlignment Value);
	void __fastcall SetBackground(const Graphics::TColor Value);
	void __fastcall SetBackgroundTo(const Graphics::TColor Value);
	void __fastcall SetFont(const Graphics::TFont* Value);
	void __fastcall FontChanged(System::TObject* Sender);
	void __fastcall SetVisible(const bool Value);
	void __fastcall SetWidth(const int Value);
	void __fastcall SetPosition(const TSideBarPosition Value);
	TSideBarOrientation __fastcall GetOrientation(void);
	void __fastcall SetShowInPositionGap(const bool Value);
	void __fastcall SetShowOccupied(const bool Value);
	void __fastcall SetFlat(const bool Value);
	void __fastcall SetOccupied(const Graphics::TColor Value);
	void __fastcall SetOccupiedTo(const Graphics::TColor Value);
	void __fastcall SetOccupiedFontColor(const Graphics::TColor Value);
	void __fastcall SetDateTimeFormat(const AnsiString Value);
	void __fastcall SetBorder(const bool Value);
	void __fastcall SetRotateOnTop(const bool Value);
	void __fastcall SetShowDayName(const bool Value);
	void __fastcall SetSeparatorLineColor(const Graphics::TColor Value);
	void __fastcall SetAMPMPos(const TAMPMPos Value);
	void __fastcall SetActiveColor(const Graphics::TColor Value);
	void __fastcall SetActiveColorTo(const Graphics::TColor Value);
	void __fastcall SetLineColor(const Graphics::TColor Value);
	void __fastcall SetTimeIndicator(const bool Value);
	void __fastcall SetTimeIndicatorColor(const Graphics::TColor Value);
	void __fastcall SetHourFontRatio(const double Value);
	void __fastcall SetShowOtherTimeZone(const bool Value);
	void __fastcall SetTimeZoneOffset(const int Value);
	
public:
	__fastcall TPlannerSideBar(TCustomPlanner* AOwner);
	__fastcall virtual ~TPlannerSideBar(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__property TSideBarOrientation Orientation = {read=GetOrientation, nodefault};
	
protected:
	void __fastcall UpdateGrid(void);
	
__published:
	__property Graphics::TColor ActiveColor = {read=FActiveColor, write=SetActiveColor, default=536870911};
	__property Graphics::TColor ActiveColorTo = {read=FActiveColorTo, write=SetActiveColorTo, default=536870911};
	__property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, default=0};
	__property TAMPMPos AMPMPos = {read=FAMPMPos, write=SetAMPMPos, default=0};
	__property Graphics::TColor Background = {read=FBackGround, write=SetBackground, default=-16777201};
	__property Graphics::TColor BackgroundTo = {read=FBackGroundTo, write=SetBackgroundTo, default=16777215};
	__property bool Border = {read=FBorder, write=SetBorder, default=1};
	__property AnsiString DateTimeFormat = {read=FDateTimeFormat, write=SetDateTimeFormat};
	__property bool Flat = {read=FFlat, write=SetFlat, default=1};
	__property Graphics::TFont* Font = {read=FFont, write=SetFont};
	__property double HourFontRatio = {read=FHourFontRatio, write=SetHourFontRatio};
	__property Graphics::TColor LineColor = {read=FLineColor, write=SetLineColor, default=8421504};
	__property Graphics::TColor Occupied = {read=FOccupied, write=SetOccupied, default=16711680};
	__property Graphics::TColor OccupiedTo = {read=FOccupiedTo, write=SetOccupiedTo, default=536870911};
	__property Graphics::TColor OccupiedFontColor = {read=FOccupiedFontColor, write=SetOccupiedFontColor, default=16777215};
	__property TSideBarPosition Position = {read=FPosition, write=SetPosition, default=0};
	__property bool RotateOnTop = {read=FRotateOnTop, write=SetRotateOnTop, default=1};
	__property Graphics::TColor SeparatorLineColor = {read=FSeparatorLineColor, write=SetSeparatorLineColor, default=8421504};
	__property bool ShowInPositionGap = {read=FShowInPositionGap, write=SetShowInPositionGap, default=0};
	__property bool ShowOccupied = {read=FShowOccupied, write=SetShowOccupied, default=0};
	__property bool ShowDayName = {read=FShowDayName, write=SetShowDayName, default=1};
	__property bool ShowOtherTimeZone = {read=FShowOtherTimeZone, write=SetShowOtherTimeZone, default=0};
	__property bool TimeIndicator = {read=FTimeIndicator, write=SetTimeIndicator, default=0};
	__property Graphics::TColor TimeIndicatorColor = {read=FTimeIndicatorColor, write=SetTimeIndicatorColor, default=255};
	__property int TimeZoneMinDelta = {read=FTimeZoneOffset, write=SetTimeZoneOffset, default=0};
	__property bool Visible = {read=FVisible, write=SetVisible, default=1};
	__property int Width = {read=FWidth, write=SetWidth, default=40};
};


class DELPHICLASS TPlannerDisplay;
class PASCALIMPLEMENTATION TPlannerDisplay : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private: