planner.hpp

TMS component pack v4.2 for delphi

	char FToolTipBuffer[4097];
	HIDESBASE MESSAGE void __fastcall WMNotify(Messages::TWMNotify &Message);
	HIDESBASE MESSAGE void __fastcall WMVScroll(Messages::TWMScroll &WMScroll);
	HIDESBASE MESSAGE void __fastcall WMHScroll(Messages::TWMScroll &WMScroll);
	HIDESBASE MESSAGE void __fastcall WMLButtonDblClk(Messages::TWMMouse &Message);
	HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &Message);
	HIDESBASE MESSAGE void __fastcall WMEraseBkGnd(Messages::TWMEraseBkgnd &Message);
	HIDESBASE MESSAGE void __fastcall CNKeyDown(Messages::TWMKey &Message);
	HIDESBASE MESSAGE void __fastcall CMDesignHitTest(Messages::TWMMouse &Msg);
	HIDESBASE MESSAGE void __fastcall WMSetCursor(Messages::TWMSetCursor &Msg);
	HIDESBASE MESSAGE void __fastcall CMHintShow(Messages::TMessage &Message);
	void __fastcall RTFPaint(Graphics::TCanvas* ACanvas, const Types::TRect &ARect, const AnsiString rtf, Graphics::TColor Background);
	void __fastcall UpdatePositions(void);
	void __fastcall StartEditCol(const Types::TRect &ARect, TPlannerItem* APlannerItem, int X, int Y);
	void __fastcall StartEditRow(const Types::TRect &ARect, TPlannerItem* APlannerItem, int X, int Y);
	virtual void __fastcall PaintItemCol(Graphics::TCanvas* Canvas, const Types::TRect &ARect, TPlannerItem* APlannerItem, bool Print, bool SelColor);
	void __fastcall PaintItemRow(Graphics::TCanvas* Canvas, const Types::TRect &ARect, TPlannerItem* APlannerItem, bool Print, bool SelColor);
	virtual void __fastcall PaintSideCol(Graphics::TCanvas* Canvas, const Types::TRect &ARect, int ARow, int APos, int Offs, bool Occupied, bool Print);
	void __fastcall PaintSideRow(Graphics::TCanvas* Canvas, const Types::TRect &ARect, int AColumn, int APos, bool Occupied, bool Print);
	void __fastcall GetSideBarLines(int Index, int Position, AnsiString &Line1, AnsiString &Line2, AnsiString &Line3, bool &HS);
	void __fastcall DrawWallPaperFixed(const Types::TRect &CRect, int xcorr, int ycorr, Graphics::TColor BKColor);
	void __fastcall DrawWallPaperTile(int ACol, int ARow, const Types::TRect &CRect, int xcorr, int ycorr, Graphics::TColor BKColor);
	void __fastcall DrawCellCol(int AColumn, int ARow, const Types::TRect &ARect, Grids::TGridDrawState AState);
	void __fastcall DrawCellRow(int AColumn, int ARow, const Types::TRect &ARect, Grids::TGridDrawState AState);
	void __fastcall SetEditDirectSelection(const Types::TRect &ARect, int X, int Y);
	Types::TRect __fastcall CellRectEx(int X, int Y);
	int __fastcall ColWidthEx(int ItemPos);
	int __fastcall RowHeightEx(int ItemPos);
	void __fastcall SetActiveCellShow(TActiveCellShow AValue);
	void __fastcall UpdateNVI(void);
	int __fastcall MouseOverDesignChoice(int X, int Y);
	
