basegrid.hpp

TMS component pack v4.2 for delphi

	virtual void __fastcall GetDisplText(int c, int r, AnsiString &Value);
	virtual void __fastcall GetDisplWideText(int c, int r, WideString &Value);
	virtual void __fastcall GetDefaultProps(int ACol, int ARow, Graphics::TFont* AFont, Graphics::TBrush* ABrush, Graphics::TColor &AColorTo, Classes::TAlignment &HA, TVAlignment &VA, bool &WW, TCellGradientDirection &GD);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation AOperation);
	
public:
	__fastcall virtual TBaseGrid(Classes::TComponent* aOwner);
	__fastcall virtual ~TBaseGrid(void);
	TCellProperties* __fastcall GetCellProperties(int c, int r);
	void __fastcall SetCellProperties(int c, int r, const TCellProperties* Value);
	__property TCellProperties* CellProperties[int c][int r] = {read=GetCellProperties, write=SetCellProperties};
	virtual void __fastcall GetVisualProperties(int ACol, int ARow, Grids::TGridDrawState &AState, bool Print, bool Select, bool Remap, Graphics::TBrush* ABrush, Graphics::TColor &AColorTo, Graphics::TFont* AFont, Classes::TAlignment &HA, TVAlignment &VA, bool &WW, TCellGradientDirection &GD);
	HIDESBASE Types::TRect __fastcall CellRect(int c, int r);
	Types::TPoint __fastcall CellSize(int c, int r);
	virtual int __fastcall DisplColIndex(int ACol);
	bool __fastcall IsBaseCell(int ACol, int ARow);
	bool __fastcall IsMergedCell(int ACol, int ARow);
	bool __fastcall IsMergedNonBaseCell(int ACol, int ARow);
	bool __fastcall IsXMergedCell(int ACol, int ARow);
	bool __fastcall IsYMergedCell(int ACol, int ARow);
	Types::TPoint __fastcall BaseCell(int ACol, int ARow);
	Types::TRect __fastcall FullCell(int c, int r);
	Types::TPoint __fastcall CellSpan(int ACol, int ARow);
	Types::TPoint __fastcall CellExt(int ACol, int ARow);
	int __fastcall MinRowSpan(int ARow);
	int __fastcall MaxRowSpan(int ARow);
	bool __fastcall RowSpanIdentical(int ARow1, int ARow2);
	bool __fastcall ColSpanIdentical(int ACol1, int ACol2);
	virtual void __fastcall MergeCells(int c, int r, int spanx, int spany);
	virtual void __fastcall SplitCells(int c, int r);
	void __fastcall RepaintCell(int c, int r);
	__property System::TObject* Objects[int c][int r] = {read=GetObjectEx, write=SetObjectEx};
	__property System::TObject* GraphicObjects[int c][int r] = {read=GetGraphicObjectEx, write=SetGraphicObjectEx};
	__property AnsiString Cells[int c][int r] = {read=GetCellEx, write=SetCellEx};
	__property AnsiString GridCells[int c][int r] = {read=GetGridCell, write=SetGridCell};
	__property bool WordWrap = {read=FWordWrap, write=FWordWrap, nodefault};
	
__published:
	__property bool ActiveRowShow = {read=FActiveRowShow, write=FActiveRowShow, default=0};
	__property Graphics::TColor ActiveRowColor = {read=FActiveRowColor, write=SetActiveRowColor, default=-16777192};
	__property bool DefaultDrawing = {read=GetDefaultDrawing, write=SetDefaultDrawing, default=0};
	__property int GridLineWidth = {read=GetGridLineWidth, write=SetGridLineWidth, default=1};
	__property Graphics::TColor GridLineColor = {read=FGridLineColor, write=SetGridLineColor, default=12632256};
	__property TGetDisplTextEvent OnGetDisplText = {read=FOnGetDisplText, write=FOnGetDisplText};
	__property TGetDisplWideTextEvent OnGetDisplWideText = {read=FOnGetDisplWideText, write=FOnGetDisplWideText};
	__property TAdvGridUndoRedo* UndoRedo = {read=FUndoRedo, write=SetUndoRedo};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TBaseGrid(HWND ParentWindow) : Grids::TStringGrid(ParentWindow) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TCellProperties : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	TBaseGrid* FOwnerGrid;
	int FOwnerCol;
	int FOwnerRow;
	System::TObject* FObject;
	System::TObject* FGraphicObject;
	Graphics::TBrushStyle FBrushStyle;
	Graphics::TColor FBrushColor;
	Graphics::TColor FBrushColorTo;
	int FFontSize;
	Graphics::TColor FFontColor;
	Graphics::TFontStyles FFontStyle;
	int FCellSpanY;
	int FCellSpanX;
	int FBorderWidth;
	Graphics::TColor FBorderColor;
	Classes::TAlignment FAlignment;
	TVAlignment FVAlignment;
	int FPaintID;
	bool FWordWrap;
	bool FIsBaseCell;
	TColumnCalcType FCalcType;
	System::TObject* FCalcObject;
	int FNodeLevel;
	TEditorType FEditor;
	AnsiString FFontName;
	bool FReadOnly;
	TCellGradientDirection FGradientDirection;
	Controls::TControl* FControl;
	void __fastcall SetBrushColor(const Graphics::TColor Value);
	void __fastcall SetAlignment(const Classes::TAlignment Value);
	void __fastcall SetVAlignment(const TVAlignment Value);
	void __fastcall SetWordWrap(const bool Value);
	Types::TPoint __fastcall GetBaseCell(int c, int r);
	void __fastcall SetBrushColorTo(const Graphics::TColor Value);
	
