advcgrid.hpp

TMS component pack v4.2 for delphi

	__property int AutoMaxSize = {read=FAutoMaxSize, write=FAutoMaxSize, nodefault};
	__property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, nodefault};
	__property Advgrid::TCellBorders Borders = {read=FBorders, write=SetBorders, nodefault};
	__property Graphics::TPen* BorderPen = {read=FBorderPen, write=SetBorderPen};
	__property AnsiString CheckFalse = {read=FCheckFalse, write=FCheckFalse};
	__property AnsiString CheckTrue = {read=FCheckTrue, write=FCheckTrue};
	__property Graphics::TColor Color = {read=FColor, write=SetColor, nodefault};
	__property Menus::TPopupMenu* ColumnPopup = {read=FColumnPopup, write=FColumnPopup};
	__property TColumnPopupType ColumnPopupType = {read=FColumnPopupType, write=FColumnPopupType, nodefault};
	__property Classes::TStringList* ComboItems = {read=FComboItems, write=SetComboItems};
	__property int DropDownCount = {read=FDropDownCount, write=FDropDownCount, nodefault};
	__property int EditLength = {read=FEditLength, write=FEditLength, nodefault};
	__property Advgrid::TEditLink* EditLink = {read=FEditLink, write=FEditLink};
	__property AnsiString EditMask = {read=FEditMask, write=FEditMask};
	__property Basegrid::TEditorType Editor = {read=FEditorType, write=SetEditorType, nodefault};
	__property Classes::TStringList* Filter = {read=FFilter, write=SetFilter};
	__property bool FilterCaseSensitive = {read=FFilterCaseSensitive, write=FFilterCaseSensitive, nodefault};
	__property bool Fixed = {read=FFixed, write=SetFixed, nodefault};
	__property AnsiString FloatFormat = {read=FFloatFormat, write=SetFloatFormat};
	__property Graphics::TFont* Font = {read=FFont, write=SetFont};
	__property AnsiString Header = {read=FColumnHeader, write=SetColumnHeader};
	__property Classes::TAlignment HeaderAlignment = {read=FHeaderAlignment, write=SetHeaderAlignment, nodefault};
	__property Graphics::TFont* HeaderFont = {read=FHeaderFont, write=SetHeaderFont};
	__property int MinSize = {read=FMinSize, write=FMinSize, nodefault};
	__property int MaxSize = {read=FMaxSize, write=FMaxSize, nodefault};
	__property AnsiString Name = {read=FName, write=FName};
	__property bool Password = {read=FPassword, write=SetPassword, nodefault};
	__property bool PrintBorderCustom = {read=FPrintBorderCustom, write=FPrintBorderCustom, default=1};
	__property Advgrid::TCellBorders PrintBorders = {read=FPrintBorders, write=FPrintBorders, nodefault};
	__property Graphics::TPen* PrintBorderPen = {read=FPrintBorderPen, write=FPrintBorderPen};
	__property Graphics::TColor PrintColor = {read=FPrintColor, write=FPrintColor, nodefault};
	__property bool PrintFontCustom = {read=FPrintFontCustom, write=FPrintFontCustom, default=1};
	__property Graphics::TFont* PrintFont = {read=FPrintFont, write=SetPrintFont};
	__property bool ReadOnly = {read=FReadOnly, write=FReadOnly, nodefault};
	__property bool ShowBands = {read=FShowBands, write=SetShowBands, nodefault};
	__property Advgrid::TSortStyle SortStyle = {read=FSortStyle, write=FSortStyle, nodefault};
	__property AnsiString SortPrefix = {read=FSortPrefix, write=FSortPrefix};
	__property AnsiString SortSuffix = {read=FSortSuffix, write=FSortSuffix};
	__property int SpinMax = {read=FSpinMax, write=FSpinMax, nodefault};
	__property int SpinMin = {read=FSpinMin, write=FSpinMin, nodefault};
	__property int SpinStep = {read=FSpinStep, write=FSpinStep, nodefault};
	__property int Tag = {read=FTag, write=FTag, nodefault};
	__property int Width = {read=GetWidth, write=SetWidth, nodefault};
};