protected:
	virtual void __fastcall DrawCell(int AColumn, int ARow, const Types::TRect &ARect, Grids::TGridDrawState AState);
	void __fastcall HintShowXY(int X, int Y, AnsiString Caption);
	void __fastcall HintHide(void);
	virtual void __fastcall Loaded(void);
	DYNAMIC void __fastcall Resize(void);
	virtual void __fastcall DestroyWnd(void);
	DYNAMIC void __fastcall KeyPress(char &Key);
	DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState ShiftState);
	DYNAMIC void __fastcall KeyUp(Word &Key, Classes::TShiftState ShiftState);
	DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall TopLeftChanged(void);
	int __fastcall GetHScrollSize(void);
	int __fastcall GetVScrollSize(void);
	__property RowCount  = {default=5};
	DYNAMIC void __fastcall DoEnter(void);
	DYNAMIC void __fastcall DoExit(void);
	__property Planobj::TPlannerColorArrayList* ColorList = {read=FColorList, write=FColorList};
	DYNAMIC void __fastcall DragOver(System::TObject* Source, int X, int Y, Controls::TDragState State, bool &Accept);
	void __fastcall RepaintSelection(const Grids::TGridRect &ASelection);
	void __fastcall SelChanged(void);
	virtual bool __fastcall SelectCell(int AColumn, int ARow);
	void __fastcall MouseToCell(int X, int Y, int &ACol, int &ARow);
	void __fastcall RepaintRect(const Types::TRect &r);
	void __fastcall InvalidateCellRect(const Types::TRect &r);
	void __fastcall ChangeSelection(int x, int y, int dx, int dy);
	void __fastcall CorrectSelection(void);
	void __fastcall UpdateVScrollBar(void);
	void __fastcall UpdateHScrollBar(void);
	void __fastcall FlatSetScrollInfo(int Code, tagSCROLLINFO &ScrollInfo, BOOL FRedraw);
	void __fastcall FlatSetScrollProp(int Index, int NewValue, BOOL FRedraw);
	void __fastcall FlatShowScrollBar(int Code, BOOL Show);
	void __fastcall FlatScrollInit(void);
	void __fastcall FlatScrollDone(void);
	void __fastcall FormHandle(TPlannerItem* Item, const Types::TRect &ControlRect, AnsiString ControlID, AnsiString ControlType, AnsiString ControlValue);
	void __fastcall FormExit(System::TObject* Sender);
	DYNAMIC bool __fastcall DoMouseWheelDown(Classes::TShiftState Shift, const Types::TPoint &MousePos);
	DYNAMIC bool __fastcall DoMouseWheelUp(Classes::TShiftState Shift, const Types::TPoint &MousePos);
	virtual void __fastcall Paint(void);
	
public:
	__fastcall virtual TPlannerGrid(Classes::TComponent* AOwner);
	__fastcall virtual ~TPlannerGrid(void);
	virtual void __fastcall CreateWnd(void);
	void __fastcall CreateToolTip(void);
	void __fastcall AddToolTip(int IconType, AnsiString Text, AnsiString Title);
	void __fastcall DestroyToolTip(void);
	DYNAMIC void __fastcall DragDrop(System::TObject* Source, int X, int Y);
	void __fastcall HideSelection(void);
	void __fastcall UnHideSelection(void);
	void __fastcall BeginUpdate(void);
	void __fastcall EndUpdate(void);
	__property Canvas ;
	__property Col ;
	__property Ctl3D ;
	__property EditorMode ;
	__property GridHeight ;
	__property GridWidth ;
	__property LeftCol ;
	__property Selection ;
	__property Row ;
	__property TabStops ;
	__property TopRow ;
	__property Options  = {default=31};
	__property ColCount  = {default=5};
	__property ColWidths ;
	__property RowHeights ;
	__property FixedRows  = {default=1};
	__property FixedCols  = {default=1};
	__property VisibleColCount ;
	__property VisibleRowCount ;
	__property BorderStyle  = {default=1};
	__property DefaultRowHeight  = {default=24};
	__property DefaultColWidth  = {default=64};
	__property bool MouseRelease = {read=FMouseRelease, write=FMouseRelease, nodefault};
	__property unsigned HToolTip = {read=FHToolTip, write=FHToolTip, nodefault};
	
