⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 aqdockcustform.hpp

📁 AutomatedDocking Library 控件源代码修改 适合Delphi 2009 和C++ Builder 20009 使用。 修正汉字不能正确显示问题
💻 HPP
字号:
// CodeGear C++Builder
// Copyright (c) 1995, 2008 by CodeGear
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Aqdockcustform.pas' rev: 20.00

#ifndef AqdockcustformHPP
#define AqdockcustformHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp>	// Pascal unit
#include <Sysinit.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Types.hpp>	// Pascal unit
#include <Contnrs.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Stdctrls.hpp>	// Pascal unit
#include <Comctrls.hpp>	// Pascal unit
#include <Extctrls.hpp>	// Pascal unit
#include <Appevnts.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Aqdocking.hpp>	// Pascal unit
#include <Aqdockingbase.hpp>	// Pascal unit
#include <Aqdockingui.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Aqdockcustform
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TaqDockingManagerFriend;
class PASCALIMPLEMENTATION TaqDockingManagerFriend : public Aqdocking::TaqDockingManager
{
	typedef Aqdocking::TaqDockingManager inherited;
	
public:
	/* TaqDockingManager.Create */ inline __fastcall virtual TaqDockingManagerFriend(Classes::TComponent* AOwner) : Aqdocking::TaqDockingManager(AOwner) { }
	/* TaqDockingManager.Destroy */ inline __fastcall virtual ~TaqDockingManagerFriend(void) { }
	
};


class DELPHICLASS TfrmDockingSetup;
class PASCALIMPLEMENTATION TfrmDockingSetup : public Forms::TForm
{
	typedef Forms::TForm inherited;
	
__published:
	Comctrls::TPageControl* pgcDockSetup;
	Extctrls::TPanel* Panel1;
	Stdctrls::TButton* btnClose;
	Comctrls::TTabSheet* tsPanels;
	Extctrls::TPanel* Panel3;
	Extctrls::TPanel* Panel2;
	Extctrls::TPanel* Panel4;
	Comctrls::TTabSheet* tsStyles;
	Comctrls::TTabSheet* tsSettings;
	Stdctrls::TCheckBox* chkAutoDrag;
	Stdctrls::TGroupBox* GroupBox2;
	Stdctrls::TCheckBox* chkHelp;
	Stdctrls::TCheckBox* chkHide;
	Stdctrls::TCheckBox* chkUndock;
	Stdctrls::TCheckBox* chkMax;
	Stdctrls::TCheckBox* chkAutoHideButtons;
	Stdctrls::TCheckBox* chkFloatOnTop;
	Stdctrls::TGroupBox* GroupBox1;
	Stdctrls::TCheckBox* chkShowInside;
	Stdctrls::TCheckBox* chkShowVert;
	Stdctrls::TCheckBox* chkShowHor;
	Extctrls::TPanel* pnlStyleWarn;
	Stdctrls::TLabel* Label1;
	Extctrls::TImage* Image1;
	Extctrls::TPanel* Panel6;
	Stdctrls::TLabel* lblStyles;
	Comctrls::TListView* lvStyles;
	Stdctrls::TButton* btnApply;
	Extctrls::TPanel* pnlSiteWarn;
	Stdctrls::TLabel* Label2;
	Extctrls::TImage* Image2;
	Extctrls::TPanel* Panel7;
	Stdctrls::TLabel* lblPanels;
	Comctrls::TListView* lvPanels;
	Stdctrls::TButton* btnNew;
	Stdctrls::TButton* btnRename;
	Stdctrls::TButton* btnDelete;
	Extctrls::TBevel* Bevel1;
	Stdctrls::TButton* btnShow;
	Stdctrls::TCheckBox* chkMenu;
	Stdctrls::TCheckBox* chkShowHint;
	Stdctrls::TButton* btnHide;
	Stdctrls::TCheckBox* chkCustom;
	void __fastcall btnNewClick(System::TObject* Sender);
	void __fastcall lvPanelsEdited(System::TObject* Sender, Comctrls::TListItem* Item, System::UnicodeString &S);
	void __fastcall FormClose(System::TObject* Sender, Forms::TCloseAction &Action);
	void __fastcall btnCloseClick(System::TObject* Sender);
	void __fastcall btnRenameClick(System::TObject* Sender);
	void __fastcall lvPanelsEditing(System::TObject* Sender, Comctrls::TListItem* Item, bool &AllowEdit);
	void __fastcall btnDeleteClick(System::TObject* Sender);
	void __fastcall btnApplyClick(System::TObject* Sender);
	void __fastcall btnShowClick(System::TObject* Sender);
	void __fastcall btnHideClick(System::TObject* Sender);
	void __fastcall pgcDockSetupChange(System::TObject* Sender);
	void __fastcall chkAutoDragClick(System::TObject* Sender);
	void __fastcall chkShowInsideClick(System::TObject* Sender);
	void __fastcall chkButtonClick(System::TObject* Sender);
	void __fastcall chkShowHintClick(System::TObject* Sender);
	void __fastcall chkAutoHideButtonsClick(System::TObject* Sender);
	void __fastcall lvPanelsSelectItem(System::TObject* Sender, Comctrls::TListItem* Item, bool Selected);
	void __fastcall lvPanelsChanging(System::TObject* Sender, Comctrls::TListItem* Item, Comctrls::TItemChange Change, bool &AllowChange);
	void __fastcall lvStylesSelectItem(System::TObject* Sender, Comctrls::TListItem* Item, bool Selected);
	void __fastcall lvStylesChanging(System::TObject* Sender, Comctrls::TListItem* Item, Comctrls::TItemChange Change, bool &AllowChange);
	void __fastcall chkFloatOnTopClick(System::TObject* Sender);
	void __fastcall chkShowVertClick(System::TObject* Sender);
	void __fastcall chkShowHorClick(System::TObject* Sender);
	void __fastcall FormKeyPress(System::TObject* Sender, System::WideChar &Key);
	
private:
	TaqDockingManagerFriend* FManager;
	bool FUpdatePanels;
	bool FUpdateSettings;
	bool FUpdateStyles;
	bool FDesigning;
	bool FStayOnTop;
	bool FDockSetupDestroying;
	Aqdockingbase::TaqCustomDockingControl* __fastcall GetSelectedPanel(void);
	Aqdockingui::TaqDockingUIStyle* __fastcall GetSelectedStyle(void);
	void __fastcall UpdatePanelList(void);
	void __fastcall UpdateStyleList(void);
	void __fastcall UpdateSettings(void);
	void __fastcall NewPanel(void);
	void __fastcall RenamePanel(void);
	void __fastcall DeletePanel(void);
	void __fastcall ShowPanel(void);
	void __fastcall HidePanel(void);
	Comctrls::TListItem* __fastcall GetItemByControl(Aqdockingbase::TaqCustomDockingControl* AControl);
	Comctrls::TListItem* __fastcall GetItemByStyle(Aqdockingui::TaqDockingUIStyle* AStyle);
	Comctrls::TListItem* __fastcall AddPanel(Aqdockingbase::TaqCustomDockingControl* AControl);
	Comctrls::TListItem* __fastcall AddStyle(Aqdockingui::TaqDockingUIStyle* AStyle, const System::UnicodeString AStyleName);
	void __fastcall UpdatePage(Comctrls::TTabSheet* APage);
	void __fastcall SelectComponent(Classes::TPersistent* AComponent);
	void __fastcall ApplicationEventsActivate(System::TObject* Sender);
	void __fastcall ApplicationEventsRestore(System::TObject* Sender);
	__property Aqdockingbase::TaqCustomDockingControl* SelectedPanel = {read=GetSelectedPanel};
	__property Aqdockingui::TaqDockingUIStyle* SelectedStyle = {read=GetSelectedStyle};
	
protected:
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
	__property bool Designing = {read=FDesigning, nodefault};
	
public:
	__fastcall TfrmDockingSetup(Aqdocking::TaqDockingManager* AManager);
	__fastcall virtual ~TfrmDockingSetup(void);
	void __fastcall UpdatePanel(Aqdockingbase::TaqCustomDockingControl* AControl);
	void __fastcall SelectPanel(Aqdockingbase::TaqCustomDockingControl* AControl, bool AEdit);
	void __fastcall SelectPage(const System::UnicodeString APageName);
public:
	/* TCustomForm.Create */ inline __fastcall virtual TfrmDockingSetup(Classes::TComponent* AOwner) : Forms::TForm(AOwner) { }
	/* TCustomForm.CreateNew */ inline __fastcall virtual TfrmDockingSetup(Classes::TComponent* AOwner, int Dummy) : Forms::TForm(AOwner, Dummy) { }
	
public:
	/* TWinControl.CreateParented */ inline __fastcall TfrmDockingSetup(HWND ParentWindow) : Forms::TForm(ParentWindow) { }
	
};


