plannermonthview.hpp

TMS component pack v4.2 for delphi

// CodeGear C++ Builder
// Copyright (c) 1995, 2007 by CodeGear
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Plannermonthview.pas' rev: 11.00

#ifndef PlannermonthviewHPP
#define PlannermonthviewHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp>	// Pascal unit
#include <Sysinit.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit
#include <Planhtml.hpp>	// Pascal unit
#include <Planutil.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Stdctrls.hpp>	// Pascal unit
#include <Extctrls.hpp>	// Pascal unit
#include <Math.hpp>	// Pascal unit
#include <Picturecontainer.hpp>	// Pascal unit
#include <Planner.hpp>	// Pascal unit
#include <Richedit.hpp>	// Pascal unit
#include <Comctrls.hpp>	// Pascal unit
#include <Printers.hpp>	// Pascal unit
#include <Commctrl.hpp>	// Pascal unit
#include <Advstyleif.hpp>	// Pascal unit
#include <Planxpvs.hpp>	// Pascal unit
#include <Advimage.hpp>	// Pascal unit
#include <Dateutils.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Plannermonthview
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TPlannerMonthViewStyle { pmsWindowsXP, pmsOffice2000, pmsOffice2003Blue, pmsOffice2003Olive, pmsOffice2003Silver, pmsFlat, pmsAvantGarde, pmsWhidbey, pmsOffice2007Luna, pmsOffice2007Obsidian, pmsOffice2003Classic, pmsCustom, pmsOffice2007Silver };
#pragma option pop

class DELPHICLASS TMonthPlannerItem;
class PASCALIMPLEMENTATION TMonthPlannerItem : public Planner::TPlannerItem 
{
	typedef Planner::TPlannerItem inherited;
	
private:
	int FEndCell;
	int FBeginCell;
	Classes::TStringList* FPosSt;
	System::TDateTime FEndTime;
	System::TDateTime FStartTime;
	
protected:
	__property Classes::TStringList* PosSt = {read=FPosSt};
	__property int BeginCell = {read=FBeginCell, write=FBeginCell, nodefault};
	__property int EndCell = {read=FEndCell, write=FEndCell, nodefault};
	virtual void __fastcall SetItemEndTime(const System::TDateTime Value);
	virtual void __fastcall SetItemStartTime(const System::TDateTime Value);
	virtual System::TDateTime __fastcall GetItemEndTime(void);
	virtual System::TDateTime __fastcall GetItemStartTime(void);
	virtual AnsiString __fastcall GetItemEndTimeStr();
	virtual AnsiString __fastcall GetItemStartTimeStr();
	virtual AnsiString __fastcall GetItemSpanTimeStr();
	virtual void __fastcall Repaint(void);
	
public:
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__fastcall virtual TMonthPlannerItem(Classes::TCollection* Collection);
	__fastcall virtual ~TMonthPlannerItem(void);
	virtual void __fastcall Update(void);
	virtual AnsiString __fastcall GetCaptionTimeString();
	void __fastcall MoveMonthPlannerItem(System::TDateTime NewStartTime, System::TDateTime NewEndTime, bool Done, bool &Allow);
};


class DELPHICLASS TMonthPlannerRichEdit;
class PASCALIMPLEMENTATION TMonthPlannerRichEdit : public Comctrls::TRichEdit 
{
	typedef Comctrls::TRichEdit inherited;
	
private:
	TMonthPlannerItem* FPlannerItem;
	
protected:
	DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
	DYNAMIC void __fastcall DoEnter(void);
	DYNAMIC void __fastcall DoExit(void);
	
__published:
	__property TMonthPlannerItem* PlannerItem = {read=FPlannerItem, write=FPlannerItem};
public:
	#pragma option push -w-inl
	/* TCustomRichEdit.Create */ inline __fastcall virtual TMonthPlannerRichEdit(Classes::TComponent* AOwner) : Comctrls::TRichEdit(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomRichEdit.Destroy */ inline __fastcall virtual ~TMonthPlannerRichEdit(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TMonthPlannerRichEdit(HWND ParentWindow) : Comctrls::TRichEdit(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TPlannerItemsEx;
class PASCALIMPLEMENTATION TPlannerItemsEx : public Planner::TPlannerItems 
{
	typedef Planner::TPlannerItems inherited;
	
public:
	virtual TMetaClass* __fastcall GetItemClass(void);
public:
	#pragma option push -w-inl
	/* TPlannerItems.Create */ inline __fastcall TPlannerItemsEx(Planner::TCustomPlanner* AOwner) : Planner::TPlannerItems(AOwner) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TCollection.Destroy */ inline __fastcall virtual ~TPlannerItemsEx(void) { }
	#pragma option pop
	
};


class DELPHICLASS TPlannerEx;
class PASCALIMPLEMENTATION TPlannerEx : public Planner::TPlanner 
{
	typedef Planner::TPlanner inherited;
	
public:
	virtual Planner::TPlannerItems* __fastcall CreateItems(void);
public:
	#pragma option push -w-inl
	/* TCustomPlanner.Create */ inline __fastcall virtual TPlannerEx(Classes::TComponent* AOwner) : Planner::TPlanner(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomPlanner.Destroy */ inline __fastcall virtual ~TPlannerEx(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TPlannerEx(HWND ParentWindow) : Planner::TPlanner(ParentWindow) { }
	#pragma option pop
	
};


typedef AnsiString TDayStr;

typedef AnsiString TMonthStr;

typedef AnsiString TDayArray[14];

typedef AnsiString TMonthArray[12];

#pragma option push -b-
enum TBackGroundPosition { bpTopLeft, bpTopRight, bpBottomLeft, bpBottomRight, bpTiled, bpStretched, bpCenter };
#pragma option pop

typedef void __fastcall (__closure *TDaySelectEvent)(System::TObject* Sender, System::TDateTime SelDate);

typedef void __fastcall (__closure *TDateChangeEvent)(System::TObject* Sender, System::TDateTime origDate, System::TDateTime newDate);

typedef void __fastcall (__closure *TCancelledChangeEvent)(System::TObject* Sender, System::TDateTime CancelledDate);

typedef void __fastcall (__closure *TGetDateEvent)(System::TObject* Sender, System::TDateTime dt, bool &isEvent);

typedef void __fastcall (__closure *TDateBalloonEvent)(System::TObject* Sender, System::TDateTime ADate, AnsiString &ATitle, AnsiString &AText, int &AIcon);

typedef void __fastcall (__closure *TGetDateEventHint)(System::TObject* Sender, System::TDateTime dt, bool &isEvent, AnsiString &EventHint);

#pragma option push -b-
enum TEventShape { evsRectangle, evsCircle, evsSquare, evsTriangle, evsNone };
#pragma option pop

#pragma option push -b-
enum TGradientDirection { gdHorizontal, gdVertical };
#pragma option pop

#pragma option push -b-
enum TTodayStyle { tsSunken, tsRaised, tsFlat, tsCaption };
#pragma option pop

class DELPHICLASS TSelDateItem;
class PASCALIMPLEMENTATION TSelDateItem : public Classes::TCollectionItem 
{
	typedef Classes::TCollectionItem inherited;
	
private:
	System::TDateTime FDate;
	void __fastcall SetDate(const System::TDateTime Value);
	HIDESBASE void __fastcall Changed(void);
	
public:
	__fastcall virtual ~TSelDateItem(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__property System::TDateTime Date = {read=FDate, write=SetDate};
public:
	#pragma option push -w-inl
	/* TCollectionItem.Create */ inline __fastcall virtual TSelDateItem(Classes::TCollection* Collection) : Classes::TCollectionItem(Collection) { }
	#pragma option pop
	
};


class DELPHICLASS TEventProp;
class PASCALIMPLEMENTATION TEventProp : public TSelDateItem 
{
	typedef TSelDateItem inherited;
	
public:
	#pragma option push -w-inl
	/* TSelDateItem.Destroy */ inline __fastcall virtual ~TEventProp(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TCollectionItem.Create */ inline __fastcall virtual TEventProp(Classes::TCollection* Collection) : TSelDateItem(Collection) { }
	#pragma option pop
	
};


class DELPHICLASS TSelDateItems;
class DELPHICLASS TCustomMonthViewPanel;
class PASCALIMPLEMENTATION TCustomMonthViewPanel : public Extctrls::TCustomPanel 
{
	typedef Extctrls::TCustomPanel inherited;
	
protected:
	virtual void __fastcall UpdateYearStart(void);
	virtual void __fastcall DoPaint(void);
	virtual void __fastcall RepaintDate(System::TDateTime dt);
	
__published:
	__property Visible  = {default=1};
public:
	#pragma option push -w-inl
	/* TCustomPanel.Create */ inline __fastcall virtual TCustomMonthViewPanel(Classes::TComponent* AOwner) : Extctrls::TCustomPanel(AOwner) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TCustomControl.Destroy */ inline __fastcall virtual ~TCustomMonthViewPanel(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TCustomMonthViewPanel(HWND ParentWindow) : Extctrls::TCustomPanel(ParentWindow) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TSelDateItems : public Classes::TCollection 
{
	typedef Classes::TCollection inherited;
	
public:
	TSelDateItem* operator[](int Index) { return Items[Index]; }