dbplanner.hpp

TMS component pack v4.2 for delphi

	virtual void __fastcall ReadDBItems(AnsiString UpdateKey);
	virtual void __fastcall WriteDBItem(void);
	virtual void __fastcall ReadDBItem(void);
	virtual void __fastcall AddDBItem(void);
	virtual void __fastcall GotoDBItem(void);
	virtual void __fastcall DeleteDBItem(Planner::TPlanner* APlanner);
	virtual void __fastcall ItemChanged(AnsiString DBKey);
	virtual void __fastcall Next(void);
	virtual void __fastcall Prev(void);
	
__published:
	__property bool AutoHeaderUpdate = {read=FAutoHeaderUpdate, write=FAutoHeaderUpdate, default=0};
	__property int StartMonth = {read=FStartMonth, write=SetStartMonth, nodefault};
	__property int Year = {read=FYear, write=SetYear, nodefault};
	__property int NumberOfMonths = {read=FNumberOfMonths, write=SetNumberOfMonths, nodefault};
	__property RecurrencyField ;
	__property MinTimeField ;
	__property MaxTimeField ;
public:
	#pragma option push -w-inl
	/* TDBItemSource.Destroy */ inline __fastcall virtual ~TDBMultiMonthSource(void) { }
	#pragma option pop
	
};


class DELPHICLASS TDBTimeLineSource;
class PASCALIMPLEMENTATION TDBTimeLineSource : public TDBItemSource 
{
	typedef TDBItemSource inherited;
	
private:
	System::TDateTime FStartDate;
	System::TDateTime FEndDate;
	bool FAutoHeaderUpdate;
	int FNumberOfResources;
	TResourceNameEvent FOnGetResourceName;
	void __fastcall SetEndDate(const System::TDateTime Value);
	void __fastcall SetStartDate(const System::TDateTime Value);
	void __fastcall SetNumberOfResources(const int Value);
	void __fastcall ConfigurePlanner(void);
	
protected:
	virtual void __fastcall ResourceUpdate(void);
	
public:
	__fastcall virtual TDBTimeLineSource(Classes::TComponent* AOwner);
	virtual void __fastcall SynchDBItems(void);
	virtual void __fastcall ReadDBItems(AnsiString UpdateKey);
	virtual void __fastcall WriteDBItem(void);
	virtual void __fastcall ReadDBItem(void);
	virtual void __fastcall AddDBItem(void);
	virtual void __fastcall GotoDBItem(void);
	virtual void __fastcall DeleteDBItem(Planner::TPlanner* APlanner);
	virtual void __fastcall ItemChanged(AnsiString DBKey);
	virtual void __fastcall Next(void);
	virtual void __fastcall Prev(void);
	virtual void __fastcall PlannerChanged(void);
	void __fastcall UpdatePlanner(void);
	virtual int __fastcall PosToRes(int Pos);
	
__published:
	__property bool AutoHeaderUpdate = {read=FAutoHeaderUpdate, write=FAutoHeaderUpdate, default=0};
	__property int NumberOfResources = {read=FNumberOfResources, write=SetNumberOfResources, default=3};
	__property System::TDateTime StartDate = {read=FStartDate, write=SetStartDate};
	__property System::TDateTime EndDate = {read=FEndDate, write=SetEndDate};
	__property RecurrencyField ;
	__property MinTimeField ;
	__property MaxTimeField ;
	__property TResourceNameEvent OnGetResourceName = {read=FOnGetResourceName, write=FOnGetResourceName};
public:
	#pragma option push -w-inl
	/* TDBItemSource.Destroy */ inline __fastcall virtual ~TDBTimeLineSource(void) { }
	#pragma option pop
	
};


class DELPHICLASS TDateItem;
class PASCALIMPLEMENTATION TDateItem : public Classes::TCollectionItem 
{
	typedef Classes::TCollectionItem inherited;
	
private:
	System::TDateTime FDate;
	
__published:
	__property System::TDateTime Date = {read=FDate, write=FDate};
public:
	#pragma option push -w-inl
	/* TCollectionItem.Create */ inline __fastcall virtual TDateItem(Classes::TCollection* Collection) : Classes::TCollectionItem(Collection) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCollectionItem.Destroy */ inline __fastcall virtual ~TDateItem(void) { }
	#pragma option pop
	
};


class DELPHICLASS TDateCollection;
class PASCALIMPLEMENTATION TDateCollection : public Classes::TCollection 
{
	typedef Classes::TCollection inherited;
	
public:
	TDateItem* operator[](int Index) { return Items[Index]; }
	
private:
	HIDESBASE TDateItem* __fastcall GetItem(int Index);
	HIDESBASE void __fastcall SetItem(int Index, const TDateItem* Value);
	
public:
	HIDESBASE TDateItem* __fastcall Add(void);
	HIDESBASE TDateItem* __fastcall Insert(int index);
	__property TDateItem* Items[int Index] = {read=GetItem, write=SetItem/*, default*/};
	__fastcall TDateCollection(void);
	bool __fastcall HasDate(System::TDateTime ADate);
	int __fastcall DatePos(System::TDateTime ADate);
	System::TDateTime __fastcall PosDate(int Pos);
public:
	#pragma option push -w-inl
	/* TCollection.Destroy */ inline __fastcall virtual ~TDateCollection(void) { }
	#pragma option pop
	
};


class DELPHICLASS TDBDisjunctDaySource;
class PASCALIMPLEMENTATION TDBDisjunctDaySource : public TDBItemSource 
{
	typedef TDBItemSource inherited;
	
private:
	TDateCollection* FDates;
	bool FAutoHeaderUpdate;
	AnsiString FDateFormat;
	void __fastcall ConfigurePlanner(void);
	void __fastcall SetDates(const TDateCollection* Value);
	
public:
	__fastcall virtual TDBDisjunctDaySource(Classes::TComponent* AOwner);
	__fastcall virtual ~TDBDisjunctDaySource(void);
	virtual void __fastcall SynchDBItems(void);
	virtual void __fastcall ReadDBItems(AnsiString UpdateKey);
	virtual void __fastcall WriteDBItem(void);
	virtual void __fastcall ReadDBItem(void);
	virtual void __fastcall AddDBItem(void);
	virtual void __fastcall GotoDBItem(void);
	virtual void __fastcall DeleteDBItem(Planner::TPlanner* APlanner);
	virtual void __fastcall ItemChanged(AnsiString DBKey);
	virtual void __fastcall PlannerChanged(void);
	virtual void __fastcall MapItemTimeOnPlanner(Planner::TPlannerItem* APlannerItem);
	virtual System::TDateTime __fastcall PosToDay(int Pos);
	
__published:
	__property bool AutoHeaderUpdate = {read=FAutoHeaderUpdate, write=FAutoHeaderUpdate, default=0};
	__property AnsiString DateFormat = {read=FDateFormat, write=FDateFormat};
	__property TDateCollection* Dates = {read=FDates, write=SetDates};
	__property RecurrencyField ;
	__property MinTimeField ;
	__property MaxTimeField ;
};


