plannermonthview.hpp

TMS component pack v4.2 for delphi

	/* TPlannerItems.Create */ inline __fastcall TPlannerMonthViewItems(Planner::TCustomPlanner* AOwner) : Planner::TPlannerItems(AOwner) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TCollection.Destroy */ inline __fastcall virtual ~TPlannerMonthViewItems(void) { }
	#pragma option pop
	
};


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

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

typedef void __fastcall (__closure *TDayCellPaintEvent)(System::TObject* Sender, System::TDateTime Date, AnsiString &Caption, Graphics::TBrush* CaptionBrush, Graphics::TFont* AFont, Graphics::TColor &BKColor, Graphics::TColor &BKColorTo);

typedef void __fastcall (__closure *TDayDrawEvent)(System::TObject* Sender, System::TDateTime Date, Graphics::TCanvas* Canvas, const Types::TRect &ARect, bool Selected);

class DELPHICLASS TPlannerMonthViewPrintOptions;
class PASCALIMPLEMENTATION TPlannerMonthViewPrintOptions : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	int FFooterSize;
	int FLeftMargin;
	int FRightMargin;
	int FHeaderSize;
	Graphics::TFont* FHeaderFont;
	Graphics::TFont* FFooterFont;
	Printers::TPrinterOrientation FOrientation;
	Classes::TStrings* FFooter;
	Classes::TStrings* FHeader;
	Classes::TAlignment FHeaderAlignment;
	Classes::TAlignment FFooterAlignment;
	AnsiString FJobname;
	void __fastcall SetFooter(const Classes::TStrings* Value);
	void __fastcall SetFooterFont(const Graphics::TFont* Value);
	void __fastcall SetHeader(const Classes::TStrings* Value);
	void __fastcall SetHeaderFont(const Graphics::TFont* Value);
	
public:
	__fastcall TPlannerMonthViewPrintOptions(void);
	__fastcall virtual ~TPlannerMonthViewPrintOptions(void);
	
__published:
	__property Classes::TStrings* Footer = {read=FFooter, write=SetFooter};
	__property Classes::TAlignment FooterAlignment = {read=FFooterAlignment, write=FFooterAlignment, default=0};
	__property Graphics::TFont* FooterFont = {read=FFooterFont, write=SetFooterFont};
	__property int FooterSize = {read=FFooterSize, write=FFooterSize, default=0};
	__property Classes::TStrings* Header = {read=FHeader, write=SetHeader};
	__property Classes::TAlignment HeaderAlignment = {read=FHeaderAlignment, write=FHeaderAlignment, default=0};
	__property Graphics::TFont* HeaderFont = {read=FHeaderFont, write=SetHeaderFont};
	__property int HeaderSize = {read=FHeaderSize, write=FHeaderSize, default=0};
	__property AnsiString JobName = {read=FJobname, write=FJobname};
	__property int LeftMargin = {read=FLeftMargin, write=FLeftMargin, default=0};
	__property Printers::TPrinterOrientation Orientation = {read=FOrientation, write=FOrientation, default=0};
	__property int RightMargin = {read=FRightMargin, write=FRightMargin, default=0};
};


class DELPHICLASS TItemScroller;
class PASCALIMPLEMENTATION TPlannerMonthView : public TCustomMonthViewPanel 
{
	typedef TCustomMonthViewPanel inherited;
	
private:
	double FHTMLFactor;
	Planner::TPlanner* FPlanner;
	TSelDateItems* DateCol;
	int xoffset;
	int yoffset;
	System::TDateTime seldate;
	System::TDateTime thedate;
	System::TDateTime clkdate;
	System::TDateTime movdate;
	System::TDateTime initdate;
	bool mousesel;
	bool showhintbusy;
	#pragma pack(push,1)
	Types::TPoint fLastHintPos;
	#pragma pack(pop)
	Word dx;
	Word dy;
	Word lblx1;
	Word lblx2;
	Word lblx3;
	Graphics::TFont* fFont;
	int xposin;
	int yposin;
	bool flgl;
	bool flgr;
	bool flgla;
	bool dflgl;
	bool dflgr;
	bool flgt;
	SmallString<20>  labels;
	AnsiString EventHint;
	AnsiString BrowserHint;
	bool FShowToday;
	TPlannerMonthViewLook FLook;
	bool FAllowItemEdit;
	TCalendarBrowsers* FBrowsers;
	bool FMonthSelect;
	bool FMultiSelect;
	bool FDisjunctSelect;
	TYearStartAt* FYearStartAt;
	TNameOfDays* FNameOfDays;
	TNameOfMonths* FNameOfMonths;
	TMinMaxDate* FMaxDate;
	TMinMaxDate* FMinDate;
	Graphics::TColor FTextcolor;
	Graphics::TColor FSelectColor;
	Graphics::TColor FSelectFontColor;
	Graphics::TColor FInactiveColor;
	Graphics::TColor FFocusColor;
	Graphics::TColor FInverscolor;
	Graphics::TColor FInversBkColor;
	Graphics::TColor FInversBkColorTo;
	Graphics::TColor FWeekendColor;
	Graphics::TColor FWeekendTextColor;
	Graphics::TColor FHeaderColor;
	bool FShowWeeks;
	int FStartDay;
	Word FDay;
	Word FMonth;
	Word FYear;
	Graphics::TFont* FDayFont;
	Graphics::TFont* FWeekFont;
	AnsiString FWeekName;
	TDaySelectEvent FOnDaySelect;
	TDaySelectEvent FOnDblClick;
	Classes::TNotifyEvent FOnMonthSelect;
	TGetDateEventHint FOnGetDateEventHint;
	TDateChangeEvent FOnDateChange;
	TDateChangeEvent FOnMonthChange;
	TDateChangeEvent FOnYearChange;
	TDateChangeEvent FOnDayChange;
	TDateChangeEvent FOnMonthChanged;
	TDateChangeEvent FOnYearChanged;
	Advimage::TAdvImage* FImage;
	TBackGroundPosition FBackgroundPosition;
	bool FShowDaysAfter;
	bool FShowDaysBefore;
	bool FShowSelection;
	bool FShowSelectionFull;
	bool FShowFocusRectangle;
	bool FWeekSelect;
	bool FAllDaySelect;
	TCancelledChangeEvent FOnCancelledChange;
	Classes::TNotifyEvent FOnWeekSelect;
	Classes::TNotifyEvent FOnAllDaySelect;
	int FUpdateCount;
	Graphics::TColor FCaptionColor;
	bool FReturnIsSelect;
	Graphics::TColor FLineColor;
	bool FLine3D;
	Graphics::TColor FGradientStartColor;
	Graphics::TColor FGradientEndColor;
	TGradientDirection FGradientDirection;
	Graphics::TColor FMonthGradientStartColor;
	Graphics::TColor FMonthGradientEndColor;
	TGradientDirection FMonthGradientDirection;
	TCalGlyphs* FGlyphs;
	Controls::TCursor FOldCursor;
	AnsiString FHintPrevYear;
	AnsiString FHintPrevMonth;
	AnsiString FHintNextMonth;
	AnsiString FHintNextYear;
	bool FUseTheme;
	TTodayStyle FTodayStyle;
	Graphics::TCanvas* FCanvas;
	bool FBorderXP;
	Graphics::TColor FCaptionHoverColor;
	int FWeekNameY;
	int FDayNumberHeight;
	bool FShowLines;
	Graphics::TColor FTrackColor;
	Planner::TPlannerItem* FDefaultItem;
	TPlannerMonthViewItems* FDefaultItems;
	Planner::TItemEvent FOnItemExit;
	Planner::TItemEvent FOnItemEnter;
	Planner::TItemEvent FOnItemActivate;
	Planner::TItemEvent FOnItemDeActivate;
	Planner::TItemEvent FOnItemSelect;
	Classes::TNotifyEvent FOnItemUpdate;
	Planner::TItemEvent FOnItemStartEdit;
	Planner::TItemEvent FOnItemEndEdit;
	bool FTrackOnly;
	bool FTrackBump;
	bool FTrackProportional;
	int FTrackWidth;
	Graphics::TBitmap* FURLGlyph;
	Graphics::TColor FURLColor;
	Graphics::TBitmap* FDeleteGlyph;
	Graphics::TColor FShadowColor;
	Graphics::TColor FFlashColor;
	Graphics::TColor FFlashFontColor;
	bool FDragItem;
	bool FDirectDrag;
	Planner::TPlannerItemText FOnItemText;
	int FPaintMarginLX;
	int FPaintMarginBY;
	int FPaintMarginRX;
	int FPaintMarginTY;
	Controls::TImageList* FPlannerImages;
	Picturecontainer::TPictureContainer* FContainer;
	Picturecontainer::THTMLPictureCache* FImageCache;
	Planner::TItemBalloonEvent FOnItemBalloon;
	TDateBalloonEvent FOnDateBalloon;
	int FImageOffsetX;
	int FImageOffsetY;
	Graphics::TBitmap* FAttachementGlyph;
	Graphics::TColor FColorCurrent;
	Graphics::TColor FColorCurrentItem;
	int FItemSpace;
	TPlannerMonthViewItems* FPlannerMonthItems;
	Graphics::TFont* FCaptionFont;
	int FCaptionHeight;
	bool FShowCaption;
	int FDayFontHeight;
	Planner::TPlannerMemo* FMemo;
	Planner::TPlannerMaskEdit* FMaskEdit;
	System::TDateTime FToolTipPos;
	TMonthPlannerRichEdit* FRichEdit;
	Planner::TBalloonSettings* FBalloon;
	Planner::TCustomEditEvent FOnCustomEdit;
	bool FDirectMove;
	bool FMouseDownMove;
	#pragma pack(push,1)
	Types::TPoint FMouseXY;
	#pragma pack(pop)
	System::TDateTime FStartMovedate;
	bool FOverlap;
	bool FMouseOverTrack;
	bool FMouseOnItemStart;
	bool FMouseOnItemEnd;
	bool FMouseDownResize;
	bool FAutoInsDel;
	Planner::TPlannerItem* FPopupPlannerItem;
	Planner::TPlannerItem* FHintItem;
	Planner::TItemEvent FOnItemCreated;
	Planner::TItemEvent FOnItemDeleted;
	TItemMovedEvent FOnItemMove;
	TItemAllowMovingEvent FOnItemMoving;
	TItemMovedEvent FOnItemSize;
	TItemAllowMovingEvent FOnItemSizing;
	Graphics::TColor FCaptionColorTo;
	TGradientDirection FCaptionGradientDirection;
	TDayCellPaintEvent FOnGetDayProp;
	TDayDrawEvent FOnDayDraw;
	bool FAutoChangeMonth;
	int FWeekWidth;
	Planner::TPlannerSkin* FSkin;
	Menus::TPopupMenu* FItemPopup;
	bool FShowCurrent;
	bool FShowCurrentItem;
	Planner::TItemEvent FOnItemRightClick;
	Planner::TItemEvent FOnItemLeftClick;
	Planner::TItemEvent FOnItemDblClick;
	Planner::TItemLinkEvent FOnItemURLClick;
	Planner::TItemLinkEvent FOnItemAttachementClick;
	Planner::TItemHintEvent FOnItemHint;
	Planner::TItemPopupPrepareEvent FOnItemPopupPrepare;
	Planner::TItemDragEvent FOnItemDrag;
	Planner::TPlannerPrintHFEvent FOnPrintHeader;
	Planner::TPlannerPrintHFEvent FOnPrintFooter;
	Planner::TPlannerPrintEvent FOnPrintStart;
	int FMaxItemsDisplayed;
	bool FShowScrollColumn;
	Graphics::TColor FArrowColor;
	System::TDateTime FOldSelDate;