planner.hpp

TMS component pack v4.2 for delphi

	TCustomPlanner* FOwner;
	int FDisplayStart;
	int FDisplayScale;
	int FDisplayEnd;
	int FDisplayUnit;
	int FActiveEnd;
	int FActiveStart;
	Graphics::TColor FColorNonActive;
	Graphics::TColor FColorActive;
	Graphics::TColor FColorCurrent;
	Graphics::TColor FColorCurrentItem;
	int FActiveStartPrecis;
	int FActiveEndPrecis;
	int FDisplayStartPrecis;
	int FDisplayEndPrecis;
	bool FShowCurrent;
	bool FShowCurrentItem;
	bool FScaleToFit;
	int FOldScale;
	int FDisplayOffset;
	int FUpdateCount;
	bool FUpdateUnit;
	int FDisplayText;
	int FCurrentPosFrom;
	int FCurrentPosTo;
	Graphics::TColor FHourLineColor;
	void __fastcall SetDisplayStart(const int Value);
	void __fastcall SetDisplayEnd(const int Value);
	void __fastcall SetDisplayScale(const int Value);
	void __fastcall SetDisplayUnit(const int Value);
	void __fastcall SetDisplayOffset(const int Value);
	void __fastcall UpdatePlanner(void);
	void __fastcall SetActiveEnd(const int Value);
	void __fastcall SetActiveStart(const int Value);
	void __fastcall SetColorActive(const Graphics::TColor Value);
	void __fastcall SetColorNonActive(const Graphics::TColor Value);
	void __fastcall SetColorCurrent(const Graphics::TColor Value);
	void __fastcall SetShowCurrent(const bool Value);
	void __fastcall SetColorCurrentItem(const Graphics::TColor Value);
	void __fastcall SetShowCurrentItem(const bool Value);
	void __fastcall SetScaleToFit(const bool Value);
	void __fastcall SetDisplayText(const int Value);
	void __fastcall SetCurrentPosFrom(const int Value);
	void __fastcall SetCurrentPosTo(const int Value);
	void __fastcall SetHourLineColor(const Graphics::TColor Value);
	
protected:
	void __fastcall InitPrecis(void);
	void __fastcall AutoScale(void);
	
public:
	__fastcall TPlannerDisplay(TCustomPlanner* AOwner);
	__fastcall virtual ~TPlannerDisplay(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	void __fastcall BeginUpdate(void);
	void __fastcall EndUpdate(void);
	
__published:
	__property int ActiveStart = {read=FActiveStart, write=SetActiveStart, default=16};
	__property int ActiveEnd = {read=FActiveEnd, write=SetActiveEnd, default=47};
	__property int CurrentPosFrom = {read=FCurrentPosFrom, write=SetCurrentPosFrom, default=-1};
	__property int CurrentPosTo = {read=FCurrentPosTo, write=SetCurrentPosTo, default=-1};
	__property int DisplayStart = {read=FDisplayStart, write=SetDisplayStart, default=0};
	__property int DisplayEnd = {read=FDisplayEnd, write=SetDisplayEnd, default=47};
	__property int DisplayOffset = {read=FDisplayOffset, write=SetDisplayOffset, default=0};
	__property int DisplayScale = {read=FDisplayScale, write=SetDisplayScale, default=24};
	__property int DisplayUnit = {read=FDisplayUnit, write=SetDisplayUnit, default=30};
	__property int DisplayText = {read=FDisplayText, write=SetDisplayText, default=0};
	__property Graphics::TColor ColorActive = {read=FColorActive, write=SetColorActive, default=16777215};
	__property Graphics::TColor ColorNonActive = {read=FColorNonActive, write=SetColorNonActive, default=14606046};
	__property Graphics::TColor ColorCurrent = {read=FColorCurrent, write=SetColorCurrent, default=65535};
	__property Graphics::TColor ColorCurrentItem = {read=FColorCurrentItem, write=SetColorCurrentItem, default=65280};
	__property Graphics::TColor HourLineColor = {read=FHourLineColor, write=SetHourLineColor, default=8421504};
	__property bool ScaleToFit = {read=FScaleToFit, write=SetScaleToFit, default=0};
	__property bool ShowCurrent = {read=FShowCurrent, write=SetShowCurrent, default=0};
	__property bool ShowCurrentItem = {read=FShowCurrentItem, write=SetShowCurrentItem, default=0};
};


#pragma option push -b-
enum THourType { ht24hrs, ht12hrs, htAMPM0, htAMPM1, htAMPMOnce };
#pragma option pop

class DELPHICLASS TPlannerHeader;
class DELPHICLASS TPlannerStringList;
class PASCALIMPLEMENTATION TPlannerStringList : public Classes::TStringList 
{
	typedef Classes::TStringList inherited;
	
public:
	AnsiString operator[](int Index) { return Strings[Index]; }
	
private:
	AnsiString __fastcall GetItem(int Index);
	void __fastcall SetItem(int Index, const AnsiString Value);
	
public:
	__property AnsiString Strings[int Index] = {read=GetItem, write=SetItem/*, default*/};
public:
	#pragma option push -w-inl
	/* TStringList.Destroy */ inline __fastcall virtual ~TPlannerStringList(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TPlannerStringList(void) : Classes::TStringList() { }
	#pragma option pop
	
};


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

class PASCALIMPLEMENTATION TPlannerIntList : public Classes::TList 
{
	typedef Classes::TList inherited;
	
public:
	int operator[](int Index) { return Items[Index]; }
	
private:
	TImageChangeEvent FOnChange;
	TPlannerItem* FPlannerItem;
	void __fastcall SetInteger(int Index, int Value);
	int __fastcall GetInteger(int Index);
	
public:
	__fastcall TPlannerIntList(TPlannerItem* Value);
	__property int Items[int Index] = {read=GetInteger, write=SetInteger/*, default*/};
	HIDESBASE void __fastcall Add(int Value);
	HIDESBASE void __fastcall Delete(int Index);
	virtual void __fastcall Clear(void);
	
__published:
	__property TImageChangeEvent OnChange = {read=FOnChange, write=FOnChange};
public:
	#pragma option push -w-inl
	/* TList.Destroy */ inline __fastcall virtual ~TPlannerIntList(void) { }
	#pragma option pop
	
};


class DELPHICLASS TGroupCollection;
class DELPHICLASS TGroupCollectionItem;
class PASCALIMPLEMENTATION TGroupCollection : public Classes::TOwnedCollection 
{
	typedef Classes::TOwnedCollection inherited;
	
public:
	TGroupCollectionItem* operator[](int Index) { return Items[Index]; }
	
private:
	Classes::TPersistent* FOwner;
	Classes::TNotifyEvent FOnChange;
	HIDESBASE TGroupCollectionItem* __fastcall GetItem(int Index);
	HIDESBASE void __fastcall SetItem(int Index, TGroupCollectionItem* AItem);
	
protected:
	virtual void __fastcall DoChanged(void);
	
public:
	__fastcall TGroupCollection(Classes::TPersistent* AOwner, TMetaClass* AItemClass);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	HIDESBASE TGroupCollectionItem* __fastcall Add(void);
	HIDESBASE TGroupCollectionItem* __fastcall Insert(int Index);
	__property TGroupCollectionItem* Items[int Index] = {read=GetItem, write=SetItem/*, default*/};
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
public:
	#pragma option push -w-inl
	/* TCollection.Destroy */ inline __fastcall virtual ~TGroupCollection(void) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TPlannerHeader : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	TCustomPlanner* FOwner;
	TPlannerStringList* FCaptions;
	bool FVisible;
	int FHeight;
	Graphics::TFont* FFont;
	Graphics::TFont* FGroupFont;
	Graphics::TColor FColor;
	bool FFlat;
	Classes::TAlignment FAlignment;
	Planutil::TVAlignment FVAlignment;
	Controls::TImageList* FImages;
	TImagePosition FImagePosition;
	bool FReadOnly;
	int FItemHeight;
	int FTextHeight;
	bool FAllowResize;
	bool FAllowPositionResize;
	bool FAutoSize;
	Graphics::TColor FItemColor;
	TPlannerStringList* FGroupCaptions;
	Menus::TPopupMenu* FPopupMenu;
	Graphics::TColor FLineColor;
	Graphics::TColor FColorTo;
	bool FRotateOnLeft;
	bool FRotateOnTop;
	bool FResizeAll;
	bool FShowHint;
	Graphics::TColor FActiveColor;
	Graphics::TColor FActiveColorTo;
	TPlannerIntList* FGroupSpan;
	TGroupCollection* FCustomGroups;
	bool FWordWrap;
	void __fastcall SetAlignment(const Classes::TAlignment Value);
	void __fastcall SetCaptions(const TPlannerStringList* Value);
	bool __fastcall GetDragDrop(void);
	void __fastcall SetDragDrop(const bool Value);
	void __fastcall SetHeight(const int Value);
	void __fastcall SetVisible(const bool Value);
	void __fastcall SetColor(const Graphics::TColor Value);
	void __fastcall SetFont(const Graphics::TFont* Value);
	void __fastcall SetGroupFont(const Graphics::TFont* Value);
	void __fastcall FontChanged(System::TObject* Sender);
	void __fastcall GroupFontChanged(System::TObject* Sender);
	void __fastcall ItemsChanged(System::TObject* Sender);
	void __fastcall SetImages(const Controls::TImageList* Value);
	void __fastcall SetImagePosition(const TImagePosition Value);
	void __fastcall SetFlat(const bool Value);
	void __fastcall SetVAlignment(const Planutil::TVAlignment Value);
	void __fastcall SetReadOnly(const bool Value);
	void __fastcall SetItemHeight(const int Value);
	void __fastcall SetTextHeight(const int Value);
	void __fastcall SetAllowResize(const bool Value);
	void __fastcall SetAllowPositionResize(const bool Value);
	void __fastcall SetAutoSize(const bool Value);
	void __fastcall SetItemColor(const Graphics::TColor Value);
	void __fastcall SetGroupCaptions(const TPlannerStringList* Value);
	void __fastcall SetLineColor(const Graphics::TColor Value);
	void __fastcall UpdateHeights(void);
	void __fastcall SetColorTo(const Graphics::TColor Value);
	void __fastcall SetActiveColor(const Graphics::TColor Value);
	void __fastcall SetActiveColorTo(const Graphics::TColor Value);
	void __fastcall SetRotateOnLeft(const bool Value);
	void __fastcall SetRotateOnTop(const bool Value);
	void __fastcall SetCustomGroups(const TGroupCollection* Value);
	void __fastcall CustomGroupChange(System::TObject* Sender);
	void __fastcall SetWordWrap(const bool Value);
	
protected:
	DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
	
public:
	__fastcall TPlannerHeader(TCustomPlanner* AOwner);
	__fastcall virtual ~TPlannerHeader(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	void __fastcall MergeHeader(int FromSection, int ToSection);
	void __fastcall UnMergeHeader(int FromSection, int ToSection);
	__property TPlannerIntList* GroupSpan = {read=FGroupSpan, write=FGroupSpan};
	
__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 bool AllowResize = {read=FAllowResize, write=SetAllowResize, default=0};
	__property bool AllowPositionResize = {read=FAllowPositionResize, write=SetAllowPositionResize, default=0};
	__property bool AutoSize = {read=FAutoSize, write=SetAutoSize, default=0};
	__property TPlannerStringList* Captions = {read=FCaptions, write=SetCaptions};
	__property Graphics::TColor Color = {read=FColor, write=SetColor, default=-16777201};
	__property Graphics::TColor ColorTo = {read=FColorTo, write=SetColorTo, default=16777215};
	__property TGroupCollection* CustomGroups = {read=FCustomGroups, write=SetCustomGroups};
	__property bool DragDrop = {read=GetDragDrop, write=SetDragDrop, default=0};
	__property int Height = {read=FHeight, write=SetHeight, default=32};
	__property bool Flat = {read=FFlat, write=SetFlat, default=0};
	__property Graphics::TFont* Font = {read=FFont, write=SetFont};
	__property Graphics::TFont* GroupFont = {read=FGroupFont, write=SetGroupFont};
	__property TPlannerStringList* GroupCaptions = {read=FGroupCaptions, write=SetGroupCaptions};
	__property Controls::TImageList* Images = {read=FImages, write=SetImages};
	__property TImagePosition ImagePosition = {read=FImagePosition, write=SetImagePosition, default=0};
	__property Graphics::TColor ItemColor = {read=FItemColor, write=SetItemColor, default=8421504};
	__property int ItemHeight = {read=FItemHeight, write=SetItemHeight, default=32};
	__property Graphics::TColor LineColor = {read=FLineColor, write=SetLineColor, default=8421504};
	__property Menus::TPopupMenu* PopupMenu = {read=FPopupMenu, write=FPopupMenu};
	__property bool ReadOnly = {read=FReadOnly, write=SetReadOnly, default=1};
	__property bool ResizeAll = {read=FResizeAll, write=FResizeAll, default=1};
	__property bool RotateOnLeft = {read=FRotateOnLeft, write=SetRotateOnLeft, default=0};
	__property bool RotateOnTop = {read=FRotateOnTop, write=SetRotateOnTop, default=0};
	__p