class DELPHICLASS TGridColumnCollection;
class DELPHICLASS TAdvColumnGrid;
class PASCALIMPLEMENTATION TAdvColumnGrid : public Advgrid::TAdvStringGrid 
{
	typedef Advgrid::TAdvStringGrid inherited;
	
private:
	TGridColumnCollection* FColumnCollection;
	TGridColumnItem* FSaveCol;
	bool FColMoving;
	Advgrid::TCellGraphic* FCellGraphic;
	TDropList* FDropList;
	int FFilterCol;
	bool FAutoFilterDisplay;
	bool FAutoFilterUpdate;
	TFilterDropDown* FFilterDropDown;
	TFilterSelectEvent FOnFilterSelect;
	TColumnPopupEvent FOnColumnPopup;
	Classes::TNotifyEvent FOnFilterDone;
	TAfterColumnMoved FOnAfterColumnMoved;
	void __fastcall SetColumnCollection(const TGridColumnCollection* Value);
	int __fastcall GetColCount(void);
	HIDESBASE void __fastcall SetColCount(const int Value);
	void __fastcall SynchHeaders(void);
	void __fastcall SynchColumns(void);
	TGridColumnItem* __fastcall GetColumnByName(AnsiString AValue);
	
protected:
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation AOperation);
	DYNAMIC void __fastcall ColumnMoved(int FromIndex, int ToIndex);
	DYNAMIC void __fastcall ColWidthsChanged(void);
	virtual void __fastcall CellsLoaded(void);
	virtual void __fastcall Loaded(void);
	void __fastcall FilterSelect(System::TObject* Sender, int ItemIndex);
	virtual bool __fastcall GetFilter(int ACol);
	virtual void __fastcall UpdateColSize(int ACol, int &NewWidth);
	virtual void __fastcall UpdateAutoColSize(int ACol, int &NewWidth);
	virtual void __fastcall UpdateColHeaders(void);
	DYNAMIC AnsiString __fastcall GetEditMask(int ACol, int ARow);
	DYNAMIC int __fastcall GetEditLimit(void);
	virtual Advgrid::TCellType __fastcall GetCellType(int ACol, int ARow);
	virtual Advgrid::TCellGraphic* __fastcall GetCellGraphic(int ACol, int ARow);
	virtual void __fastcall GetCellColor(int ACol, int ARow, Grids::TGridDrawState AState, Graphics::TBrush* ABrush, Graphics::TFont* AFont);
	virtual void __fastcall GetCellPrintColor(int ACol, int ARow, Grids::TGridDrawState AState, Graphics::TBrush* ABrush, Graphics::TFont* AFont);
	virtual void __fastcall GetCellBorder(int ACol, int ARow, Graphics::TPen* APen, Advgrid::TCellBorders &borders);
	virtual void __fastcall GetCellPrintBorder(int ACol, int ARow, Graphics::TPen* APen, Advgrid::TCellBorders &borders);
	virtual void __fastcall GetCellAlign(int ACol, int ARow, Classes::TAlignment &HAlign, Basegrid::TVAlignment &VAlign);
	virtual void __fastcall GetColFormat(int ACol, Advgrid::TSortStyle &ASortStyle, AnsiString &aPrefix, AnsiString &aSuffix);
	virtual void __fastcall GetCellEditor(int ACol, int ARow, Basegrid::TEditorType &AEditor);
	virtual bool __fastcall HasCombo(int ACol, int ARow);
	virtual void __fastcall GetCellFixed(int ACol, int ARow, bool &IsFixed);
	virtual void __fastcall GetCellReadOnly(int ACol, int ARow, bool &IsReadOnly);
	virtual void __fastcall GetCellPassword(int ACol, int ARow, bool &IsPassword);
	virtual AnsiString __fastcall GetFormattedCell(int ACol, int ARow);
	virtual AnsiString __fastcall GetCheckTrue(int ACol, int ARow);
	virtual AnsiString __fastcall GetCheckFalse(int ACol, int ARow);
	DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	virtual TGridColumnCollection* __fastcall CreateColumns(void);
	virtual void __fastcall GetDefaultProps(int ACol, int ARow, Graphics::TFont* AFont, Graphics::TBrush* ABrush, Graphics::TColor &AColorTo, Classes::TAlignment &HA, Basegrid::TVAlignment &VA, bool &WW, Basegrid::TCellGradientDirection &GD);
	
