dblookupgridseh.hpp

最新的 DBGRIDEH4.0

	__property OnStartDrag ;
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TDBLookupGridEh(HWND ParentWindow) : Dbgrideh::TCustomDBGridEh(ParentWindow) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TLookupGridDataLinkEh : public Db::TDataLink 
{
	typedef Db::TDataLink inherited;
	
private:
	TDBLookupGridEh* FDBLookupGrid;
	
protected:
	virtual void __fastcall ActiveChanged(void);
	virtual void __fastcall FocusControl(Db::TFieldRef Field);
	virtual void __fastcall LayoutChanged(void);
	virtual void __fastcall RecordChanged(Db::TField* Field);
	
public:
	__fastcall TLookupGridDataLinkEh(void);
public:
	#pragma option push -w-inl
	/* TDataLink.Destroy */ inline __fastcall virtual ~TLookupGridDataLinkEh(void) { }
	#pragma option pop
	
};


class DELPHICLASS TGridColumnSpecCellEh;
class PASCALIMPLEMENTATION TGridColumnSpecCellEh : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Classes::TPersistent* FOwner;
	Graphics::TFont* FFont;
	Graphics::TColor FColor;
	AnsiString FText;
	Graphics::TColor __fastcall GetColor(void);
	Graphics::TFont* __fastcall GetFont(void);
	AnsiString __fastcall GetText();
	bool __fastcall IsColorStored(void);
	bool __fastcall IsFontStored(void);
	bool __fastcall IsTextStored(void);
	void __fastcall FontChanged(System::TObject* Sender);
	void __fastcall SetColor(const Graphics::TColor Value);
	void __fastcall SetFont(const Graphics::TFont* Value);
	void __fastcall SetText(const AnsiString Value);
	
protected:
	bool FColorAssigned;
	bool FFontAssigned;
	bool FTextAssigned;
	Graphics::TColor __fastcall DefaultColor(void);
	Graphics::TFont* __fastcall DefaultFont(void);
	AnsiString __fastcall DefaultText();
	DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
	
public:
	__fastcall TGridColumnSpecCellEh(Classes::TPersistent* Owner);
	__fastcall virtual ~TGridColumnSpecCellEh(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property AnsiString Text = {read=GetText, write=SetText, stored=IsTextStored};
	__property Graphics::TColor Color = {read=GetColor, write=SetColor, stored=IsColorStored, nodefault};
	__property Graphics::TFont* Font = {read=GetFont, write=SetFont, stored=IsFontStored};
};


class DELPHICLASS TDBLookupGridColumnEh;
class PASCALIMPLEMENTATION TDBLookupGridColumnEh : public Dbgrideh::TColumnEh 
{
	typedef Dbgrideh::TColumnEh inherited;
	
private:
	TGridColumnSpecCellEh* FSpecCell;
	HIDESBASE TDBLookupGridEh* __fastcall GetGrid(void);
	void __fastcall SetSpecCell(const TGridColumnSpecCellEh* Value);
	
protected:
	virtual void __fastcall SetWidth(int Value);
	virtual void __fastcall SetIndex(int Value);
	
public:
	__fastcall virtual TDBLookupGridColumnEh(Classes::TCollection* Collection);
	__fastcall virtual ~TDBLookupGridColumnEh(void);
	__property TDBLookupGridEh* Grid = {read=GetGrid};
	
__published:
	__property Alignment ;
	__property AutoFitColWidth  = {default=1};
	__property Checkboxes ;
	__property Color ;
	__property EndEllipsis ;
	__property FieldName ;
	__property Font ;
	__property ImageList ;
	__property ImeMode ;
	__property ImeName ;
	__property KeyList ;
	__property MaxWidth  = {default=0};
	__property MinWidth  = {default=0};
	__property NotInKeyListIndex  = {default=-1};
	__property PickList ;
	__property PopupMenu ;
	__property ShowImageAndText  = {default=0};
	__property TGridColumnSpecCellEh* SpecCell = {read=FSpecCell, write=SetSpecCell};
	__property Tag  = {default=0};
	__property Title ;
	__property ToolTips ;
	__property Visible  = {default=1};
	__property Width ;
	__property OnGetCellParams ;
};


class DELPHICLASS TDBLookupGridColumnDefValuesEh;
class PASCALIMPLEMENTATION TDBLookupGridColumnDefValuesEh : public Dbgrideh::TColumnDefValuesEh 
{
	typedef Dbgrideh::TColumnDefValuesEh inherited;
	
__published:
	__property EndEllipsis  = {default=0};
	__property Title ;
	__property ToolTips  = {default=0};
public:
	#pragma option push -w-inl
	/* TColumnDefValuesEh.Create */ inline __fastcall TDBLookupGridColumnDefValuesEh(Dbgrideh::TCustomDBGridEh* Grid) : Dbgrideh::TColumnDefValuesEh(Grid) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TColumnDefValuesEh.Destroy */ inline __fastcall virtual ~TDBLookupGridColumnDefValuesEh(void) { }
	#pragma option pop
	
};


class DELPHICLASS TPopupDataGridEh;
class PASCALIMPLEMENTATION TPopupDataGridEh : public TDBLookupGridEh 
{
	typedef TDBLookupGridEh inherited;
	
private:
	Toolctrlseh::TCloseUpEventEh FOnMouseCloseUp;
	Classes::TNotifyEvent FOnUserKeyValueChange;
	Toolctrlseh::TSizeGripEh* FSizeGrip;
	bool FSizeGripResized;
	bool FUserKeyValueChanged;
	bool FKeySelection;
	HIDESBASE bool __fastcall CheckNewSize(int &NewWidth, int &NewHeight);
	HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
	MESSAGE void __fastcall CMSetSizeGripChangePosition(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
	HIDESBASE MESSAGE void __fastcall WMMouseActivate(Messages::TWMMouseActivate &Message);
	HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
	HIDESBASE MESSAGE void __fastcall WMWindowPosChanging(Messages::TWMWindowPosMsg &Message);
	
protected:
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	virtual void __fastcall DrawBorder(void);
	virtual void __fastcall KeyValueChanged(void);
	DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	void __fastcall UpdateBorderWidth(void);
	
public:
	__fastcall virtual TPopupDataGridEh(Classes::TComponent* AOwner);
	__fastcall virtual ~TPopupDataGridEh(void);
	DYNAMIC bool __fastcall CanFocus(void);
	DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
	DYNAMIC void __fastcall KeyUp(Word &Key, Classes::TShiftState Shift);
	__property Ctl3D ;
	__property ParentCtl3D  = {default=1};
	__property Toolctrlseh::TSizeGripEh* SizeGrip = {read=FSizeGrip};
	__property bool SizeGripResized = {read=FSizeGripResized, write=FSizeGripResized, nodefault};
	__property OnDrawColumnCell ;
	__property Classes::TNotifyEvent OnUserKeyValueChange = {read=FOnUserKeyValueChange, write=FOnUserKeyValueChange};
	__property Toolctrlseh::TCloseUpEventEh OnMouseCloseUp = {read=FOnMouseCloseUp, write=FOnMouseCloseUp};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TPopupDataGridEh(HWND ParentWindow) : TDBLookupGridEh(ParentWindow) { }
	#pragma option pop
	
};


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

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

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