mxoutlookbarpro.~hpp

医院信息系统 方法一： 1.运行SQL Server 2000的查询分析器

public:
	#pragma option push -w-inl
	/* TmxCustomBackground.Create */ inline __fastcall virtual TmxBackground(void) : TmxCustomBackground() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TmxCustomBackground.Destroy */ inline __fastcall virtual ~TmxBackground(void) { }
	#pragma option pop
	
};


class DELPHICLASS TmxBorder;
class PASCALIMPLEMENTATION TmxBorder : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	#pragma pack(push, 1)
	Types::TRect FRect;
	#pragma pack(pop)
	
	Word FSeparator;
	Classes::TNotifyEvent FOnChangeParameter;
	void __fastcall SetData(int Index, Word AValue);
	Word __fastcall GetData(int Index);
	
protected:
	DYNAMIC void __fastcall Change(void);
	
public:
	__property Types::TRect GetAsRect = {read=FRect};
	__fastcall virtual TmxBorder(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	virtual void __fastcall AssignTo(Classes::TPersistent* Destination);
	
__published:
	__property Word Bottom = {read=GetData, write=SetData, index=2, default=0};
	__property Word Left = {read=GetData, write=SetData, index=3, default=0};
	__property Word Right = {read=GetData, write=SetData, index=4, default=0};
	__property Word Separator = {read=GetData, write=SetData, index=5, default=0};
	__property Word Top = {read=GetData, write=SetData, index=1, default=0};
	__property Classes::TNotifyEvent OnChangeParameter = {read=FOnChangeParameter, write=FOnChangeParameter};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TmxBorder(void) { }
	#pragma option pop
	
};


class DELPHICLASS TmxCloseButton;
class PASCALIMPLEMENTATION TmxCloseButton : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	TmxHeader* FCloseHeader;
	#pragma pack(push, 1)
	Types::TRect FCloseRect;
	#pragma pack(pop)
	
	TmxButtonState FCloseState;
	Classes::TNotifyEvent FOnClose;
	void __fastcall SetVisible(bool AValue);
	bool __fastcall GetVisible(void);
	void __fastcall SetTransparent(bool AValue);
	bool __fastcall GetTransparent(void);
	void __fastcall SetCaption(AnsiString AValue);
	AnsiString __fastcall GetCaption();
	void __fastcall SetFont(Graphics::TFont* AValue);
	Graphics::TFont* __fastcall GetFont(void);
	void __fastcall SetHeight(int AValue);
	int __fastcall GetHeight(void);
	Word __fastcall GetMargin(void);
	void __fastcall SetMargin(Word AValue);
	int __fastcall GetImageIndex(void);
	void __fastcall SetImageIndex(int AValue);
	
public:
	__property Types::TRect CloseRect = {read=FCloseRect};
	__property TmxButtonState CloseState = {read=FCloseState, nodefault};
	__property TmxHeader* CloseHeader = {read=FCloseHeader};
	__fastcall virtual TmxCloseButton(TmxOutlookBarPro* AOwner);
	__fastcall virtual ~TmxCloseButton(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	virtual void __fastcall AssignTo(Classes::TPersistent* Destination);
	
__published:
	__property AnsiString Caption = {read=GetCaption, write=SetCaption};
	__property Graphics::TFont* Font = {read=GetFont, write=SetFont};
	__property int Height = {read=GetHeight, write=SetHeight, nodefault};
	__property int ImageIndex = {read=GetImageIndex, write=SetImageIndex, nodefault};
	__property Word Margin = {read=GetMargin, write=SetMargin, nodefault};
	__property bool Transparent = {read=GetTransparent, write=SetTransparent, nodefault};
	__property bool Visible = {read=GetVisible, write=SetVisible, default=0};
	__property Classes::TNotifyEvent OnClose = {read=FOnClose, write=FOnClose};
};


class DELPHICLASS TmxHeaders;
class PASCALIMPLEMENTATION TmxHeaders : public Classes::TCollection 
{
	typedef Classes::TCollection inherited;
	
public:
	TmxHeader* operator[](int Index) { return Headers[Index]; }
	
private:
	TmxOutlookBarPro* FOutlookBarPro;
	TmxHeader* __fastcall GetHeaderItem(int Index);
	void __fastcall SetHeaderItem(int Index, TmxHeader* AValue);
	
protected:
	DYNAMIC int __fastcall GetAttrCount(void);
	DYNAMIC AnsiString __fastcall GetAttr(int Index);
	DYNAMIC AnsiString __fastcall GetItemAttr(int Index, int ItemIndex);
	virtual void __fastcall SetItemName(Classes::TCollectionItem* Item);
	virtual void __fastcall Update(Classes::TCollectionItem* Item);
	DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
	
public:
	__fastcall TmxHeaders(TmxOutlookBarPro* AOutlookBarPro, TMetaClass* ItemClass);
	HIDESBASE TmxHeader* __fastcall Add(void);
	__property TmxOutlookBarPro* OutlookBarPro = {read=FOutlookBarPro};
	__property TmxHeader* Headers[int Index] = {read=GetHeaderItem, write=SetHeaderItem/*, default*/};
public:
	#pragma option push -w-inl
	/* TCollection.Destroy */ inline __fastcall virtual ~TmxHeaders(void) { }
	#pragma option pop
	
};


class DELPHICLASS TmxHeaderImages;
class PASCALIMPLEMENTATION TmxHeaderImages : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Imglist::TCustomImageList* FHot;
	Imglist::TChangeLink* FHotChangeLink;
	Imglist::TCustomImageList* FNormal;
	Imglist::TChangeLink* FNormalChangeLink;
	Classes::TComponent* FOwnerComponent;
	Classes::TNotifyEvent FOnChangeParameter;
	void __fastcall SetImages(int Index, Imglist::TCustomImageList* AValue);
	void __fastcall ImageListChange(System::TObject* Sender);
	
protected:
	DYNAMIC void __fastcall Change(void);
	
public:
	__fastcall virtual TmxHeaderImages(Classes::TComponent* AOwner);
	__fastcall virtual ~TmxHeaderImages(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	virtual void __fastcall AssignTo(Classes::TPersistent* Destination);
	
__published:
	__property Imglist::TCustomImageList* Hot = {read=FHot, write=SetImages, index=2};
	__property Imglist::TCustomImageList* Normal = {read=FNormal, write=SetImages, index=1};
	__property Classes::TNotifyEvent OnChangeParameter = {read=FOnChangeParameter, write=FOnChangeParameter};
};


class DELPHICLASS TmxInplaceEditor;
class DELPHICLASS TmxInplaceEdit;
class PASCALIMPLEMENTATION TmxInplaceEdit : public Stdctrls::TCustomEdit 
{
	typedef Stdctrls::TCustomEdit inherited;
	
private:
	Classes::TAlignment FAlignment;
	bool FActivate;
	Graphics::TColor FBorderColor;
	bool FFlat;
	bool FShowBorder;
	bool FMouseInHeader;
	bool FWordWrap;
	HIDESBASE MESSAGE void __fastcall WMNCPaint(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMMouseEnter(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall CMMouseLeave(Messages::TMessage &Message);
	HIDESBASE MESSAGE void __fastcall WMSetFocus(Messages::TWMSetFocus &Message);
	HIDESBASE MESSAGE void __fastcall WMKillFocus(Messages::TWMKillFocus &Message);
	HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
	void __fastcall DrawComponentBorder(Graphics::TColor AColor, Graphics::TColor ABorder, TmxBorderStyle AStyle, Graphics::TCanvas* ACanvas, const Types::TRect &ARect);
	HIDESBASE void __fastcall SetFont(Graphics::TFont* AValue);
	Graphics::TFont* __fastcall GetFont(void);
	void __fastcall SetBorderColor(Graphics::TColor AValue);
	void __fastcall SetFlat(bool AValue);
	void __fastcall SetShowBorder(bool AValue);
	void __fastcall SetWordWrap(bool AValue);
	void __fastcall SetAlignment(Classes::TAlignment AValue);
	
protected:
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	void __fastcall SetControlBorder(void);
	HIDESBASE void __fastcall InvalidateControl(void);
	
public:
	__fastcall virtual TmxInplaceEdit(Classes::TComponent* AOwner);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	virtual void __fastcall AssignTo(Classes::TPersistent* Destination);
	
__published:
	__property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, default=0};
	__property bool Activate = {read=FActivate, write=FActivate, nodefault};
	__property Graphics::TColor BorderColor = {read=FBorderColor, write=SetBorderColor, nodefault};
	__property bool Flat = {read=FFlat, write=SetFlat, nodefault};
	__property bool ShowBorder = {read=FShowBorder, write=SetShowBorder, nodefault};
	__property Graphics::TFont* Font = {read=GetFont, write=SetFont};
	__property bool WordWrap = {read=FWordWrap, write=SetWordWrap, default=1};
	__property PopupMenu ;
	__property OnContextPopup  = {stored=false};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TmxInplaceEdit(HWND ParentWindow) : Stdctrls::TCustomEdit(ParentWindow) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TWinControl.Destroy */ inline __fastcall virtual ~TmxInplaceEdit(void) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TmxInplaceEditor : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	bool FHeaderEdit;
	TmxInplaceEdit* FEdit;
	Classes::TCollectionItem* FEditingItem;
	bool FEditing;
	Classes::TNotifyEvent FOnChange;
	void __fastcall SetFont(Graphics::TFont* AValue);
	Graphics::TFont* __fastcall GetFont(void);
	Graphics::TColor __fastcall GetBorderColor(void);
	void __fastcall SetBorderColor(Graphics::TColor AValue);
	bool __fastcall GetFlat(void);
	void __fastcall SetFlat(bool AValue);
	void __fastcall SetShowBorder(bool AValue);
	bool __fastcall GetShowBorder(void);
	void __fastcall SetWordWrap(bool AValue);
	bool __fastcall GetWordWrap(void);
	void __fastcall SetAlignment(Classes::TAlignment AValue);
	Classes::TAlignment __fastcall GetAlignment(void);
	void __fastcall SetPopup(Menus::TPopupMenu* AValue);
	Menus::TPopupMenu* __fastcall GetPopup(void);
	void __fastcall SetOnContextPopup(Controls::TContextPopupEvent AValue);
	Controls::TContextPopupEvent __fastcall GetOnContextPopup();
	void __fastcall DoEndEdit(bool ACancel);
	void __fastcall OnEditExit(System::TObject* Sender);
	void __fastcall DoEditKeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
	
protected:
	DYNAMIC void __fastcall Change(void);
	virtual void __fastcall DoProcessEditResults(bool ACancel);
	
public:
	__property bool Editing = {read=FEditing, nodefault};
	__fastcall virtual TmxInplaceEditor(TmxOutlookBarPro* AOwner);
	void __fastcall EditHeader(TmxHeader* AHeader);
	void __fastcall EditButton(TmxButton* AButton);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	virtual void __fastcall AssignTo(Classes::TPersistent* Destination);
	
__published:
	__property Classes::TAlignment Alignment = {read=GetAlignment, write=SetAlignment, nodefault};
	__property Graphics::TColor BorderColor = {read=GetBorderColor, write=SetBorderColor, nodefault};
	__property bool Flat = {read=GetFlat, write=SetFlat, nodefault};
	__property bool ShowBorder = {read=GetShowBorder, write=SetShowBorder, nodefault};
	__property Graphics::TFont* Font = {read=GetFont, write=SetFont};
	__property bool WordWrap = {read=GetWordWrap, write=SetWordWrap, nodefault};
	__property Menus::TPopupMenu* PopupMenu = {read=GetPopup, write=SetPopup};
	__property Controls::TContextPopupEvent OnContextPopup = {read=GetOnContextPopup, write=SetOnContextPopup};
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TmxInplaceEditor(void) { }
	#pragma option pop
	
};


typedef void __fastcall (__closure *TmxEventHeaderChange)(System::TObject* Sender, int OldIndex, int NewIndex);

typedef void __fastcall (__closure *TmxEventCanChangeHeader)(System::TObject* Sender, TmxHeader* NewHeader, bool &CanChange);