dbgrideh.hpp

最新的 DBGRIDEH4.0

typedef DynamicArray<LeafCol >  PTLeafCol;

class DELPHICLASS TDBGridEhSumList;
class PASCALIMPLEMENTATION TDBGridEhSumList : public Dbsumlst::TDBSumListProducer 
{
	typedef Dbsumlst::TDBSumListProducer inherited;
	
private:
	bool __fastcall GetActive(void);
	HIDESBASE void __fastcall SetActive(const bool Value);
	
protected:
	virtual void __fastcall ReturnEvents(void);
	
public:
	__fastcall TDBGridEhSumList(Classes::TComponent* AOwner);
	virtual void __fastcall SetDataSetEvents(void);
	
__published:
	__property bool Active = {read=GetActive, write=SetActive, default=0};
	__property ExternalRecalc  = {default=0};
	__property OnRecalcAll ;
	__property OnAfterRecalcAll ;
	__property SumListChanged ;
	__property VirtualRecords  = {default=0};
public:
	#pragma option push -w-inl
	/* TDBSumListProducer.Destroy */ inline __fastcall virtual ~TDBGridEhSumList(void) { }
	#pragma option pop
	
};


#pragma option push -b-
enum TScrollBarVisibleModeEh { sbAlwaysShowEh, sbNeverShowEh, sbAutoShowEh };
#pragma option pop

class DELPHICLASS TDBGridEhScrollBar;
class PASCALIMPLEMENTATION TDBGridEhScrollBar : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	TCustomDBGridEh* FDBGridEh;
	Stdctrls::TScrollBar* FExtScrollBar;
	Forms::TScrollBarKind FKind;
	bool FTracking;
	TScrollBarVisibleModeEh FVisibleMode;
	bool __fastcall GetVisible(void);
	void __fastcall ExtScrollWindowProc(Messages::TMessage &Message);
	void __fastcall SetExtScrollBar(const Stdctrls::TScrollBar* Value);
	void __fastcall SetVisible(bool Value);
	void __fastcall SetVisibleMode(const TScrollBarVisibleModeEh Value);
	
public:
	__fastcall TDBGridEhScrollBar(TCustomDBGridEh* AGrid, Forms::TScrollBarKind AKind);
	__fastcall virtual ~TDBGridEhScrollBar(void);
	bool __fastcall GetScrollInfo(tagSCROLLINFO &ScrollInfo);
	bool __fastcall IsScrollBarVisible(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	void __fastcall UpdateExtScrollBar(void);
	__property Forms::TScrollBarKind Kind = {read=FKind, nodefault};
	__property TScrollBarVisibleModeEh VisibleMode = {read=FVisibleMode, write=SetVisibleMode, default=2};
	
__published:
	__property Stdctrls::TScrollBar* ExtScrollBar = {read=FExtScrollBar, write=SetExtScrollBar};
	__property bool Tracking = {read=FTracking, write=FTracking, default=0};
	__property bool Visible = {read=GetVisible, write=SetVisible, default=1};
};


class DELPHICLASS TVertDBGridEhScrollBar;
class PASCALIMPLEMENTATION TVertDBGridEhScrollBar : public TDBGridEhScrollBar 
{
	typedef TDBGridEhScrollBar inherited;
	
__published:
	__property Visible  = {stored=false, default=1};
	__property VisibleMode  = {default=2};
public:
	#pragma option push -w-inl
	/* TDBGridEhScrollBar.Create */ inline __fastcall TVertDBGridEhScrollBar(TCustomDBGridEh* AGrid, Forms::TScrollBarKind AKind) : TDBGridEhScrollBar(AGrid, AKind) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TDBGridEhScrollBar.Destroy */ inline __fastcall virtual ~TVertDBGridEhScrollBar(void) { }
	#pragma option pop
	
};


#pragma option push -b-
enum TDBGridEhSelectionType { gstNon, gstRecordBookmarks, gstRectangle, gstColumns, gstAll };
#pragma option pop

typedef TDBGridEhSelectionType TDBGridEhAllowedSelection;

typedef Set<TDBGridEhAllowedSelection, gstRecordBookmarks, gstAll>  TDBGridEhAllowedSelections;

struct TDBCell
{
	
public:
	int Col;
	AnsiString Row;
} ;