class DELPHICLASS TaqDockingManagerCustomizer;
class PASCALIMPLEMENTATION TaqDockingManagerCustomizer : public System::TInterfacedObject
{
	typedef System::TInterfacedObject inherited;
	
private:
	bool FCustomizing;
	TfrmDockingSetup* FForm;
	Contnrs::TComponentList* FDisabledWindows;
	void __fastcall FormDestroy(System::TObject* Sender);
	
protected:
	void __fastcall EnableParentForms(bool AEnable);
	void __fastcall SelectPanel(Aqdockingbase::TaqCustomDockingControl* AControl, bool AEdit);
	void __fastcall ShowDockingSetup(Aqdocking::TaqDockingManager* ADockingManager, bool AShow = true, const System::UnicodeString ActivePage = L"");
	void __fastcall UpdatePanel(Aqdockingbase::TaqCustomDockingControl* AControl);
	bool __fastcall GetCustomizing(void);
	
public:
	__fastcall virtual ~TaqDockingManagerCustomizer(void);
public:
	/* TObject.Create */ inline __fastcall TaqDockingManagerCustomizer(void) : System::TInterfacedObject() { }
	
private:
	void *__IaqDockingManagerCustomizer;	/* Aqdocking::IaqDockingManagerCustomizer */
	
public:
	#if defined(MANAGED_INTERFACE_OPERATORS)
	operator Aqdocking::_di_IaqDockingManagerCustomizer()
	{
		Aqdocking::_di_IaqDockingManagerCustomizer intf;
		GetInterface(intf);
		return intf;
	}
	#else
	operator IaqDockingManagerCustomizer*(void) { return (IaqDockingManagerCustomizer*)&__IaqDockingManagerCustomizer; }
	#endif
	
};


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

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

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

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -