plannermonthview.hpp

TMS component pack v4.2 for delphi

	__property Graphics::TColor CaptionColor = {read=FCaptionColor, write=SetCaptionColor, default=536870911};
	__property Graphics::TColor CaptionColorTo = {read=FCaptionColorTo, write=SetCaptionColorTo, default=536870911};
	__property TGradientDirection CaptionGradientDirection = {read=FCaptionGradientDirection, write=SetCaptionGradientDirection, default=0};
	__property Graphics::TColor CaptionHoverColor = {read=FCaptionHoverColor, write=FCaptionHoverColor, default=-16777203};
	__property Graphics::TFont* CaptionFont = {read=FCaptionFont, write=SetCaptionFont};
	__property int CaptionHeight = {read=GetCaptionHeight, write=SetCaptionHeight, default=13};
	__property Color  = {default=-16777201};
	__property Graphics::TColor ColorCurrent = {read=FColorCurrent, write=SetColorCurrent, default=65535};
	__property Graphics::TColor ColorCurrentItem = {read=FColorCurrentItem, write=SetColorCurrentItem, default=65280};
	__property Controls::TCursor Cursor = {read=GetCursorEx, write=SetCursorEx, nodefault};
	__property AnsiString DateFormat = {read=FDateFormat, write=FDateFormat};
	__property Classes::TAlignment DayAlignment = {read=FDayAlignment, write=SetDayAlignment, default=1};
	__property Classes::TAlignment DayCaptionAlignment = {read=FDayCaptionAlignment, write=SetDayCaptionAlignment, default=0};
	__property Graphics::TFont* DayFont = {read=FDayFont, write=SetDayFont};
	__property Planner::TPlannerItem* DefaultItem = {read=FDefaultItem, write=SetDefaultItem};
	__property Graphics::TBitmap* DeleteGlyph = {read=FDeleteGlyph, write=SetDeleteGlyph};
	__property bool DirectMove = {read=FDirectMove, write=FDirectMove, default=0};
	__property bool DisjunctSelect = {read=FDisjunctSelect, write=FDisjunctSelect, default=0};
	__property bool DragItem = {read=FDragItem, write=FDragItem, default=0};
	__property DragMode  = {default=0};
	__property Graphics::TColor FocusColor = {read=FFocusColor, write=SetFocusColor, default=-16777203};
	__property Graphics::TFont* Font = {read=fFont, write=SetFont};
	__property TCalGlyphs* Glyphs = {read=FGlyphs, write=SetGlyphs};
	__property Graphics::TColor GradientStartColor = {read=FGradientStartColor, write=SetGradientStartColor, default=16777215};
	__property Graphics::TColor GradientEndColor = {read=FGradientEndColor, write=SetGradientEndColor, default=-16777201};
	__property TGradientDirection GradientDirection = {read=FGradientDirection, write=SetGradientDirection, default=0};
	__property Graphics::TColor HeaderColor = {read=FHeaderColor, write=SetHeaderColor, default=536870911};
	__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 Graphics::TColor InActiveColor = {read=FInactiveColor, write=SetInactiveColor, default=8421504};
	__property Graphics::TColor InversColor = {read=FInverscolor, write=SetInversColor, default=8421376};
	__property Graphics::TColor InversBkColor = {read=FInversBkColor, write=SetInversBkColor, default=536870911};
	__property Graphics::TColor InversBkColorTo = {read=FInversBkColorTo, write=SetInversBkColorTo, default=536870911};
	__property TPlannerMonthViewItems* Items = {read=FPlannerMonthItems, write=FPlannerMonthItems};
	__property Menus::TPopupMenu* ItemPopup = {read=FItemPopup, write=FItemPopup};
	__property int ItemSpace = {read=FItemSpace, write=SetItemSpace, default=2};
	__property Graphics::TColor LineColor = {read=FLineColor, write=SetLineColor, default=8421504};
	__property bool Line3D = {read=FLine3D, write=SetLine3D, default=1};
	__property TPlannerMonthViewLook Look = {read=FLook, write=SetLook, default=0};
	__property TMinMaxDate* MaxDate = {read=FMaxDate, write=FMaxDate};
	__property TMinMaxDate* MinDate = {read=FMinDate, write=FMinDate};
	__property int MaxItemsDisplayed = {read=FMaxItemsDisplayed, write=SetMaxItemsDisplayed, default=3};
	__property Graphics::TColor MonthGradientStartColor = {read=FMonthGradientStartColor, write=SetMonthGradientStartColor, default=536870911};
	__property Graphics::TColor MonthGradientEndColor = {read=FMonthGradientEndColor, write=SetMonthGradientEndColor, default=536870911};
	__property TGradientDirection MonthGradientDirection = {read=FMonthGradientDirection, write=SetMonthGradientDirection, default=0};
	__property bool MultiSelect = {read=FMultiSelect, write=FMultiSelect, default=0};
	__property TNameOfDays* NameOfDays = {read=FNameOfDays, write=SetNameofDays};
	__property TNameOfMonths* NameOfMonths = {read=FNameOfMonths, write=SetNameofMonths};
	__property Picturecontainer::TPictureContainer* PictureContainer = {read=FContainer, write=FContainer};
	__property Controls::TImageList* PlannerImages = {read=FPlannerImages, write=SetImages};
	__property PopupMenu ;
	__property TPlannerMonthViewPrintOptions* PrintOptions = {read=FPrintOptions, write=FPrintOptions};
	__property bool ReturnIsSelect = {read=FReturnIsSelect, write=FReturnIsSelect, default=0};
	__property Graphics::TColor SelectColor = {read=FSelectColor, write=SetSelectColor, default=8421376};
	__property Graphics::TColor SelectFontColor = {read=FSelectFontColor, write=SetSelectFontColor, default=16777215};
	__property Graphics::TColor ShadowColor = {read=FShadowColor, write=SetShadowColor, default=8421504};
	__property bool ShowDaysBefore = {read=FShowDaysBefore, write=SetShowDaysBefore, default=1};
	__property bool ShowDaysAfter = {read=FShowDaysAfter, write=SetShowDaysAfter, default=1};
	__property ShowHint ;
	__property Planner::TPlannerSkin* Skin = {read=FSkin, write=FSkin};
	__property bool Overlap = {read=FOverlap, write=FOverlap, default=1};
	__property ParentShowHint  = {default=1};
	__property bool ShowCaption = {read=FShowCaption, write=SetShowCaption, default=1};
	__property bool ShowCurrent = {read=FShowCurrent, write=SetShowCurrent, default=0};
	__property bool ShowCurrentItem = {read=FShowCurrentItem, write=SetShowCurrentItem, default=0};
	__property bool ShowLines = {read=FShowLines, write=SetShowLines, default=1};
	__property bool ShowScrollColumn = {read=FShowScrollColumn, write=SetShowScrollColumn, default=0};
	__property bool ShowSelection = {read=FShowSelection, write=SetShowSelection, default=1};
	__property bool ShowSelectionFull = {read=FShowSelectionFull, write=SetShowSelectionFull, default=1};
	__property bool ShowFocusRectangle = {read=FShowFocusRectangle, write=SetShowFocusRectangle, default=1};
	__property bool ShowToday = {read=FShowToday, write=SetShowToday, default=0};
	__property bool ShowWeeks = {read=FShowWeeks, write=SetShowWeeks, default=0};
	__property int StartDay = {read=FStartDay, write=SetStartDay, default=7};
	__property Graphics::TColor TextColor = {read=FTextcolor, write=SetTextColor, default=0};
	__property TabStop  = {default=0};
	__property TabOrder  = {default=-1};
	__property Graphics::TColor TodayColor = {read=FTodayColor, write=SetTodayColor, default=-16777203};
	__property Graphics::TColor TodayColorTo = {read=FTodayColorTo, write=SetTodayColorTo, default=536870911};
	__property TTodayStyle TodayStyle = {read=FTodayStyle, write=SetTodayStyle, default=0};
	__property Graphics::TColor TrackColor = {read=FTrackColor, write=SetTrackColor, default=16711680};
	__property bool TrackBump = {read=FTrackBump, write=SetTrackBump, default=0};
	__property bool TrackOnly = {read=FTrackOnly, write=SetTrackOnly, default=0};
	__property bool TrackProportional = {read=FTrackProportional, write=SetTrackProportional, default=0};
	__property int TrackWidth = {read=FTrackWidth, write=SetTrackWidth, default=4};
	__property Graphics::TColor URLColor = {read=FURLColor, write=SetURLColor, default=16711680};
	__property Graphics::TBitmap* URLGlyph = {read=FURLGlyph, write=SetURLGlyph};
	__property Graphics::TFont* WeekFont = {read=FWeekFont, write=SetWeekFont};
	__property AnsiString WeekName = {read=FWeekName, write=SetWeekName, stored=true};
	__property bool WeekSelect = {read=FWeekSelect, write=FWeekSelect, default=0};
	__property Graphics::TColor WeekendColor = {read=FWeekendColor, write=SetWeekendColor, default=536870911};
	__property Graphics::TColor WeekendTextColor = {read=FWeekendTextColor, write=SetWeekendTextColor, default=255};
	__property int WeekWidth = {read=FWeekWidth, write=SetWeekWidth, default=30};
	__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 AnsiString Version = {read=GetVersion, write=SetVersion};
	__property Visible  = {default=1};
	__property Planner::TItemEvent OnItemEnter = {read=FOnItemEnter, write=FOnItemEnter};
	__property Planner::TItemEvent OnItemExit = {read=FOnItemExit, write=FOnItemExit};
	__property Planner::TItemEvent OnItemActivate = {read=FOnItemActivate, write=FOnItemActivate};
	__property Planner::TItemEvent OnItemDeActivate = {read=FOnItemDeActivate, write=FOnItemDeActivate};
	__property Planner::TItemDragEvent OnItemDrag = {read=FOnItemDrag, write=FOnItemDrag};
	__property Planner::TItemEvent OnItemLeftClick = {read=FOnItemLeftClick, write=FOnItemLeftClick};
	__property Planner::TItemEvent OnItemRightClick = {read=FOnItemRightClick, write=FOnItemRightClick};
	__property Planner::TItemEvent OnItemDblClick = {read=FOnItemDblClick, write=FOnItemDblClick};
	__property Planner::TItemLinkEvent OnItemURLClick = {read=FOnItemURLClick, write=FOnItemURLClick};
	__property Planner::TItemLinkEvent OnItemAttachementClick = {read=FOnItemAttachementClick, write=FOnItemAttachementClick};
	__property Planner::TItemHintEvent OnItemHint = {read=FOnItemHint, write=FOnItemHint};
	__property Planner::TItemEvent OnItemSelect = {read=FOnItemSelect, write=FOnItemSelect};
	__property Classes::TNotifyEvent OnItemUpdate = {read=FOnItemUpdate, write=FOnItemUpdate};
	__property Planner::TItemEvent OnItemStartEdit = {read=FOnItemStartEdit, write=FOnItemStartEdit};
	__property Planner::TItemEvent OnItemEndEdit = {read=FOnItemEndEdit, write=FOnItemEndEdit};
	__property Planner::TPlannerItemText OnItemText = {read=FOnItemText, write=FOnItemText};
	__property Planner::TItemPopupPrepareEvent OnItemPopupPrepare = {read=FOnItemPopupPrepare, write=FOnItemPopupPrepare};
	__property Planner::TCustomEditEvent OnCustomEdit = {read=FOnCustomEdit, write=FOnCustomEdit};
	__property Planner::TItemBalloonEvent OnItemBalloon = {read=FOnItemBalloon, write=FOnItemBalloon};
	__property TDateBalloonEvent OnDateBalloon = {read=FOnDateBalloon, write=FOnDateBalloon};
	__property Planner::TItemEvent OnItemCreated = {read=FOnItemCreated, write=FOnItemCreated};
	__property Planner::TItemEvent OnItemDeleted = {read=FOnItemDeleted, write=FOnItemDeleted};
	__property TItemMovedEvent OnItemMove = {read=FOnItemMove, write=FOnItemMove};
	__property TItemAllowMovingEvent OnItemMoving = {read=FOnItemMoving, write=FOnItemMoving};
	__property TItemMovedEvent OnItemSize = {read=FOnItemSize, write=FOnItemSize};
	__property TItemAllowMovingEvent OnItemSizing = {read=FOnItemSizing, write=FOnItemSizing};
	__property TDayCellPaintEvent OnGetDayProp = {read=FOnGetDayProp, write=FOnGetDayProp};
	__property TDayDrawEvent OnDayDraw = {read=FOnDayDraw, write=FOnDayDraw};
	__property TDaySelectEvent OnDaySelect = {read=FOnDaySelect, write=FOnDaySelect};
	__property TDaySelectEvent OnDblClick = {read=FOnDblClick, write=FOnDblClick};
	__property Classes::TNotifyEvent OnMonthSelect = {read=FOnMonthSelect, write=FOnMonthSelect};
	__property TGetDateEventHint OnGetDateHintString = {read=FOnGetDateEventHint, write=FOnGetDateEventHint};
	__property TDateChangeEvent OnMonthChange = {read=FOnMonthChange, write=FOnMonthChange};
	__property TDateChangeEvent OnYearChange = {read=FOnYearChange, write=FOnYearChange};
	__property TDateChangeEvent OnMonthChanged = {read=FOnMonthChanged, write=FOnMonthChanged};
	__property TDateChangeEvent OnYearChanged = {read=FOnYearChanged, write=FOnYearChanged};
	__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 Planner::TPlannerPrintHFEvent OnPrintHeader = {read=FOnPrintHeader, write=FOnPrintHeader};
	__property Planner::TPlannerPrintHFEvent OnPrintFooter = {read=FOnPrintFooter, write=FOnPrintFooter};
	__property Planner::TPlannerPrintEvent OnPrintStart = {read=FOnPrintStart, write=FOnPrintStart};
	__property OnKeyDown ;
	__property OnKeyPress ;
	__property OnKeyUp ;
	__property OnMouseMove ;
	__property OnMouseDown ;
	__property OnMouseUp ;
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnStartDrag ;
	__property OnEndDrag ;
	__property OnEnter ;
	__property OnExit ;
	__property OnResize ;
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TPlannerMonthView(HWND ParentWindow) : TCustomMonthViewPanel(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:
	TPlannerMonthView* 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(TPlannerMonthView* 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
	
};


typedef void __fastcall (__closure *TImageChangeEvent)(System::TObject* Sender);

typedef void __fastcall (__closure *TEditDoneEvent)(System::TObject* Sender, Controls::TModalResult ModalResult);

typedef void __fastcall (__closure *TItemSizedEvent)(System::TObject* Sender, Planner::TPlannerItem* APlannerItem, System::TDateTime FromStartDate, System::TDateTime FromEndDate, System::TDateTime ToStartDate, System::TDateTime ToEndDate);

typedef void __fastcall (__closure *TItemAllowSizingEvent)(System::TObject* Sender, Planner::TPlannerItem* APlannerItem, System::TDateTime FromStartDate, System::TDateTime FromEndDate, System::TDateTime ToStartDate, System::TDateTime ToEndDate, bool &Allow);

class PASCALIMPLEMENTATION TItemScroller : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	int FMin;
	int FMax;
	int FPosition;
	bool FVisible;
	void __fastcall SetMax(const int Value);
	void __fastcall SetMin(const int Value);
	void __fastcall SetPosition(const int Value);
	void __fastcall SetVisible(const bool Value);
	
public:
	__fastcall TItemScroller(void);
	bool __fastcall CanGoForward(void);
	bool __fastcall CanGoBack(void);
	__property int Min = {read=FMin, write=SetMin, nodefault};
	__property int Max = {read=FMax, write=SetMax, nodefault};
	__property int Position = {read=FPosition, write=SetPosition, nodefault};
	__property bool Visible = {read=FVisible, write=SetVisible, nodefault};
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TItemScroller(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
static const Shortint MAJ_VER = 0x2;
static const Shortint MIN_VER = 0x5;
static const Shortint REL_VER = 0x2;
static const Shortint BLD_VER = 0x0;
#define DATE_VER "Jan, 2007"
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 CORNER_EFFECT = 0xa;
#define RtfStart "{\\"
#define HtmlEndTagStart "</"
static const Shortint EDITOFFSET = 0x4;
static const Shortint ScrollColumnSize = 0xc;

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

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