dbgrideh.hpp

最新的 DBGRIDEH4.0

	#pragma option push -w-inl
	/* TCollection.Destroy */ inline __fastcall virtual ~TColumnFootersEh(void) { }
	#pragma option pop
	
};


#pragma option push -b-
enum TColumnEhType { ctCommon, ctPickList, ctLookupField, ctKeyPickList, ctKeyImageList, ctCheckboxes };
#pragma option pop

#pragma option push -b-
enum TColumnButtonStyleEh { cbsAuto, cbsEllipsis, cbsNone, cbsUpDown, cbsDropDown };
#pragma option pop

#pragma option push -b-
enum TColumnTitleDefValuesEhValue { cvdpTitleColorEh, cvdpTitleAlignmentEh };
#pragma option pop

typedef Set<TColumnTitleDefValuesEhValue, cvdpTitleColorEh, cvdpTitleAlignmentEh>  TColumnTitleDefValuesEhValues;

class DELPHICLASS TColumnTitleDefValuesEh;
class DELPHICLASS TColumnDefValuesEh;
class DELPHICLASS TColumnFooterDefValuesEh;
class PASCALIMPLEMENTATION TColumnFooterDefValuesEh : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	bool FToolTips;
	
public:
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property bool ToolTips = {read=FToolTips, write=FToolTips, default=0};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TColumnFooterDefValuesEh(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TColumnFooterDefValuesEh(void) : Classes::TPersistent() { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TColumnDefValuesEh : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	bool FAlwaysShowEditButton;
	bool FAutoDropDown;
	bool FDblClickNextVal;
	bool FDropDownShowTitles;
	bool FDropDownSizing;
	bool FEndEllipsis;
	Stdctrls::TTextLayout FLayout;
	bool FHighlightRequired;
	TCustomDBGridEh* FGrid;
	TColumnTitleDefValuesEh* FTitle;
	TColumnFooterDefValuesEh* FFooter;
	bool FToolTips;
	void __fastcall SetAlwaysShowEditButton(const bool Value);
	void __fastcall SetEndEllipsis(const bool Value);
	void __fastcall SetFooter(const TColumnFooterDefValuesEh* Value);
	void __fastcall SetHighlightRequired(bool Value);
	void __fastcall SetLayout(Stdctrls::TTextLayout Value);
	void __fastcall SetTitle(const TColumnTitleDefValuesEh* Value);
	
public:
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__fastcall TColumnDefValuesEh(TCustomDBGridEh* Grid);
	__fastcall virtual ~TColumnDefValuesEh(void);
	__property bool AlwaysShowEditButton = {read=FAlwaysShowEditButton, write=SetAlwaysShowEditButton, default=0};
	__property bool AutoDropDown = {read=FAutoDropDown, write=FAutoDropDown, default=0};
	__property bool DblClickNextVal = {read=FDblClickNextVal, write=FDblClickNextVal, default=0};
	__property bool DropDownShowTitles = {read=FDropDownShowTitles, write=FDropDownShowTitles, default=0};
	__property bool DropDownSizing = {read=FDropDownSizing, write=FDropDownSizing, default=0};
	__property bool EndEllipsis = {read=FEndEllipsis, write=SetEndEllipsis, default=0};
	__property TColumnFooterDefValuesEh* Footer = {read=FFooter, write=SetFooter};
	__property bool HighlightRequired = {read=FHighlightRequired, write=SetHighlightRequired, default=0};
	__property Stdctrls::TTextLayout Layout = {read=FLayout, write=SetLayout, default=0};
	__property TColumnTitleDefValuesEh* Title = {read=FTitle, write=SetTitle};
	__property bool ToolTips = {read=FToolTips, write=FToolTips, default=0};
};


class PASCALIMPLEMENTATION TColumnTitleDefValuesEh : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Classes::TAlignment FAlignment;
	TColumnTitleDefValuesEhValues FAssignedValues;
	Graphics::TColor FColor;
	TColumnDefValuesEh* FColumnDefValues;
	bool FEndEllipsis;
	TTextOrientationEh FOrientation;
	bool FTitleButton;
	bool FToolTips;
	Classes::TAlignment __fastcall DefaultAlignment(void);
	Graphics::TColor __fastcall DefaultColor(void);
	Classes::TAlignment __fastcall GetAlignment(void);
	Graphics::TColor __fastcall GetColor(void);
	bool __fastcall IsAlignmentStored(void);
	bool __fastcall IsColorStored(void);
	void __fastcall SetAlignment(const Classes::TAlignment Value);
	void __fastcall SetColor(const Graphics::TColor Value);
	void __fastcall SetEndEllipsis(const bool Value);
	void __fastcall SetOrientation(const TTextOrientationEh Value);
	
public:
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__property TColumnTitleDefValuesEhValues AssignedValues = {read=FAssignedValues, nodefault};
	
__published:
	__fastcall TColumnTitleDefValuesEh(TColumnDefValuesEh* ColumnDefValues);
	__property Classes::TAlignment Alignment = {read=GetAlignment, write=SetAlignment, stored=IsAlignmentStored, nodefault};
	__property Graphics::TColor Color = {read=GetColor, write=SetColor, stored=IsColorStored, nodefault};
	__property bool EndEllipsis = {read=FEndEllipsis, write=SetEndEllipsis, default=0};
	__property TTextOrientationEh Orientation = {read=FOrientation, write=SetOrientation, default=0};
	__property bool TitleButton = {read=FTitleButton, write=FTitleButton, default=0};
	__property bool ToolTips = {read=FToolTips, write=FToolTips, default=0};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TColumnTitleDefValuesEh(void) { }
	#pragma option pop
	
};