class DELPHICLASS TDBGridEhIndicatorTitle;
class PASCALIMPLEMENTATION TDBGridEhIndicatorTitle : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	bool FDown;
	Menus::TPopupMenu* FDropdownMenu;
	bool FShowDropDownSign;
	bool FTitleButton;
	bool FUseGlobalMenu;
	TCustomDBGridEh* FGrid;
	void __fastcall SetShowDropDownSign(const bool Value);
	
public:
	__property bool Down = {read=FDown, nodefault};
	__fastcall TDBGridEhIndicatorTitle(TCustomDBGridEh* AGrid);
	
__published:
	__property Menus::TPopupMenu* DropdownMenu = {read=FDropdownMenu, write=FDropdownMenu};
	__property bool ShowDropDownSign = {read=FShowDropDownSign, write=SetShowDropDownSign, default=0};
	__property bool TitleButton = {read=FTitleButton, write=FTitleButton, default=0};
	__property bool UseGlobalMenu = {read=FUseGlobalMenu, write=FUseGlobalMenu, default=1};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TDBGridEhIndicatorTitle(void) { }
	#pragma option pop
	
};


class DELPHICLASS TDBGridEhSelectionRect;
class PASCALIMPLEMENTATION TDBGridEhSelectionRect : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	TDBCell FAnchor;
	TCustomDBGridEh* FGrid;
	TDBCell FShiftCell;
	Types::TRect __fastcall BoxRect(int ALeft, AnsiString ATop, int ARight, AnsiString ABottom);
	bool __fastcall CheckState(void);
	AnsiString __fastcall GetBottomRow();
	int __fastcall GetLeftCol(void);
	int __fastcall GetRightCol(void);
	AnsiString __fastcall GetTopRow();
	
public:
	__fastcall TDBGridEhSelectionRect(TCustomDBGridEh* AGrid);
	bool __fastcall DataCellSelected(int DataCol, AnsiString DataRow);
	Types::TRect __fastcall SelectionToGridRect();
	void __fastcall Clear(void);
	void __fastcall Select(int ACol, AnsiString ARow, bool AddSel);
	__property AnsiString BottomRow = {read=GetBottomRow};
	__property int LeftCol = {read=GetLeftCol, nodefault};
	__property int RightCol = {read=GetRightCol, nodefault};
	__property AnsiString TopRow = {read=GetTopRow};
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TDBGridEhSelectionRect(void) { }
	#pragma option pop
	
};


class DELPHICLASS TDBGridEhSelectionCols;
class PASCALIMPLEMENTATION TDBGridEhSelectionCols : public TColumnsEhList 
{
	typedef TColumnsEhList inherited;
	
private:
	TColumnEh* FAnchor;
	TCustomDBGridEh* FGrid;
	TColumnEh* FShiftCol;
	TColumnsEhList* FShiftSelectedCols;
	HIDESBASE void __fastcall Add(TColumnEh* ACol);
	
public:
	__fastcall TDBGridEhSelectionCols(TCustomDBGridEh* AGrid);
	__fastcall virtual ~TDBGridEhSelectionCols(void);
	Types::TRect __fastcall SelectionToGridRect();
	virtual void __fastcall Clear(void);
	void __fastcall InvertSelect(TColumnEh* ACol);
	void __fastcall Refresh(void);
	void __fastcall Select(TColumnEh* ACol, bool AddSel);
	void __fastcall SelectShift(TColumnEh* ACol);
};


class DELPHICLASS TDBGridEhSelection;
class PASCALIMPLEMENTATION TDBGridEhSelection : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	TDBGridEhSelectionCols* FColumns;
	TCustomDBGridEh* FGrid;
	TDBGridEhSelectionRect* FRect;
	TDBGridEhSelectionType FSelectionType;
	TBookmarkListEh* __fastcall GetRows(void);
	void __fastcall LinkActive(bool Value);
	void __fastcall SetSelectionType(TDBGridEhSelectionType ASelType);
	
protected:
	virtual void __fastcall SelectionChanged(void);
	