__published:
	__property TActiveCellShow ActiveCellShow = {read=FActiveCellShow, write=SetActiveCellShow, nodefault};
	__property ScrollBars  = {default=3};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TPlannerGrid(HWND ParentWindow) : Grids::TCustomGrid(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TAdvHeader;
#pragma option push -b-
enum TImagePosition { ipLeft, ipRight };
#pragma option pop

typedef void __fastcall (__closure *THeaderClickEvent)(System::TObject* Sender, int SectionIndex);

typedef void __fastcall (__closure *THeaderDragDropEvent)(System::TObject* Sender, int FromSection, int ToSection);

#pragma option push -b-
enum THeaderOrientation { hoHorizontal, hoVertical };
#pragma option pop

typedef void __fastcall (__closure *THeaderHintEvent)(System::TObject* Sender, int SectionIndex, AnsiString &AHint);

class PASCALIMPLEMENTATION TAdvHeader : public Extctrls::THeader 
{
	typedef Extctrls::THeader inherited;
	
private:
	int FOffset;
	int FLeftPos;
	Classes::TAlignment FAlignment;
	bool FAllowSizing;
	Planutil::TVAlignment FVAlignment;
	Graphics::TColor FColor;
	Graphics::TColor FLineColor;
	bool FFlat;
	Controls::TImageList* FImageList;
	Stdctrls::TMemo* FInplaceEdit;
	TImagePosition FImagePosition;
	THeaderClickEvent FOnClick;
	THeaderClickEvent FOnRightClick;
	THeaderDragDropEvent FOnDragDrop;
	THeaderOrientation FOrientation;
	bool FSectionDragDrop;
	bool FDragging;
	int FDragStart;
	int FEditSection;
	int FEditWidth;
	THeaderClickEvent FOnSectionEditEnd;
	THeaderClickEvent FOnSectionEditStart;
	bool FSectionEdit;
	int FItemHeight;
	int FTextHeight;
	THeaderClickEvent FOnDblClick;
	bool FShowFixed;
	int FFixedHeight;
	Graphics::TColor FFixedColor;
	int FZoomCol;
	bool FZoom;
	#pragma pack(push,1)
	Types::TPoint FLastHintPos;
	#pragma pack(pop)
	Graphics::TColor FColorTo;
	bool FRotate;
	bool FSizing;
	#pragma pack(push,1)
	Types::TPoint FHitTest;
	#pragma pack(pop)
	bool FCanResize;
	int FResizeSection;
	int FMouseOffset;
	bool FMouseDownMove;
	TPlannerItem* FDragItem;
	AnsiString FOldAnchor;
	TPlannerItem* FAnchorItem;
	unsigned FhToolTip;
	TPlannerItem* FBalloonItem;
	THeaderHintEvent FOnHeaderHint;
	char FToolTipBuffer[4097];
	void __fastcall SetAlignment(const Classes::TAlignment Value);
	HIDESBASE void __fastcall SetColor(const Graphics::TColor Value);
	void __fastcall SetImageList(const Controls::TImageList* Value);
	void __fastcall SetImagePosition(const TImagePosition Value);
	HIDESBASE MESSAGE void __fastcall CMHintShow(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &Msg);
	HIDESBASE MESSAGE void __fastcall WMLButtonDblClk(Messages::TWMMouse &Message);
	HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Msg);
	HIDESBASE MESSAGE void __fastcall WMNCHitTest(Messages::TWMNCHitTest &Msg);
	HIDESBASE MESSAGE void __fastcall WMSetCursor(Messages::TWMSetCursor &Msg);
	HIDESBASE MESSAGE void __fastcall WMNotify(Messages::TWMNotify &Message);
	void __fastcall SetOrientation(const THeaderOrientation Value);
	void __fastcall SetFlat(const bool Value);
	void __fastcall SetLineColor(const Graphics::TColor Value);
	void __fastcall SetVAlignment(const Planutil::TVAlignment Value);
	void __fastcall InplaceExit(System::TObject* Sender);
	void __fastcall SetItemHeight(const int Value);
	void __fastcall SetTextHeight(const int Value);
	void __fastcall SetFixedColor(const Graphics::TColor Value);
	void __fastcall SetFixedHeight(const int Value);
	void __fastcall SetShowFixed(const bool Value);
	void __fastcall SetColorTo(const Graphics::TColor Value);
	void __fastcall SetRotate(const bool Value);
	
protected:
	virtual int __fastcall XYToSection(int X, int Y);
	virtual Types::TRect __fastcall GetSectionRect(int X);
	virtual int __fastcall GetSectionIdx(int X);
	virtual void __fastcall StartEdit(const Types::TRect &ARect, TPlannerItem* APlannerItem, int X, int Y);
	void __fastcall StopEdit(void);
	virtual void __fastcall Paint(void);
	DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall DragOver(System::TObject* Source, int X, int Y, Controls::TDragState State, bool &Accept);
	void __fastcall CreateToolTip(void);
	void __fastcall AddToolTip(int IconType, AnsiString Text, AnsiString Title);
	void __fastcall DestroyToolTip(void);
	
public:
	__fastcall virtual TAdvHeader(Classes::TComponent* AOwner);
	__fastcall virtual ~TAdvHeader(void);
	TPlannerItem* __fastcall ItemAtXY(int X, int Y, Types::TRect &ARect);
	DYNAMIC void __fastcall DragDrop(System::TObject* Source, int X, int Y);
	
__published:
	__property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, nodefault};
	__property bool AllowSizing = {read=FAllowSizing, write=FAllowSizing, nodefault};
	__property Graphics::TColor Color = {read=FColor, write=SetColor, nodefault};
	__property Graphics::TColor ColorTo = {read=FColorTo, write=SetColorTo, nodefault};
	__property bool Flat = {read=FFlat, write=SetFlat, nodefault};
	__property Graphics::TColor FixedColor = {read=FFixedColor, write=SetFixedColor, nodefault};
	__property int FixedHeight = {read=FFixedHeight, write=SetFixedHeight, nodefault};
	__property bool ShowFixed = {read=FShowFixed, write=SetShowFixed, nodefault};
	__property Controls::TImageList* Images = {read=FImageList, write=SetImageList};
	__property TImagePosition ImagePosition = {read=FImagePosition, write=SetImagePosition, nodefault};
	__property int ItemHeight = {read=FItemHeight, write=SetItemHeight, nodefault};
	__property int TextHeight = {read=FTextHeight, write=SetTextHeight, nodefault};
	__property Graphics::TColor LineColor = {read=FLineColor, write=SetLineColor, default=8421504};
	__property bool SectionDragDrop = {read=FSectionDragDrop, write=FSectionDragDrop, nodefault};
	__property bool SectionEdit = {read=FSectionEdit, write=FSectionEdit, nodefault};
	__property Planutil::TVAlignment VAlignment = {read=FVAlignment, write=SetVAlignment, nodefault};
	__property bool Rotate = {read=FRotate, write=SetRotate, nodefault};
	__property bool Zoom = {read=FZoom, write=FZoom, nodefault};
	__property int ZoomCol = {read=FZoomCol, write=FZoomCol, nodefault};
	__property THeaderOrientation Orientation = {read=FOrientation, write=SetOrientation, default=0};
	__property THeaderClickEvent OnClick = {read=FOnClick, write=FOnClick};
	__property THeaderClickEvent OnRightClick = {read=FOnRightClick, write=FOnRightClick};
	__property THeaderClickEvent OnDblClick = {read=FOnDblClick, write=FOnDblClick};
	__property THeaderDragDropEvent OnDragDrop = {read=FOnDragDrop, write=FOnDragDrop};
	__property THeaderClickEvent OnSectionEditStart = {read=FOnSectionEditStart, write=FOnSectionEditStart};
	__property THeaderClickEvent OnSectionEditEnd = {read=FOnSectionEditEnd, write=FOnSectionEditEnd};
	__property THeaderHintEvent OnHeaderHint = {read=FOnHeaderHint, write=FOnHeaderHint};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TAdvHeader(HWND ParentWindow) : Extctrls::THeader(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TAdvFooter;
class PASCALIMPLEMENTATION TAdvFooter : public TAdvHeader 
{
	typedef TAdvHeader inherited;
	
private:
	int FUpdateCount;
	
protected:
	virtual void __fastcall Paint(void);
	
public:
	__fastcall virtual TAdvFooter(Classes::TComponent* AOwner);
	void __fastcall BeginUpdate(void);
	void __fastcall EndUpdate(void);
public: