toolctrlseh.hpp

最新的 DBGRIDEH4.0

	DYNAMIC TMetaClass* __fastcall GetActionLinkClass(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	virtual void __fastcall Click(System::TObject* Sender, bool &Handled);
	virtual void __fastcall InitiateAction(void);
	__property Classes::TNotifyEvent OnChanged = {read=FOnChanged, write=FOnChanged};
	
__published:
	__property Classes::TBasicAction* Action = {read=GetAction, write=SetAction};
	__property Menus::TPopupMenu* DropdownMenu = {read=FDropdownMenu, write=FDropdownMenu};
	__property bool Enabled = {read=FEnabled, write=SetEnabled, stored=IsEnabledStored, default=1};
	__property Graphics::TBitmap* Glyph = {read=GetGlyph, write=SetGlyph};
	__property AnsiString Hint = {read=FHint, write=SetHint, stored=IsHintStored};
	__property int NumGlyphs = {read=FNumGlyphs, write=SetNumGlyphs, default=1};
	__property Classes::TShortCut ShortCut = {read=FShortCut, write=FShortCut, stored=IsShortCutStored, default=0};
	__property TEditButtonStyleEh Style = {read=FStyle, write=SetStyle, default=0};
	__property bool Visible = {read=FVisible, write=SetVisible, stored=IsVisibleStored, default=0};
	__property int Width = {read=FWidth, write=SetWidth, default=0};
	__property TButtonClickEventEh OnClick = {read=FOnButtonClick, write=FOnButtonClick};
	__property TButtonDownEventEh OnDown = {read=FOnButtonDown, write=FOnButtonDown};
};


class PASCALIMPLEMENTATION TEditButtonActionLinkEh : public Actnlist::TActionLink 
{
	typedef Actnlist::TActionLink inherited;
	
protected:
	TEditButtonEh* FClient;
	virtual void __fastcall AssignClient(System::TObject* AClient);
	virtual bool __fastcall IsEnabledLinked(void);
	virtual bool __fastcall IsHintLinked(void);
	virtual bool __fastcall IsShortCutLinked(void);
	virtual bool __fastcall IsVisibleLinked(void);
	virtual void __fastcall SetEnabled(bool Value);
	virtual void __fastcall SetHint(const AnsiString Value);
	virtual void __fastcall SetShortCut(Classes::TShortCut Value);
	virtual void __fastcall SetVisible(bool Value);
public:
	#pragma option push -w-inl
	/* TBasicActionLink.Create */ inline __fastcall virtual TEditButtonActionLinkEh(System::TObject* AClient) : Actnlist::TActionLink(AClient) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TBasicActionLink.Destroy */ inline __fastcall virtual ~TEditButtonActionLinkEh(void) { }
	#pragma option pop
	
};


typedef TMetaClass* TEditButtonEhClass;

class DELPHICLASS TDropDownEditButtonEh;
class PASCALIMPLEMENTATION TDropDownEditButtonEh : public TEditButtonEh 
{
	typedef TEditButtonEh inherited;
	
public:
	__fastcall virtual TDropDownEditButtonEh(Classes::TCollection* Collection)/* overload */;
	__fastcall TDropDownEditButtonEh(Controls::TWinControl* EditControl)/* overload */;
	
__published:
	__property ShortCut  = {default=32808};
public:
	#pragma option push -w-inl
	/* TEditButtonEh.Destroy */ inline __fastcall virtual ~TDropDownEditButtonEh(void) { }
	#pragma option pop
	
};


class DELPHICLASS TVisibleEditButtonEh;
class PASCALIMPLEMENTATION TVisibleEditButtonEh : public TEditButtonEh 
{
	typedef TEditButtonEh inherited;
	
public:
	__fastcall virtual TVisibleEditButtonEh(Classes::TCollection* Collection)/* overload */;
	__fastcall TVisibleEditButtonEh(Controls::TWinControl* EditControl)/* overload */;
	
__published:
	__property ShortCut  = {default=32808};
	__property Visible  = {default=1};
public:
	#pragma option push -w-inl
	/* TEditButtonEh.Destroy */ inline __fastcall virtual ~TVisibleEditButtonEh(void) { }
	#pragma option pop
	
};


class DELPHICLASS TEditButtonsEh;
class PASCALIMPLEMENTATION TEditButtonsEh : public Classes::TCollection 
{
	typedef Classes::TCollection inherited;
	
public:
	TEditButtonEh* operator[](int Index) { return Items[Index]; }
	
private:
	Classes::TNotifyEvent FOnChanged;
	TEditButtonEh* __fastcall GetEditButton(int Index);
	void __fastcall SetEditButton(int Index, TEditButtonEh* Value);
	
protected:
	Classes::TPersistent* FOwner;
	DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
	virtual void __fastcall Update(Classes::TCollectionItem* Item);
	
public:
	__fastcall TEditButtonsEh(Classes::TPersistent* Owner, TMetaClass* EditButtonClass);
	HIDESBASE TEditButtonEh* __fastcall Add(void);
	__property TEditButtonEh* Items[int Index] = {read=GetEditButton, write=SetEditButton/*, default*/};
	__property Classes::TNotifyEvent OnChanged = {read=FOnChanged, write=FOnChanged};
public:
	#pragma option push -w-inl
	/* TCollection.Destroy */ inline __fastcall virtual ~TEditButtonsEh(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSpecRowEh;
class PASCALIMPLEMENTATION TSpecRowEh : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Classes::TStrings* FCellsStrings;
	AnsiString FCellsText;
	Graphics::TColor FColor;
	Graphics::TFont* FFont;
	Classes::TNotifyEvent FOnChanged;
	Classes::TPersistent* FOwner;
	bool FSelected;
	Classes::TShortCut FShortCut;
	bool FShowIfNotInKeyList;
	int FUpdateCount;
	Variant FValue;
	bool FVisible;
	AnsiString __fastcall GetCellText(int Index);
	Graphics::TColor __fastcall GetColor(void);
	Graphics::TFont* __fastcall GetFont(void);
	bool __fastcall IsColorStored(void);
	bool __fastcall IsFontStored(void);
	bool __fastcall IsValueStored(void);
	void __fastcall FontChanged(System::TObject* Sender);
	void __fastcall SetCellsText(const AnsiString Value);
	void __fastcall SetColor(const Graphics::TColor Value);
	void __fastcall SetFont(const Graphics::TFont* Value);
	void __fastcall SetShowIfNotInKeyList(const bool Value);
	void __fastcall SetValue(const Variant &Value);
	void __fastcall SetVisible(const bool Value);
	
protected:
	bool FColorAssigned;
	bool FFontAssigned;
	DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
	void __fastcall Changed(void);
	
public:
	__fastcall TSpecRowEh(Classes::TPersistent* Owner);
	__fastcall virtual ~TSpecRowEh(void);
	Graphics::TColor __fastcall DefaultColor(void);
	Graphics::TFont* __fastcall DefaultFont(void);
	bool __fastcall LocateKey(const Variant &KeyValue);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	void __fastcall BeginUpdate(void);
	void __fastcall EndUpdate(void);
	__property AnsiString CellText[int Index] = {read=GetCellText};
	__property bool Selected = {read=FSelected, write=FSelected, nodefault};
	__property int UpdateCount = {read=FUpdateCount, nodefault};
	__property Classes::TNotifyEvent OnChanged = {read=FOnChanged, write=FOnChanged};
	
__published:
	__property AnsiString CellsText = {read=FCellsText, write=SetCellsText};
	__property Graphics::TColor Color = {read=GetColor, write=SetColor, stored=IsColorStored, nodefault};
	__property Graphics::TFont* Font = {read=GetFont, write=SetFont, stored=IsFontStored};
	__property Classes::TShortCut ShortCut = {read=FShortCut, write=FShortCut, default=32814};
	__property bool ShowIfNotInKeyList = {read=FShowIfNotInKeyList, write=SetShowIfNotInKeyList, default=1};
	__property Variant Value = {read=FValue, write=SetValue, stored=IsValueStored};
	__property bool Visible = {read=FVisible, write=SetVisible, default=0};
};


#pragma option push -b-
enum TSizeGripPostion { sgpTopLeft, sgpTopRight, sgpBottomRight, sgpBottomLeft };
#pragma option pop

#pragma option push -b-
enum TSizeGripChangePosition { sgcpToLeft, sgcpToRight, sgcpToTop, sgcpToBottom };
#pragma option pop

class DELPHICLASS TSizeGripEh;
class PASCALIMPLEMENTATION TSizeGripEh : public Controls::TCustomControl 
{
	typedef Controls::TCustomControl inherited;
	
private:
	#pragma pack(push,1)
	Types::TPoint FInitScreenMousePos;
	#pragma pack(pop)
	bool FInternalMove;
	#pragma pack(push,1)
	Types::TPoint FOldMouseMovePos;
	#pragma pack(pop)
	#pragma pack(push,1)
	Types::TRect FParentRect;
	#pragma pack(pop)
	Classes::TNotifyEvent FParentResized;
	TSizeGripPostion FPosition;
	bool FTriangleWindow;
	bool __fastcall GetVisible(void);
	void __fastcall SetPosition(const TSizeGripPostion Value);
	void __fastcall SetTriangleWindow(const bool Value);
	HIDESBASE void __fastcall SetVisible(const bool Value);
	HIDESBASE MESSAGE void __fastcall WMMove(Messages::TWMMove &Message);
	
protected:
	virtual void __fastcall CreateWnd(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);
	virtual void __fastcall Paint(void);
	DYNAMIC void __fastcall ParentResized(void);
	
public:
	__fastcall virtual TSizeGripEh(Classes::TComponent* AOwner);
	void __fastcall ChangePosition(TSizeGripChangePosition NewPosition);
	void __fastcall UpdatePosition(void);
	void __fastcall UpdateWindowRegion(void);
	__property TSizeGripPostion Position = {read=FPosition, write=SetPosition, default=2};
	__property bool TriangleWindow = {read=FTriangleWindow, write=SetTriangleWindow, default=1};
	__property bool Visible = {read=GetVisible, write=SetVisible, nodefault};
	__property Classes::TNotifyEvent OnParentResized = {read=FParentResized, write=FParentResized};
public:
	#pragma option push -w-inl
	/* TCustomControl.Destroy */ inline __fastcall virtual ~TSizeGripEh(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TSizeGripEh(HWND ParentWindow) : Controls::TCustomControl(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TPopupMonthCalendarEh;
class PASCALIMPLEMENTATION TPopupMonthCalendarEh : public Comctrls::TMonthCalendar 
{
	typedef Comctrls::TMonthCalendar inherited;
	
private:
	int FBorderWidth;
	MESSAGE void __fastcall CMCloseUpEh(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
	MESSAGE void __fastcall CMWantSpecialKey(Messages::TWMKey &Message);
	MESSAGE void __fastcall WMGetDlgCode(Messages::TWMNoParams &Message);
	HIDESBASE MESSAGE void __fastcall WMKillFocus(Messages::TWMKillFocus &Message);
	HIDESBASE MESSAGE void __fastcall WMNCCalcSize(Messages::TWMNCCalcSize &Message);
	HIDESBASE MESSAGE void __fastcall WMNCPaint(Messages::TWMNCPaint &Message);
	
protected:
	virtual bool __fastcall CanAutoSize(int &NewWidth, int &NewHeight);
	DYNAMIC bool __fastcall DoMouseWheelDown(Classes::TShiftState Shift, const Types::TPoint &MousePos);
	DYNAMIC bool __fastcall DoMouseWheelUp(Classes::TShiftState Shift, const Types::TPoint &MousePos);
	virtual bool __fastcall MsgSetDateTime(const _SYSTEMTIME &Value);
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	virtual void __fastcall CreateWnd(void);
	virtual void __fastcall DrawBorder(void);
	DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
	DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	void __fastcall PostCloseUp(bool Accept);
	void __fastcall UpdateBorderWidth(void);
	
public:
	__fastcall virtual TPopupMonthCalendarEh(Classes::TComponent* AOwner);
	__property Color  = {default=-16777211};
	__property Ctl3D ;
public:
	#pragma option push -w-inl
	/* TCommonCalendar.Destroy */ inline __fastcall virtual ~TPopupMonthCalendarEh(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TPopupMonthCalendarEh(HWND ParentWindow) : Comctrls::TMonthCalendar(ParentWindow) { }
	#pragma option pop
	
};


typedef void __fastcall (__closure *TListGetImageIndexEventEh)(System::TObject* Sender, int ItemIndex, int &ImageIndex);

class DELPHICLASS TPopupListboxEh;
class PASCALIMPLEMENTATION TPopupListboxEh : public Stdctrls::TCustomListBox 
{
	typedef Stdctrls::TCustomListBox inherited;