class DELPHICLASS TDBGridEhColumnDefValuesEh;
class PASCALIMPLEMENTATION TDBGridEhColumnDefValuesEh : public TColumnDefValuesEh 
{
	typedef TColumnDefValuesEh inherited;
	
__published:
	__property AlwaysShowEditButton  = {default=0};
	__property AutoDropDown  = {default=0};
	__property DblClickNextVal  = {default=0};
	__property DropDownShowTitles  = {default=0};
	__property DropDownSizing  = {default=0};
	__property EndEllipsis  = {default=0};
	__property Footer ;
	__property HighlightRequired  = {default=0};
	__property Layout  = {default=0};
	__property Title ;
	__property ToolTips  = {default=0};
public:
	#pragma option push -w-inl
	/* TColumnDefValuesEh.Create */ inline __fastcall TDBGridEhColumnDefValuesEh(TCustomDBGridEh* Grid) : TColumnDefValuesEh(Grid) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TColumnDefValuesEh.Destroy */ inline __fastcall virtual ~TDBGridEhColumnDefValuesEh(void) { }
	#pragma option pop
	
};


#pragma option push -b-
enum TSTFilterOperatorEh { foNon, foEqual, foNotEqual, foGreaterThan, foLessThan, foGreaterOrEqual, foLessOrEqual, foLike, foNotLike, foIn, foNotIn, foNull, foNotNull, foAND, foOR, foValue };
#pragma option pop

#pragma option push -b-
enum TSTOperandTypeEh { botNon, botString, botNumber, botDateTime, botBoolean };
#pragma option pop

struct TSTFilterExpressionEh
{
	
public:
	TSTOperandTypeEh ExpressionType;
	TSTFilterOperatorEh Operator1;
	Variant Operand1;
	TSTFilterOperatorEh Relation;
	TSTFilterOperatorEh Operator2;
	Variant Operand2;
} ;

class DELPHICLASS TSTColumnFilterEh;
class PASCALIMPLEMENTATION TSTColumnFilterEh : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	TColumnEh* FColumn;
	AnsiString FDataField;
	AnsiString FKeyCommaText;
	AnsiString FKeyField;
	Classes::TStrings* FKeys;
	Variant FKeyValues;
	Classes::TStrings* FList;
	AnsiString FListField;
	Dbctrls::TFieldDataLink* FListLink;
	bool FVisible;
	int FDropDownListWidth;
	int FDropDownListRows;
	TSTFilterExpressionEh __fastcall GetExpression();
	TCustomDBGridEh* __fastcall GetGrid(void);
	Db::TDataSource* __fastcall GetListSource(void);
	AnsiString __fastcall ParseExpression(AnsiString Exp);
	void __fastcall ListLinkActiveChange(System::TObject* Sender);
	void __fastcall SetExpression(const TSTFilterExpressionEh &Value);
	void __fastcall SetExpressionStr(const AnsiString Value);
	void __fastcall SetListSource(const Db::TDataSource* Value);
	void __fastcall SetVisible(const bool Value);
	
protected:
	TSTFilterExpressionEh FExpression;
	AnsiString FExpressionStr;
	virtual AnsiString __fastcall GetExpressionAsString();
	virtual bool __fastcall DropDownButtonVisible(void);
	void __fastcall InternalSetExpressionStr(const AnsiString Value);
	virtual void __fastcall CheckRecodeKeyList(TSTFilterExpressionEh &FExpression);
	
public:
	__fastcall TSTColumnFilterEh(TColumnEh* AColumn);
	__fastcall virtual ~TSTColumnFilterEh(void);
	Toolctrlseh::_di_IMemTableDataFieldValueListEh __fastcall GetFieldValueList();
	virtual AnsiString __fastcall GetFilterFieldName();
	virtual Variant __fastcall GetOperand1();
	virtual Variant __fastcall GetOperand2();
	AnsiString __fastcall CurrentKeyField();
	AnsiString __fastcall CurrentDataField();
	Db::TDataSet* __fastcall CurrentListDataSet(void);
	AnsiString __fastcall CurrentListField();
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	void __fastcall Clear(void);
	void __fastcall SetKeyListValues(AnsiString AText, const Variant &KeyVals);
	void __fastcall SetKeysFromListValues(Classes::TStrings* ss);
	__property int DropDownListWidth = {read=FDropDownListWidth, write=FDropDownListWidth, default=0};
	__property int DropDownListRows = {read=FDropDownListRows, write=FDropDownListRows, default=0};
	__property TColumnEh* Column = {read=FColumn};
	__property TSTFilterExpressionEh Expression = {read=GetExpression, write=SetExpression};
	__property AnsiString ExpressionStr = {read=FExpressionStr, write=SetExpressionStr};
	__property TCustomDBGridEh* Grid = {read=GetGrid};
	__property AnsiString KeyCommaText = {read=FKeyCommaText, write=FKeyCommaText};
	
__published:
	__property AnsiString DataField = {read=FDataField, write=FDataField};
	__property AnsiString KeyField = {read=FKeyField, write=FKeyField};
	__property AnsiString ListField = {read=FListField, write=FListField};
	__property Db::TDataSource* ListSource = {read=GetListSource, write=SetListSource};
	__property bool Visible = {read=FVisible, write=SetVisible, default=1};
};


class DELPHICLASS TColCellParamsEh;
class PASCALIMPLEMENTATION TColCellParamsEh : public System::TObject 
{
	typedef System::TObject inherited;
	
protected:
	Classes::TAlignment FAlignment;
	Graphics::TColor FBackground;
	Stdctrls::TCheckBoxState FCheckboxState;
	int FCol;
	Graphics::TFont* FFont;
	int FImageIndex;
	bool FReadOnly;
	int FRow;
	Gridseh::TGridDrawState FState;
	AnsiString FText;
	
public:
	__property Classes::TAlignment Alignment = {read=FAlignment, write=FAlignment, nodefault};
	__property Graphics::TColor Background = {read=FBackground, write=FBackground, nodefault};
	__property Stdctrls::TCheckBoxState CheckboxState = {read=FCheckboxState, write=FCheckboxState, nodefault};
	__property int Col = {read=FCol, write=FCol, nodefault};
	__property Graphics::TFont* Font = {read=FFont, write=FFont};
	__property int ImageIndex = {read=FImageIndex, write=FImageIndex, nodefault};
	__property bool ReadOnly = {read=FReadOnly, write=FReadOnly, nodefault};
	__property int Row = {read=FRow, write=FRow, nodefault};
	__property Gridseh::TGridDrawState State = {read=FState, write=FState, nodefault};
	__property AnsiString Text = {read=FText, write=FText};
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TColCellParamsEh(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TColCellParamsEh(void) { }
	#pragma option pop
	
};


typedef void __fastcall (__closure *TGetColCellParamsEventEh)(System::TObject* Sender, bool EditMode, TColCellParamsEh* Params);

typedef void __fastcall (__closure *TColCellUpdateDataEventEh)(System::TObject* Sender, AnsiString &Text, Variant &Value, bool &UseText, bool &Handled);

typedef DynamicArray<bool >  DBGridEh__11;

class DELPHICLASS TColumnDropDownBoxEh;
class DELPHICLASS TDBGridColumnsEh;
class PASCALIMPLEMENTATION TColumnDropDownBoxEh : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Dbctrls::TDropDownAlign FAlign;
	bool FAutoDrop;
	bool FAutoFitColWidths;
	Db::TDataSource* FListSource;
	Classes::TPersistent* FOwner;
	int FRows;
	bool FShowTitles;
	bool FSizable;