public:
	__fastcall virtual TAdvColumnGrid(Classes::TComponent* AOwner);
	__fastcall virtual ~TAdvColumnGrid(void);
	virtual int __fastcall GetVersionNr(void);
	virtual AnsiString __fastcall GetVersionString();
	void __fastcall SaveColumnsToStream(Classes::TStream* st);
	void __fastcall LoadColumnsFromStream(Classes::TStream* st);
	__property TGridColumnItem* ColumnByName[AnsiString AValue] = {read=GetColumnByName};
	void __fastcall SaveColumnPositions(AnsiString Key, AnsiString Section);
	void __fastcall LoadColumnPositions(AnsiString Key, AnsiString Section);
	virtual void __fastcall RemoveCols(int ColIndex, int CCount);
	virtual void __fastcall InsertCols(int ColIndex, int CCount);
	virtual void __fastcall Group(int Colindex);
	virtual void __fastcall UnGroup(void);
	
__published:
	__property bool AutoFilterUpdate = {read=FAutoFilterUpdate, write=FAutoFilterUpdate, default=0};
	__property bool AutoFilterDisplay = {read=FAutoFilterDisplay, write=FAutoFilterDisplay, default=0};
	__property TGridColumnCollection* Columns = {read=FColumnCollection, write=SetColumnCollection};
	__property int ColCount = {read=GetColCount, write=SetColCount, nodefault};
	__property TFilterDropDown* FilterDropDown = {read=FFilterDropDown, write=FFilterDropDown};
	__property TAfterColumnMoved OnAfterColumnMoved = {read=FOnAfterColumnMoved, write=FOnAfterColumnMoved};
	__property TColumnPopupEvent OnColumnPopup = {read=FOnColumnPopup, write=FOnColumnPopup};
	__property TFilterSelectEvent OnFilterSelect = {read=FOnFilterSelect, write=FOnFilterSelect};
	__property Classes::TNotifyEvent OnFilterDone = {read=FOnFilterDone, write=FOnFilterDone};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TAdvColumnGrid(HWND ParentWindow) : Advgrid::TAdvStringGrid(ParentWindow) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TGridColumnCollection : public Classes::TCollection 
{
	typedef Classes::TCollection inherited;
	
public:
	TGridColumnItem* operator[](int Index) { return Items[Index]; }
	
private:
	TAdvColumnGrid* FOwner;
	bool FNoRecursiveUpdate;
	HIDESBASE TGridColumnItem* __fastcall GetItem(int Index);
	HIDESBASE void __fastcall SetItem(int Index, const TGridColumnItem* Value);
	
protected:
	virtual void __fastcall Update(Classes::TCollectionItem* Item);
	
public:
	virtual TMetaClass* __fastcall GetItemClass(void);
	HIDESBASE TGridColumnItem* __fastcall Add(void);
	HIDESBASE TGridColumnItem* __fastcall Insert(int index);
	__property TGridColumnItem* Items[int Index] = {read=GetItem, write=SetItem/*, default*/};
	__fastcall TGridColumnCollection(TAdvColumnGrid* AOwner);
	DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
	void __fastcall SetOrganization(void);
	void __fastcall ResetOrganization(void);
public:
	#pragma option push -w-inl
	/* TCollection.Destroy */ inline __fastcall virtual ~TGridColumnCollection(void) { }
	#pragma option pop
	
};


class DELPHICLASS TAdvColumnGridIO;
class PASCALIMPLEMENTATION TAdvColumnGridIO : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
private:
	TGridColumnCollection* FItems;
	
public:
	__fastcall virtual TAdvColumnGridIO(Classes::TComponent* AOwner);
	__fastcall virtual ~TAdvColumnGridIO(void);
	
__published:
	__property TGridColumnCollection* Items = {read=FItems, write=FItems};
};


//-- var, const, procedure ---------------------------------------------------
static const Shortint MAJ_VER = 0x3;
static const Shortint MIN_VER = 0x1;
static const Shortint REL_VER = 0x0;
static const Shortint BLD_VER = 0x3;
#define DATE_VER "Feb, 2007"

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

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