public:
	__fastcall TDBGridEhSelection(TCustomDBGridEh* AGrid);
	__fastcall virtual ~TDBGridEhSelection(void);
	bool __fastcall DataCellSelected(int DataCol, AnsiString DataRow);
	Types::TRect __fastcall SelectionToGridRect();
	void __fastcall Clear(void);
	void __fastcall Refresh(void);
	void __fastcall SelectAll(void);
	void __fastcall UpdateState(void);
	__property TDBGridEhSelectionCols* Columns = {read=FColumns};
	__property TDBGridEhSelectionRect* Rect = {read=FRect};
	__property TBookmarkListEh* Rows = {read=GetRows};
	__property TDBGridEhSelectionType SelectionType = {read=FSelectionType, nodefault};
};


class DELPHICLASS TSTDBGridEhFilter;
class PASCALIMPLEMENTATION TSTDBGridEhFilter : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	TCustomDBGridEh* FGrid;
	bool FLocal;
	int FUpateCount;
	bool FVisible;
	void __fastcall SetLocal(const bool Value);
	void __fastcall SetVisible(const bool Value);
	
public:
	__fastcall TSTDBGridEhFilter(TCustomDBGridEh* AGrid);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	void __fastcall BeginUpdate(void);
	void __fastcall EndUpdate(void);
	__property int UpdateCount = {read=FUpateCount, nodefault};
	
__published:
	__property bool Local = {read=FLocal, write=SetLocal, default=0};
	__property bool Visible = {read=FVisible, write=SetVisible, default=0};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TSTDBGridEhFilter(void) { }
	#pragma option pop
	
};


#pragma option push -b-
enum THorzCellTypeEh { hctIndicatorEh, hctDataEh };
#pragma option pop

#pragma option push -b-
enum TVertCellTypeEh { vctTitleEh, vctSubTitleEh, vctDataEh, vctAboveFooterEh, vctFooterEh };
#pragma option pop

struct TCellTypeEh
{
	
public:
	THorzCellTypeEh HorzType;
	TVertCellTypeEh VertType;
} ;

#pragma option push -b-
enum TDBGridEhOption { dghFixed3D, dghFrozen3D, dghFooter3D, dghData3D, dghResizeWholeRightPart, dghHighlightFocus, dghClearSelection, dghFitRowHeightToText, dghAutoSortMarking, dghMultiSortMarking, dghEnterAsTab, dghTraceColSizing, dghIncSearch, dghPreferIncSearch, dghRowHighlight, dghDblClickOptimizeColWidth, dghDialogFind, dghRecordMoving };
#pragma option pop

typedef Set<TDBGridEhOption, dghFixed3D, dghRecordMoving>  TDBGridEhOptions;

#pragma option push -b-
enum TDBGridEhState { dgsNormal, dgsRowSelecting, dgsColSelecting, dgsRectSelecting, dgsPosTracing, dgsTitleDown, dgsColSizing, dgsRowMoving };
#pragma option pop

#pragma option push -b-
enum TDBGridEhAllowedOperation { alopInsertEh, alopUpdateEh, alopDeleteEh, alopAppendEh };
#pragma option pop

typedef Set<TDBGridEhAllowedOperation, alopInsertEh, alopAppendEh>  TDBGridEhAllowedOperations;

#pragma option push -b-
enum TDBGridEhEditAction { geaCutEh, geaCopyEh, geaPasteEh, geaDeleteEh, geaSelectAllEh };
#pragma option pop

typedef Set<TDBGridEhEditAction, geaCutEh, geaSelectAllEh>  TDBGridEhEditActions;

typedef void __fastcall (__closure *TDBGridEhClickEvent)(TColumnEh* Column);

typedef void __fastcall (__closure *TDrawFooterCellEvent)(System::TObject* Sender, int DataCol, int Row, TColumnEh* Column, const Types::TRect &Rect, Gridseh::TGridDrawState State);

typedef void __fastcall (__closure *TGetFooterParamsEvent)(System::TObject* Sender, int DataCol, int Row, TColumnEh* Column, Graphics::TFont* AFont, Graphics::TColor &Background, Classes::TAlignment &Alignment, Gridseh::TGridDrawState State, AnsiString &Text);

typedef void __fastcall (__closure *TGetBtnEhParamsEvent)(System::TObject* Sender, TColumnEh* Column, Graphics::TFont* AFont, Graphics::TColor &Background, TSortMarkerEh &SortMarker, bool IsDown);

class DELPHICLASS TDBGridEhCenter;
#pragma option push -b-
enum TDBGridEhStyleIndicatorTitleMenuEh { itmVis