protected:
	__property Types::TPoint BaseCell[int c][int r] = {read=GetBaseCell};
	__property int PaintID = {read=FPaintID, write=FPaintID, nodefault};
	__property System::TObject* GraphicObject = {read=FGraphicObject, write=FGraphicObject};
	
public:
	__property TColumnCalcType CalcType = {read=FCalcType, write=FCalcType, nodefault};
	__property System::TObject* CalcObject = {read=FCalcObject, write=FCalcObject};
	__fastcall TCellProperties(TBaseGrid* AOwner, int ACol, int ARow);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property bool IsBaseCell = {read=FIsBaseCell, write=FIsBaseCell, nodefault};
	__property int CellSpanX = {read=FCellSpanX, write=FCellSpanX, nodefault};
	__property int CellSpanY = {read=FCellSpanY, write=FCellSpanY, nodefault};
	__property int OwnerCol = {read=FOwnerCol, write=FOwnerCol, nodefault};
	__property int OwnerRow = {read=FOwnerRow, write=FOwnerRow, nodefault};
	__property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, nodefault};
	__property Graphics::TColor BorderColor = {read=FBorderColor, write=FBorderColor, nodefault};
	__property int BorderWidth = {read=FBorderWidth, write=FBorderWidth, nodefault};
	__property Graphics::TColor BrushColor = {read=FBrushColor, write=SetBrushColor, nodefault};
	__property Graphics::TColor BrushColorTo = {read=FBrushColorTo, write=SetBrushColorTo, nodefault};
	__property Graphics::TBrushStyle BrushStyle = {read=FBrushStyle, write=FBrushStyle, nodefault};
	__property System::TObject* CellObject = {read=FObject, write=FObject};
	__property Graphics::TColor FontColor = {read=FFontColor, write=FFontColor, nodefault};
	__property AnsiString FontName = {read=FFontName, write=FFontName};
	__property int FontSize = {read=FFontSize, write=FFontSize, nodefault};
	__property Graphics::TFontStyles FontStyle = {read=FFontStyle, write=FFontStyle, nodefault};
	__property TEditorType Editor = {read=FEditor, write=FEditor, nodefault};
	__property TCellGradientDirection GradientDirection = {read=FGradientDirection, write=FGradientDirection, nodefault};
	__property bool ReadOnly = {read=FReadOnly, write=FReadOnly, nodefault};
	__property TVAlignment VAlignment = {read=FVAlignment, write=SetVAlignment, nodefault};
	__property bool WordWrap = {read=FWordWrap, write=SetWordWrap, nodefault};
	__property int NodeLevel = {read=FNodeLevel, write=FNodeLevel, nodefault};
	__property Controls::TControl* Control = {read=FControl, write=FControl};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TCellProperties(void) { }
	#pragma option pop
	
};


class DELPHICLASS TUndoRedoItem;
class PASCALIMPLEMENTATION TUndoRedoItem : public Classes::TCollectionItem 
{
	typedef Classes::TCollectionItem inherited;
	
private:
	int FRow;
	int FCol;
	AnsiString FValue;
	AnsiString FOrigValue;
	
__published:
	__property AnsiString Value = {read=FValue, write=FValue};
	__property AnsiString OrigValue = {read=FOrigValue, write=FOrigValue};
	__property int Col = {read=FCol, write=FCol, nodefault};
	__property int Row = {read=FRow, write=FRow, nodefault};
public:
	#pragma option push -w-inl
	/* TCollectionItem.Create */ inline __fastcall virtual TUndoRedoItem(Classes::TCollection* Collection) : Classes::TCollectionItem(Collection) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCollectionItem.Destroy */ inline __fastcall virtual ~TUndoRedoItem(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------

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

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