planner.hpp

TMS component pack v4.2 for delphi

{
	typedef Classes::TPersistent inherited;
	
private:
	Graphics::TColor FBackgroundColor;
	Graphics::TColor FTextColor;
	int FReshowDelay;
	int FInitialDelay;
	int FAutoHideDelay;
	Byte FTransparency;
	bool FEnable;
	Classes::TNotifyEvent FOnEnableChange;
	void __fastcall SetEnable(const bool Value);
	
public:
	__fastcall TBalloonSettings(void);
	
__published:
	__property int AutoHideDelay = {read=FAutoHideDelay, write=FAutoHideDelay, default=-1};
	__property Graphics::TColor BackgroundColor = {read=FBackgroundColor, write=FBackgroundColor, default=536870911};
	__property bool Enable = {read=FEnable, write=SetEnable, default=1};
	__property int InitialDelay = {read=FInitialDelay, write=FInitialDelay, default=-1};
	__property int ReshowDelay = {read=FReshowDelay, write=FReshowDelay, default=-1};
	__property Graphics::TColor TextColor = {read=FTextColor, write=FTextColor, default=536870911};
	__property Byte Transparency = {read=FTransparency, write=FTransparency, default=0};
	__property Classes::TNotifyEvent OnEnableChange = {read=FOnEnableChange, write=FOnEnableChange};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TBalloonSettings(void) { }
	#pragma option pop
	
};


class DELPHICLASS TPlannerSkin;
class PASCALIMPLEMENTATION TPlannerSkin : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Controls::TCustomControl* FOwner;
	Graphics::TBitmap* FSkinTop;
	Graphics::TBitmap* FSkinCenter;
	Graphics::TBitmap* FSkinBottom;
	Graphics::TBitmap* FSkinSelectTop;
	Graphics::TBitmap* FSkinSelectCenter;
	Graphics::TBitmap* FSkinSelectBottom;
	int FSkinX;
	int FSkinY;
	int FSkinCaptionX;
	int FSkinCaptionY;
	Classes::TNotifyEvent FOnChange;
	void __fastcall SetSkinTop(const Graphics::TBitmap* AValue);
	void __fastcall SetSkinCenter(const Graphics::TBitmap* AValue);
	void __fastcall SetSkinBottom(const Graphics::TBitmap* AValue);
	void __fastcall SetSkinSelectTop(const Graphics::TBitmap* AValue);
	void __fastcall SetSkinSelectCenter(const Graphics::TBitmap* AValue);
	void __fastcall SetSkinSelectBottom(const Graphics::TBitmap* AValue);
	
public:
	__fastcall TPlannerSkin(Controls::TCustomControl* AOwner);
	__fastcall virtual ~TPlannerSkin(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	void __fastcall LoadFromFile(AnsiString Filename);
	void __fastcall ClearSkin(void);
	
__published:
	__property Graphics::TBitmap* SkinTop = {read=FSkinTop, write=SetSkinTop};
	__property Graphics::TBitmap* SkinCenter = {read=FSkinCenter, write=SetSkinCenter};
	__property Graphics::TBitmap* SkinBottom = {read=FSkinBottom, write=SetSkinBottom};
	__property Graphics::TBitmap* SkinSelectTop = {read=FSkinSelectTop, write=SetSkinSelectTop};
	__property Graphics::TBitmap* SkinSelectCenter = {read=FSkinSelectCenter, write=SetSkinSelectCenter};
	__property Graphics::TBitmap* SkinSelectBottom = {read=FSkinSelectBottom, write=SetSkinSelectBottom};
	__property int SkinCaptionX = {read=FSkinCaptionX, write=FSkinCaptionX, default=0};
	__property int SkinCaptionY = {read=FSkinCaptionY, write=FSkinCaptionY, default=0};
	__property int SkinX = {read=FSkinX, write=FSkinX, default=0};
	__property int SkinY = {read=FSkinY, write=FSkinY, default=0};
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
};


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


class DELPHICLASS TPlannerGrid;
#pragma option push -b-
enum TActiveCellShow { assNone, assCol, assRow };
#pragma option pop

class DELPHICLASS TPlannerUniMemo;
class PASCALIMPLEMENTATION TPlannerUniMemo : public Planuni::TPlanUniMemo 
{
	typedef Planuni::TPlanUniMemo inherited;
	
private:
	TPlannerItem* FPlannerItem;
	TCustomPlanner* FPlanner;
	MESSAGE void __fastcall WMPaste(Messages::TMessage &Msg);
	MESSAGE void __fastcall WMCopy(Messages::TMessage &Msg);
	MESSAGE void __fastcall WMCut(Messages::TMessage &Msg);
	
protected:
	DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
	DYNAMIC void __fastcall DoEnter(void);
	DYNAMIC void __fastcall DoExit(void);
	DYNAMIC void __fastcall DblClick(void);
	
__published:
	__property TPlannerItem* PlannerItem = {read=FPlannerItem, write=FPlannerItem};
	__property TCustomPlanner* Planner = {read=FPlanner, write=FPlanner};
public:
	#pragma option push -w-inl
	/* TPlanUniMemo.Create */ inline __fastcall virtual TPlannerUniMemo(Classes::TComponent* AOwner) : Planuni::TPlanUniMemo(AOwner) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TPlannerUniMemo(HWND ParentWindow) : Planuni::TPlanUniMemo(ParentWindow) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TWinControl.Destroy */ inline __fastcall virtual ~TPlannerUniMemo(void) { }
	#pragma option pop
	
};