class DELPHICLASS TDBActiveDaySource;
class PASCALIMPLEMENTATION TDBActiveDaySource : public TDBItemSource 
{
	typedef TDBItemSource inherited;
	
private:
	TDBDayMode FMode;
	System::TDateTime FDay;
	bool FAutoHeaderUpdate;
	AnsiString FDateFormat;
	int FNumberOfDays;
	int FNumberOfResources;
	TResourceNameEvent FOnGetResourceName;
	void __fastcall SetDay(const System::TDateTime Value);
	void __fastcall SetMode(const TDBDayMode Value);
	void __fastcall SetNumberOfDays(const int Value);
	void __fastcall SetNumberOfResources(const int Value);
	void __fastcall ConfigurePlanner(int &Span);
	int __fastcall CalcItemPos(int DatePos, int ResourcePos);
	int __fastcall DaysToSpan(int Days);
	System::TDateTime __fastcall DayInSpan(int ADay);
	int __fastcall IDayToPos(System::TDateTime ADate);
	System::TDateTime __fastcall IPosToDay(int ADay);
	
public:
	__fastcall virtual TDBActiveDaySource(Classes::TComponent* AOwner);
	virtual void __fastcall SynchDBItems(void);
	virtual void __fastcall ReadDBItems(AnsiString UpdateKey);
	virtual void __fastcall WriteDBItem(void);
	virtual void __fastcall ReadDBItem(void);
	virtual void __fastcall AddDBItem(void);
	virtual void __fastcall GotoDBItem(void);
	virtual void __fastcall DeleteDBItem(Planner::TPlanner* APlanner);
	virtual void __fastcall ItemChanged(AnsiString DBKey);
	virtual void __fastcall Next(void);
	virtual void __fastcall Prev(void);
	virtual void __fastcall PlannerChanged(void);
	virtual System::TDateTime __fastcall PosToDay(int Pos);
	virtual int __fastcall PosToRes(int Pos);
	virtual void __fastcall MapItemTimeOnPlanner(Planner::TPlannerItem* APlannerItem);
	
__published:
	__property bool AutoHeaderUpdate = {read=FAutoHeaderUpdate, write=FAutoHeaderUpdate, default=0};
	__property AnsiString DateFormat = {read=FDateFormat, write=FDateFormat};
	__property System::TDateTime Day = {read=FDay, write=SetDay};
	__property TDBDayMode Mode = {read=FMode, write=SetMode, nodefault};
	__property int NumberOfDays = {read=FNumberOfDays, write=SetNumberOfDays, default=7};
	__property int NumberOfResources = {read=FNumberOfResources, write=SetNumberOfResources, default=1};
	__property RecurrencyField ;
	__property MinTimeField ;
	__property MaxTimeField ;
	__property TResourceNameEvent OnGetResourceName = {read=FOnGetResourceName, write=FOnGetResourceName};
public:
	#pragma option push -w-inl
	/* TDBItemSource.Destroy */ inline __fastcall virtual ~TDBActiveDaySource(void) { }
	#pragma option pop
	
};


class DELPHICLASS TDBPlanner;
class PASCALIMPLEMENTATION TDBPlanner : public Planner::TPlanner 
{
	typedef Planner::TPlanner inherited;
	
private:
	TItemSource* FItemSource;
	void __fastcall SetItemSource(const TItemSource* Value);
	
protected:
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation AOperation);
	virtual void __fastcall NextClick(System::TObject* Sender);
	virtual void __fastcall PrevClick(System::TObject* Sender);
	virtual void __fastcall ItemMoved(Planner::TPlannerItem* APlannerItem, int FromBegin, int FromEnd, int FromPos, int ToBegin, int ToEnd, int ToPos);
	virtual void __fastcall ItemSized(Planner::TPlannerItem* APlannerItem, int FromBegin, int FromEnd, int ToBegin, int ToEnd);
	virtual void __fastcall ItemEdited(Planner::TPlannerItem* Item);
	virtual void __fastcall ItemSelected(Planner::TPlannerItem* Item);
	virtual void __fastcall MoveResource(int FromPos, int ToPos);
	void __fastcall LoadItems(void);
	void __fastcall ClearDBKey(AnsiString Key);
	virtual void __fastcall MapItemTimeOnPlanner(Planner::TPlannerItem* APlannerItem);
	virtual int __fastcall GetVersionNr(void);
	virtual AnsiString __fastcall GetVersionString();
	
public:
	__fastcall virtual TDBPlanner(Classes::TComponent* AOwner);
	__fastcall virtual ~TDBPlanner(void);
	virtual void __fastcall Loaded(void);
	virtual void __fastcall Refresh(void);
	virtual void __fastcall FreeItem(Planner::TPlannerItem* APlannerItem);
	virtual void __fastcall UpdateItem(Planner::TPlannerItem* APlannerItem);
	virtual void __fastcall RefreshItem(Planner::TPlannerItem* APlannerItem);
	virtual Planner::TPlannerItem* __fastcall CreateItem(void);
	virtual Planner::TPlannerItem* __fastcall CreateItemAtSelection(void);
	Planner::TPlannerItem* __fastcall CreateNonDBItem(void);
	Planner::TPlannerItem* __fastcall CreateNonDBItemAtSelection(void);
	virtual System::TDateTime __fastcall PosToDay(int Pos);
	
__published:
	__property TItemSource* ItemSource = {read=FItemSource, write=SetItemSource};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TDBPlanner(HWND ParentWindow) : Planner::TPlanner(ParentWindow) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE Word CDaysInMonth[12];
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, 2006"

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

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