class DELPHICLASS TPlannerMemo;
class PASCALIMPLEMENTATION TPlannerMemo : public Stdctrls::TMemo 
{
	typedef Stdctrls::TMemo inherited;
	
private:
	TPlannerItem* FPlannerItem;
	TCustomPlanner* FPlanner;
	MESSAGE void __fastcall WMPaste(Messages::TMessage &Msg);
	MESSAGE void __fastcall WMCopy(Messages::TMessage &Msg);
	MESSAGE void __fastcall WMCut(Messages::TMessage &Msg);
	
protected:
	DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
	DYNAMIC void __fastcall DoEnter(void);
	DYNAMIC void __fastcall DoExit(void);
	DYNAMIC void __fastcall DblClick(void);
	
public:
	void __fastcall StopEdit(void);
	
__published:
	__property TPlannerItem* PlannerItem = {read=FPlannerItem, write=FPlannerItem};
	__property TCustomPlanner* Planner = {read=FPlanner, write=FPlanner};
public:
	#pragma option push -w-inl
	/* TCustomMemo.Create */ inline __fastcall virtual TPlannerMemo(Classes::TComponent* AOwner) : Stdctrls::TMemo(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomMemo.Destroy */ inline __fastcall virtual ~TPlannerMemo(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TPlannerMemo(HWND ParentWindow) : Stdctrls::TMemo(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TPlannerMaskEdit;
class PASCALIMPLEMENTATION TPlannerMaskEdit : public Mask::TMaskEdit 
{
	typedef Mask::TMaskEdit inherited;
	
private:
	TPlannerItem* FPlannerItem;
	HIDESBASE MESSAGE void __fastcall WMPaste(Messages::TMessage &Msg);
	MESSAGE void __fastcall WMCopy(Messages::TMessage &Msg);
	HIDESBASE MESSAGE void __fastcall WMCut(Messages::TMessage &Msg);
	
protected:
	DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
	DYNAMIC void __fastcall DoExit(void);
	
public:
	void __fastcall StopEdit(void);
	
__published:
	__property TPlannerItem* PlannerItem = {read=FPlannerItem, write=FPlannerItem};
public:
	#pragma option push -w-inl
	/* TCustomMaskEdit.Create */ inline __fastcall virtual TPlannerMaskEdit(Classes::TComponent* AOwner) : Mask::TMaskEdit(AOwner) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TPlannerMaskEdit(HWND ParentWindow) : Mask::TMaskEdit(ParentWindow) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TWinControl.Destroy */ inline __fastcall virtual ~TPlannerMaskEdit(void) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TPlannerGrid : public Grids::TCustomGrid 
{
	typedef Grids::TCustomGrid inherited;
	
private:
	TActiveCellShow FActiveCellShow;
	#pragma pack(push,1)
	Types::TPoint FLastHintPos;
	#pragma pack(pop)
	TPlannerItem* FLastHintItem;
	#pragma pack(push,1)
	Types::TPoint FToolTipPos;
	#pragma pack(pop)
	int FLastDesignChoice;
	int FUpdateCount;
	TCustomPlanner* FPlanner;
	TPlannerUniMemo* FUniMemo;
	TPlannerMemo* FMemo;
	TPlannerMaskEdit* FMaskEdit;
	bool FMouseDown;
	bool FMouseUnSelect;
	bool FMouseDownMove;
	bool FMouseDownSizeUp;
	bool FMouseDownSizeDown;
	bool FMouseDownMoveFirst;
	bool FMouseStart;
	#pragma pack(push,1)
	Types::TPoint FMouseXY;
	#pragma pack(pop)
	Grids::TGridCoord FMouseRCD;
	Grids::TGridCoord FMouseRC;
	Planobj::TPlannerColorArrayList* FColorList;
	Controls::THintWindow* FScrollHintWindow;
	#pragma pack(push,1)
	Types::TPoint FItemXY;
	#pragma pack(pop)
	#pragma pack(push,1)
	Types::TRect FItemXYS;
	#pragma pack(pop)
	bool FEraseBkGnd;
	TPlannerItem* FSelItem;
	Grids::TGridRect FOldSelection;
	Grids::TGridRect FHiddenSelection;
	int FOldTopRow;
	int FOldLeftCol;
	bool FScrolling;
	bool FMouseRelease;
	unsigned FScrollTime;
	#pragma pack(push,1)
	Types::TRect FCurrCtrlR;
	#pragma pack(pop)
	AnsiString FCurrCtrlID;
	TPlannerItem* FCurrCtrlItem;
	AnsiString FCurrCtrlEdit;
	bool FPosResizing;
	Stdctrls::TEdit* FInplaceEdit;
	Plancombo::TPlanComboBox* FInplaceCombo;
	unsigned FHToolTip;