home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 2000 May / PCP163A.iso / Runimage / Cbuilder4 / Include / Vcl / DSGNINTF.HPP < prev    next >
Encoding:
C/C++ Source or Header  |  1999-01-26  |  41.3 KB  |  1,218 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'DsgnIntf.pas' rev: 4.00
  6.  
  7. #ifndef DsgnIntfHPP
  8. #define DsgnIntfHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #include <TypInfo.hpp>    // Pascal unit
  13. #include <Forms.hpp>    // Pascal unit
  14. #include <Controls.hpp>    // Pascal unit
  15. #include <Graphics.hpp>    // Pascal unit
  16. #include <Classes.hpp>    // Pascal unit
  17. #include <SysUtils.hpp>    // Pascal unit
  18. #include <Windows.hpp>    // Pascal unit
  19. #include <SysInit.hpp>    // Pascal unit
  20. #include <System.hpp>    // Pascal unit
  21.  
  22. //-- user supplied -----------------------------------------------------------
  23.  
  24. namespace Dsgnintf
  25. {
  26. //-- type declarations -------------------------------------------------------
  27. __interface IEventInfos;
  28. typedef System::DelphiInterface<IEventInfos> _di_IEventInfos;
  29. __interface IEventInfos  : public IUnknown /* __guid="{11667FF0-7590-11D1-9FBC-0020AF3D82DA}" */
  30. {
  31.     
  32. public:
  33.     virtual int __fastcall GetCount(void) = 0 ;
  34.     virtual AnsiString __fastcall GetEventValue(int Index) = 0 ;
  35.     virtual AnsiString __fastcall GetEventName(int Index) = 0 ;
  36.     virtual void __fastcall ClearEvent(int Index) = 0 ;
  37.     __property int Count = {read=GetCount};
  38. };
  39.  
  40. __interface IPersistent;
  41. typedef System::DelphiInterface<IPersistent> _di_IPersistent;
  42. __interface IPersistent  : public IUnknown /* __guid="{82330133-65D1-11D1-9FBB-0020AF3D82DA}" */
  43. {
  44.     
  45. public:
  46.     virtual void __fastcall DestroyObject(void) = 0 ;
  47.     virtual bool __fastcall Equals(const _di_IPersistent Other) = 0 ;
  48.     virtual AnsiString __fastcall GetClassname(void) = 0 ;
  49.     virtual _di_IEventInfos __fastcall GetEventInfos(void) = 0 ;
  50.     virtual AnsiString __fastcall GetNamePath(void) = 0 ;
  51.     virtual _di_IPersistent __fastcall GetOwner(void) = 0 ;
  52.     virtual bool __fastcall InheritsFrom(const AnsiString Classname) = 0 ;
  53.     virtual bool __fastcall IsComponent(void) = 0 ;
  54.     virtual bool __fastcall IsControl(void) = 0 ;
  55.     virtual bool __fastcall IsWinControl(void) = 0 ;
  56.     __property AnsiString Classname = {read=GetClassname};
  57.     __property _di_IPersistent Owner = {read=GetOwner};
  58.     __property AnsiString NamePath = {read=GetNamePath};
  59.     __property _di_IEventInfos EventInfos = {read=GetEventInfos};
  60. };
  61.  
  62. __interface IComponent;
  63. typedef System::DelphiInterface<IComponent> _di_IComponent;
  64. __interface IComponent  : public IPersistent /* __guid="{B2F6D681-5098-11D1-9FB5-0020AF3D82DA}" */
  65. {
  66.     
  67. public:
  68.     virtual _di_IComponent __fastcall FindComponent(const AnsiString Name) = 0 ;
  69.     virtual int __fastcall GetComponentCount(void) = 0 ;
  70.     virtual _di_IComponent __fastcall GetComponents(int Index) = 0 ;
  71.     virtual Classes::TComponentState __fastcall GetComponentState(void) = 0 ;
  72.     virtual Classes::TComponentStyle __fastcall GetComponentStyle(void) = 0 ;
  73.     virtual Windows::TSmallPoint __fastcall GetDesignInfo(void) = 0 ;
  74.     virtual Windows::TPoint __fastcall GetDesignOffset(void) = 0 ;
  75.     virtual Windows::TPoint __fastcall GetDesignSize(void) = 0 ;
  76.     virtual AnsiString __fastcall GetName(void) = 0 ;
  77.     HIDESBASE virtual _di_IComponent __fastcall GetOwner(void) = 0 ;
  78.     virtual _di_IComponent __fastcall GetParent(void) = 0 ;
  79.     virtual void __fastcall SetDesignInfo(const Windows::TSmallPoint Point) = 0 ;
  80.     virtual void __fastcall SetDesignOffset(const Windows::TPoint &Point) = 0 ;
  81.     virtual void __fastcall SetDesignSize(const Windows::TPoint &Point) = 0 ;
  82.     virtual void __fastcall SetName(const AnsiString Value) = 0 ;
  83.     __property int ComponentCount = {read=GetComponentCount};
  84.     __property _di_IComponent Components[int Index] = {read=GetComponents};
  85.     __property Classes::TComponentState ComponentState = {read=GetComponentState};
  86.     __property Classes::TComponentStyle ComponentStyle = {read=GetComponentStyle};
  87.     __property Windows::TSmallPoint DesignInfo = {read=GetDesignInfo, write=SetDesignInfo};
  88.     __property Windows::TPoint DesignOffset = {read=GetDesignOffset, write=SetDesignOffset};
  89.     __property Windows::TPoint DesignSize = {read=GetDesignSize, write=SetDesignSize};
  90.     __property AnsiString Name = {read=GetName, write=SetName};
  91.     __property _di_IComponent Owner = {read=GetOwner};
  92.     __property _di_IComponent Parent = {read=GetParent};
  93. };
  94.  
  95. __interface IImplementation;
  96. typedef System::DelphiInterface<IImplementation> _di_IImplementation;
  97. __interface IImplementation  : public IUnknown /* __guid="{F9D448F2-50BC-11D1-9FB5-0020AF3D82DA}" */
  98.     
  99. {
  100.     
  101. public:
  102.     virtual System::TObject* __fastcall GetInstance(void) = 0 ;
  103. };
  104.  
  105. __interface IDesignerSelections;
  106. typedef System::DelphiInterface<IDesignerSelections> _di_IDesignerSelections;
  107. __interface IDesignerSelections  : public IUnknown /* __guid="{82330134-65D1-11D1-9FBB-0020AF3D82DA}" */
  108.     
  109. {
  110.     
  111. public:
  112.     virtual int __fastcall Add(const _di_IPersistent Item) = 0 ;
  113.     virtual bool __fastcall Equals(const _di_IDesignerSelections List) = 0 ;
  114.     virtual _di_IPersistent __fastcall Get(int Index) = 0 ;
  115.     virtual int __fastcall GetCount(void) = 0 ;
  116.     __property int Count = {read=GetCount};
  117.     __property _di_IPersistent Items[int Index] = {read=Get/*, default*/};
  118. };
  119.  
  120. __interface IComponentList;
  121. typedef System::DelphiInterface<IComponentList> _di_IComponentList;
  122. class DELPHICLASS TComponentList;
  123. __interface IComponentList  : public IUnknown /* __guid="{8ED8AD16-A241-11D1-AA94-00C04FB17A72}" */
  124. {
  125.     
  126. public:
  127.     virtual TComponentList* __fastcall GetComponentList(void) = 0 ;
  128. };
  129.  
  130. #pragma pack(push, 4)
  131. class PASCALIMPLEMENTATION TComponentList : public System::TInterfacedObject 
  132. {
  133.     typedef System::TInterfacedObject inherited;
  134.     
  135. private:
  136.     Classes::TList* FList;
  137.     int __fastcall Intf_Add(const _di_IPersistent Item);
  138.     bool __fastcall Intf_Equals(const _di_IDesignerSelections List);
  139.     _di_IPersistent __fastcall Intf_Get(int Index);
  140.     Classes::TPersistent* __fastcall Get(int Index);
  141.     int __fastcall GetCount(void);
  142.     TComponentList* __fastcall GetComponentList(void);
  143.     
  144. public:
  145.     __fastcall TComponentList(void);
  146.     __fastcall virtual ~TComponentList(void);
  147.     int __fastcall Add(Classes::TPersistent* Item);
  148.     bool __fastcall Equals(TComponentList* List);
  149.     __property int Count = {read=GetCount, nodefault};
  150.     __property Classes::TPersistent* Items[int Index] = {read=Get/*, default*/};
  151. private:
  152.     void *__IDesignerSelections;    /* Dsgnintf::IDesignerSelections [Get=Intf_Get, Equals=Intf_Equals, Add=Intf_Add
  153.         ] */
  154.     void *__IComponentList;    /* Dsgnintf::IComponentList */
  155.     
  156. public:
  157.     operator IComponentList*(void) { return (IComponentList*)&__IComponentList; }
  158.     operator IDesignerSelections*(void) { return (IDesignerSelections*)&__IDesignerSelections; }
  159.     
  160. };
  161.  
  162. #pragma pack(pop)
  163.  
  164. __interface IFormDesigner;
  165. typedef System::DelphiInterface<IFormDesigner> _di_IFormDesigner;
  166. __interface IFormDesigner  : public IDesigner /* __guid="{ABBE7255-5495-11D1-9FB5-0020AF3D82DA}" */
  167. {
  168.     
  169. public:
  170.     virtual Sysutils::TMethod __fastcall CreateMethod(const AnsiString Name, Typinfo::PTypeData TypeData
  171.         ) = 0 ;
  172.     virtual AnsiString __fastcall GetMethodName(const Sysutils::TMethod &Method) = 0 ;
  173.     virtual void __fastcall GetMethods(Typinfo::PTypeData TypeData, Classes::TGetStrProc Proc) = 0 ;
  174.     virtual AnsiString __fastcall GetPrivateDirectory(void) = 0 ;
  175.     virtual void __fastcall GetSelections(const _di_IDesignerSelections List) = 0 ;
  176.     virtual bool __fastcall MethodExists(const AnsiString Name) = 0 ;
  177.     virtual void __fastcall RenameMethod(const AnsiString CurName, const AnsiString NewName) = 0 ;
  178.     virtual void __fastcall SelectComponent(Classes::TPersistent* Instance) = 0 ;
  179.     virtual void __fastcall SetSelections(const _di_IDesignerSelections List) = 0 ;
  180.     virtual void __fastcall ShowMethod(const AnsiString Name) = 0 ;
  181.     virtual AnsiString __fastcall UniqueName(const AnsiString BaseName) = 0 ;
  182.     virtual void __fastcall GetComponentNames(Typinfo::PTypeData TypeData, Classes::TGetStrProc Proc) = 0 
  183.         ;
  184.     virtual Classes::TComponent* __fastcall GetComponent(const AnsiString Name) = 0 ;
  185.     virtual AnsiString __fastcall GetComponentName(Classes::TComponent* Component) = 0 ;
  186.     virtual Classes::TPersistent* __fastcall GetObject(const AnsiString Name) = 0 ;
  187.     virtual AnsiString __fastcall GetObjectName(Classes::TPersistent* Instance) = 0 ;
  188.     virtual void __fastcall GetObjectNames(Typinfo::PTypeData TypeData, Classes::TGetStrProc Proc) = 0 
  189.         ;
  190.     virtual bool __fastcall MethodFromAncestor(const Sysutils::TMethod &Method) = 0 ;
  191.     virtual Classes::TComponent* __fastcall CreateComponent(TMetaClass* ComponentClass, Classes::TComponent* 
  192.         Parent, int Left, int Top, int Width, int Height) = 0 ;
  193.     virtual bool __fastcall IsComponentLinkable(Classes::TComponent* Component) = 0 ;
  194.     virtual void __fastcall MakeComponentLinkable(Classes::TComponent* Component) = 0 ;
  195.     virtual Classes::TComponent* __fastcall GetRoot(void) = 0 ;
  196.     virtual void __fastcall Revert(Classes::TPersistent* Instance, Typinfo::PPropInfo PropInfo) = 0 ;
  197.     virtual bool __fastcall GetIsDormant(void) = 0 ;
  198.     virtual bool __fastcall HasInterface(void) = 0 ;
  199.     virtual bool __fastcall HasInterfaceMember(const AnsiString Name) = 0 ;
  200.     virtual void __fastcall AddToInterface(int InvKind, const AnsiString Name, Word VT, const AnsiString 
  201.         TypeInfo) = 0 ;
  202.     virtual void __fastcall GetProjectModules(Classes::TGetModuleProc Proc) = 0 ;
  203.     virtual _di_IFormDesigner __fastcall GetAncestorDesigner(void) = 0 ;
  204.     virtual bool __fastcall IsSourceReadOnly(void) = 0 ;
  205.     __property bool IsDormant = {read=GetIsDormant};
  206.     __property _di_IFormDesigner AncestorDesigner = {read=GetAncestorDesigner};
  207. };
  208.  
  209. #pragma option push -b-
  210. enum TPropertyAttribute { paValueList, paSubProperties, paDialog, paMultiSelect, paAutoUpdate, paSortList, 
  211.     paReadOnly, paRevertable };
  212. #pragma option pop
  213.  
  214. typedef Set<TPropertyAttribute, paValueList, paRevertable>  TPropertyAttributes;
  215.  
  216. #pragma pack(push, 4)
  217. struct TInstProp
  218. {
  219.     Classes::TPersistent* Instance;
  220.     Typinfo::TPropInfo *PropInfo;
  221. } ;
  222. #pragma pack(pop)
  223.  
  224. typedef TInstProp TInstPropList[1024];
  225.  
  226. typedef TInstProp *PInstPropList;
  227.  
  228. class DELPHICLASS TPropertyEditor;
  229. typedef void __fastcall (__closure *TGetPropEditProc)(TPropertyEditor* Prop);
  230.  
  231. #pragma pack(push, 4)
  232. class PASCALIMPLEMENTATION TPropertyEditor : public System::TObject 
  233. {
  234.     typedef System::TObject inherited;
  235.     
  236. private:
  237.     _di_IFormDesigner FDesigner;
  238.     TInstProp *FPropList;
  239.     int FPropCount;
  240.     AnsiString __fastcall GetPrivateDirectory();
  241.     void __fastcall SetPropEntry(int Index, Classes::TPersistent* AInstance, Typinfo::PPropInfo APropInfo
  242.         );
  243.     
  244. protected:
  245.     __fastcall TPropertyEditor(const _di_IFormDesigner ADesigner, int APropCount);
  246.     Typinfo::PPropInfo __fastcall GetPropInfo(void);
  247.     Extended __fastcall GetFloatValue(void);
  248.     Extended __fastcall GetFloatValueAt(int Index);
  249.     Sysutils::TMethod __fastcall GetMethodValue();
  250.     Sysutils::TMethod __fastcall GetMethodValueAt(int Index);
  251.     int __fastcall GetOrdValue(void);
  252.     int __fastcall GetOrdValueAt(int Index);
  253.     AnsiString __fastcall GetStrValue();
  254.     AnsiString __fastcall GetStrValueAt(int Index);
  255.     Variant __fastcall GetVarValue();
  256.     Variant __fastcall GetVarValueAt(int Index);
  257.     void __fastcall Modified(void);
  258.     void __fastcall SetFloatValue(Extended Value);
  259.     void __fastcall SetMethodValue(const Sysutils::TMethod &Value);
  260.     void __fastcall SetOrdValue(int Value);
  261.     void __fastcall SetStrValue(const AnsiString Value);
  262.     void __fastcall SetVarValue(const Variant &Value);
  263.     
  264. public:
  265.     __fastcall virtual ~TPropertyEditor(void);
  266.     virtual void __fastcall Activate(void);
  267.     virtual bool __fastcall AllEqual(void);
  268.     virtual bool __fastcall AutoFill(void);
  269.     virtual void __fastcall Edit(void);
  270.     virtual TPropertyAttributes __fastcall GetAttributes(void);
  271.     Classes::TPersistent* __fastcall GetComponent(int Index);
  272.     virtual int __fastcall GetEditLimit(void);
  273.     virtual AnsiString __fastcall GetName();
  274.     virtual void __fastcall GetProperties(TGetPropEditProc Proc);
  275.     Typinfo::PTypeInfo __fastcall GetPropType(void);
  276.     virtual AnsiString __fastcall GetValue();
  277.     virtual void __fastcall GetValues(Classes::TGetStrProc Proc);
  278.     virtual void __fastcall Initialize(void);
  279.     void __fastcall Revert(void);
  280.     virtual void __fastcall SetValue(const AnsiString Value);
  281.     bool __fastcall ValueAvailable(void);
  282.     __property _di_IFormDesigner Designer = {read=FDesigner};
  283.     __property AnsiString PrivateDirectory = {read=GetPrivateDirectory};
  284.     __property int PropCount = {read=FPropCount, nodefault};
  285.     __property AnsiString Value = {read=GetValue, write=SetValue};
  286. };
  287.  
  288. #pragma pack(pop)
  289.  
  290. typedef TMetaClass*TPropertyEditorClass;
  291.  
  292. class DELPHICLASS TOrdinalProperty;
  293. #pragma pack(push, 4)
  294. class PASCALIMPLEMENTATION TOrdinalProperty : public TPropertyEditor 
  295. {
  296.     typedef TPropertyEditor inherited;
  297.     
  298. public:
  299.     virtual bool __fastcall AllEqual(void);
  300.     virtual int __fastcall GetEditLimit(void);
  301. protected:
  302.     #pragma option push -w-inl
  303.     /* TPropertyEditor.Create */ inline __fastcall TOrdinalProperty(const _di_IFormDesigner ADesigner, 
  304.         int APropCount) : TPropertyEditor(ADesigner, APropCount) { }
  305.     #pragma option pop
  306.     
  307. public:
  308.     #pragma option push -w-inl
  309.     /* TPropertyEditor.Destroy */ inline __fastcall virtual ~TOrdinalProperty(void) { }
  310.     #pragma option pop
  311.     
  312. };
  313.  
  314. #pragma pack(pop)
  315.  
  316. class DELPHICLASS TIntegerProperty;
  317. #pragma pack(push, 4)
  318. class PASCALIMPLEMENTATION TIntegerProperty : public TOrdinalProperty 
  319. {
  320.     typedef TOrdinalProperty inherited;
  321.     
  322. public:
  323.     virtual AnsiString __fastcall GetValue();
  324.     virtual void __fastcall SetValue(const AnsiString Value);
  325. protected:
  326.     #pragma option push -w-inl
  327.     /* TPropertyEditor.Create */ inline __fastcall TIntegerProperty(const _di_IFormDesigner ADesigner, 
  328.         int APropCount) : TOrdinalProperty(ADesigner, APropCount) { }
  329.     #pragma option pop
  330.     
  331. public:
  332.     #pragma option push -w-inl
  333.     /* TPropertyEditor.Destroy */ inline __fastcall virtual ~TIntegerProperty(void) { }
  334.     #pragma option pop
  335.     
  336. };
  337.  
  338. #pragma pack(pop)
  339.  
  340. class DELPHICLASS TCharProperty;
  341. #pragma pack(push, 4)
  342. class PASCALIMPLEMENTATION TCharProperty : public TOrdinalProperty 
  343. {
  344.     typedef TOrdinalProperty inherited;
  345.     
  346. public:
  347.     virtual AnsiString __fastcall GetValue();
  348.     virtual void __fastcall SetValue(const AnsiString Value);
  349. protected:
  350.     #pragma option push -w-inl
  351.     /* TPropertyEditor.Create */ inline __fastcall TCharProperty(const _di_IFormDesigner ADesigner, int 
  352.         APropCount) : TOrdinalProperty(ADesigner, APropCount) { }
  353.     #pragma option pop
  354.     
  355. public:
  356.     #pragma option push -w-inl
  357.     /* TPropertyEditor.Destroy */ inline __fastcall virtual ~TCharProperty(void) { }
  358.     #pragma option pop
  359.     
  360. };
  361.  
  362. #pragma pack(pop)
  363.  
  364. class DELPHICLASS TEnumProperty;
  365. #pragma pack(push, 4)
  366. class PASCALIMPLEMENTATION TEnumProperty : public TOrdinalProperty 
  367. {
  368.     typedef TOrdinalProperty inherited;
  369.     
  370. public:
  371.     virtual TPropertyAttributes __fastcall GetAttributes(void);
  372.     virtual AnsiString __fastcall GetValue();
  373.     virtual void __fastcall GetValues(Classes::TGetStrProc Proc);
  374.     virtual void __fastcall SetValue(const AnsiString Value);
  375. protected:
  376.     #pragma option push -w-inl
  377.     /* TPropertyEditor.Create */ inline __fastcall TEnumProperty(const _di_IFormDesigner ADesigner, int 
  378.         APropCount) : TOrdinalProperty(ADesigner, APropCount) { }
  379.     #pragma option pop
  380.     
  381. public:
  382.     #pragma option push -w-inl
  383.     /* TPropertyEditor.Destroy */ inline __fastcall virtual ~TEnumProperty(void) { }
  384.     #pragma option pop
  385.     
  386. };
  387.  
  388. #pragma pack(pop)
  389.  
  390. class DELPHICLASS TBoolProperty;
  391. #pragma pack(push, 4)
  392. class PASCALIMPLEMENTATION TBoolProperty : public TEnumProperty 
  393. {
  394.     typedef TEnumProperty inherited;
  395.     
  396. public:
  397.     virtual AnsiString __fastcall GetValue();
  398.     virtual void __fastcall GetValues(Classes::TGetStrProc Proc);
  399.     virtual void __fastcall SetValue(const AnsiString Value);
  400. protected:
  401.     #pragma option push -w-inl
  402.     /* TPropertyEditor.Create */ inline __fastcall TBoolProperty(const _di_IFormDesigner ADesigner, int 
  403.         APropCount) : TEnumProperty(ADesigner, APropCount) { }
  404.     #pragma option pop
  405.     
  406. public:
  407.     #pragma option push -w-inl
  408.     /* TPropertyEditor.Destroy */ inline __fastcall virtual ~TBoolProperty(void) { }
  409.     #pragma option pop
  410.     
  411. };
  412.  
  413. #pragma pack(pop)
  414.  
  415. class DELPHICLASS TFloatProperty;
  416. #pragma pack(push, 4)
  417. class PASCALIMPLEMENTATION TFloatProperty : public TPropertyEditor 
  418. {
  419.     typedef TPropertyEditor inherited;
  420.     
  421. public:
  422.     virtual bool __fastcall AllEqual(void);
  423.     virtual AnsiString __fastcall GetValue();
  424.     virtual void __fastcall SetValue(const AnsiString Value);
  425. protected:
  426.     #pragma option push -w-inl
  427.     /* TPropertyEditor.Create */ inline __fastcall TFloatProperty(const _di_IFormDesigner ADesigner, int 
  428.         APropCount) : TPropertyEditor(ADesigner, APropCount) { }
  429.     #pragma option pop
  430.     
  431. public:
  432.     #pragma option push -w-inl
  433.     /* TPropertyEditor.Destroy */ inline __fastcall virtual ~TFloatProperty(void) { }
  434.     #pragma option pop
  435.     
  436. };
  437.  
  438. #pragma pack(pop)
  439.  
  440. class DELPHICLASS TStringProperty;
  441. #pragma pack(push, 4)
  442. class PASCALIMPLEMENTATION TStringProperty : public TPropertyEditor 
  443. {
  444.     typedef TPropertyEditor inherited;
  445.     
  446. public:
  447.     virtual bool __fastcall AllEqual(void);
  448.     virtual int __fastcall GetEditLimit(void);
  449.     virtual AnsiString __fastcall GetValue();
  450.     virtual void __fastcall SetValue(const AnsiString Value);
  451. protected:
  452.     #pragma option push -w-inl
  453.     /* TPropertyEditor.Create */ inline __fastcall TStringProperty(const _di_IFormDesigner ADesigner, int 
  454.         APropCount) : TPropertyEditor(ADesigner, APropCount) { }
  455.     #pragma option pop
  456.     
  457. public:
  458.     #pragma option push -w-inl
  459.     /* TPropertyEditor.Destroy */ inline __fastcall virtual ~TStringProperty(void) { }
  460.     #pragma option pop
  461.     
  462. };
  463.  
  464. #pragma pack(pop)
  465.  
  466. class DELPHICLASS TNestedProperty;
  467. #pragma pack(push, 4)
  468. class PASCALIMPLEMENTATION TNestedProperty : public TPropertyEditor 
  469. {
  470.     typedef TPropertyEditor inherited;
  471.     
  472. public:
  473.     __fastcall virtual TNestedProperty(TPropertyEditor* Parent);
  474.     __fastcall virtual ~TNestedProperty(void);
  475. };
  476.  
  477. #pragma pack(pop)
  478.  
  479. class DELPHICLASS TSetElementProperty;
  480. #pragma pack(push, 4)
  481. class PASCALIMPLEMENTATION TSetElementProperty : public TNestedProperty 
  482. {
  483.     typedef TNestedProperty inherited;
  484.     
  485. private:
  486.     int FElement;
  487.     
  488. protected:
  489.     __fastcall TSetElementProperty(TPropertyEditor* Parent, int AElement);
  490.     
  491. public:
  492.     virtual bool __fastcall AllEqual(void);
  493.     virtual TPropertyAttributes __fastcall GetAttributes(void);
  494.     virtual AnsiString __fastcall GetName();
  495.     virtual AnsiString __fastcall GetValue();
  496.     virtual void __fastcall GetValues(Classes::TGetStrProc Proc);
  497.     virtual void __fastcall SetValue(const AnsiString Value);
  498. public:
  499.     #pragma option push -w-inl
  500.     /* TNestedProperty.Destroy */ inline __fastcall virtual ~TSetElementProperty(void) { }
  501.     #pragma option pop
  502.     
  503. };
  504.  
  505. #pragma pack(pop)
  506.  
  507. class DELPHICLASS TSetProperty;
  508. #pragma pack(push, 4)
  509. class PASCALIMPLEMENTATION TSetProperty : public TOrdinalProperty 
  510. {
  511.     typedef TOrdinalProperty inherited;
  512.     
  513. public:
  514.     virtual TPropertyAttributes __fastcall GetAttributes(void);
  515.     virtual void __fastcall GetProperties(TGetPropEditProc Proc);
  516.     virtual AnsiString __fastcall GetValue();
  517. protected:
  518.     #pragma option push -w-inl
  519.     /* TPropertyEditor.Create */ inline __fastcall TSetProperty(const _di_IFormDesigner ADesigner, int 
  520.         APropCount) : TOrdinalProperty(ADesigner, APropCount) { }
  521.     #pragma option pop
  522.     
  523. public:
  524.     #pragma option push -w-inl
  525.     /* TPropertyEditor.Destroy */ inline __fastcall virtual ~TSetProperty(void) { }
  526.     #pragma option pop
  527.     
  528. };
  529.  
  530. #pragma pack(pop)
  531.  
  532. class DELPHICLASS TClassProperty;
  533. #pragma pack(push, 4)
  534. class PASCALIMPLEMENTATION TClassProperty : public TPropertyEditor 
  535. {
  536.     typedef TPropertyEditor inherited;
  537.     
  538. public:
  539.     virtual TPropertyAttributes __fastcall GetAttributes(void);
  540.     virtual void __fastcall GetProperties(TGetPropEditProc Proc);
  541.     virtual AnsiString __fastcall GetValue();
  542. protected:
  543.     #pragma option push -w-inl
  544.     /* TPropertyEditor.Create */ inline __fastcall TClassProperty(const _di_IFormDesigner ADesigner, int 
  545.         APropCount) : TPropertyEditor(ADesigner, APropCount) { }
  546.     #pragma option pop
  547.     
  548. public:
  549.     #pragma option push -w-inl
  550.     /* TPropertyEditor.Destroy */ inline __fastcall virtual ~TClassProperty(void) { }
  551.     #pragma option pop
  552.     
  553. };
  554.  
  555. #pragma pack(pop)
  556.  
  557. class DELPHICLASS TMethodProperty;
  558. #pragma pack(push, 4)
  559. class PASCALIMPLEMENTATION TMethodProperty : public TPropertyEditor 
  560. {
  561.     typedef TPropertyEditor inherited;
  562.     
  563. public:
  564.     virtual bool __fastcall AllEqual(void);
  565.     virtual void __fastcall Edit(void);
  566.     virtual TPropertyAttributes __fastcall GetAttributes(void);
  567.     virtual int __fastcall GetEditLimit(void);
  568.     virtual AnsiString __fastcall GetValue();
  569.     virtual void __fastcall GetValues(Classes::TGetStrProc Proc);
  570.     virtual void __fastcall SetValue(const AnsiString AValue);
  571.     virtual AnsiString __fastcall GetFormMethodName();
  572.     AnsiString __fastcall GetTrimmedEventName();
  573. protected:
  574.     #pragma option push -w-inl
  575.     /* TPropertyEditor.Create */ inline __fastcall TMethodProperty(const _di_IFormDesigner ADesigner, int 
  576.         APropCount) : TPropertyEditor(ADesigner, APropCount) { }
  577.     #pragma option pop
  578.     
  579. public:
  580.     #pragma option push -w-inl
  581.     /* TPropertyEditor.Destroy */ inline __fastcall virtual ~TMethodProperty(void) { }
  582.     #pragma option pop
  583.     
  584. };
  585.  
  586. #pragma pack(pop)
  587.  
  588. class DELPHICLASS TComponentProperty;
  589. #pragma pack(push, 4)
  590. class PASCALIMPLEMENTATION TComponentProperty : public TPropertyEditor 
  591. {
  592.     typedef TPropertyEditor inherited;
  593.     
  594. public:
  595.     virtual TPropertyAttributes __fastcall GetAttributes(void);
  596.     virtual int __fastcall GetEditLimit(void);
  597.     virtual AnsiString __fastcall GetValue();
  598.     virtual void __fastcall GetValues(Classes::TGetStrProc Proc);
  599.     virtual void __fastcall SetValue(const AnsiString Value);
  600. protected:
  601.     #pragma option push -w-inl
  602.     /* TPropertyEditor.Create */ inline __fastcall TComponentProperty(const _di_IFormDesigner ADesigner
  603.         , int APropCount) : TPropertyEditor(ADesigner, APropCount) { }
  604.     #pragma option pop
  605.     
  606. public:
  607.     #pragma option push -w-inl
  608.     /* TPropertyEditor.Destroy */ inline __fastcall virtual ~TComponentProperty(void) { }
  609.     #pragma option pop
  610.     
  611. };
  612.  
  613. #pragma pack(pop)
  614.  
  615. class DELPHICLASS TComponentNameProperty;
  616. #pragma pack(push, 4)
  617. class PASCALIMPLEMENTATION TComponentNameProperty : public TStringProperty 
  618. {
  619.     typedef TStringProperty inherited;
  620.     
  621. public:
  622.     virtual TPropertyAttributes __fastcall GetAttributes(void);
  623.     virtual int __fastcall GetEditLimit(void);
  624. protected:
  625.     #pragma option push -w-inl
  626.     /* TPropertyEditor.Create */ inline __fastcall TComponentNameProperty(const _di_IFormDesigner ADesigner
  627.         , int APropCount) : TStringProperty(ADesigner, APropCount) { }
  628.     #pragma option pop
  629.     
  630. public:
  631.     #pragma option push -w-inl
  632.     /* TPropertyEditor.Destroy */ inline __fastcall virtual ~TComponentNameProperty(void) { }
  633.     #pragma option pop
  634.     
  635. };
  636.  
  637. #pragma pack(pop)
  638.  
  639. class DELPHICLASS TFontNameProperty;
  640. #pragma pack(push, 4)
  641. class PASCALIMPLEMENTATION TFontNameProperty : public TStringProperty 
  642. {
  643.     typedef TStringProperty inherited;
  644.     
  645. public:
  646.     virtual TPropertyAttributes __fastcall GetAttributes(void);
  647.     virtual void __fastcall GetValues(Classes::TGetStrProc Proc);
  648. protected:
  649.     #pragma option push -w-inl
  650.     /* TPropertyEditor.Create */ inline __fastcall TFontNameProperty(const _di_IFormDesigner ADesigner, 
  651.         int APropCount) : TStringProperty(ADesigner, APropCount) { }
  652.     #pragma option pop
  653.     
  654. public:
  655.     #pragma option push -w-inl
  656.     /* TPropertyEditor.Destroy */ inline __fastcall virtual ~TFontNameProperty(void) { }
  657.     #pragma option pop
  658.     
  659. };
  660.  
  661. #pragma pack(pop)
  662.  
  663. class DELPHICLASS TFontCharsetProperty;
  664. #pragma pack(push, 4)
  665. class PASCALIMPLEMENTATION TFontCharsetProperty : public TIntegerProperty 
  666. {
  667.     typedef TIntegerProperty inherited;
  668.     
  669. public:
  670.     virtual TPropertyAttributes __fastcall GetAttributes(void);
  671.     virtual AnsiString __fastcall GetValue();
  672.     virtual void __fastcall GetValues(Classes::TGetStrProc Proc);
  673.     virtual void __fastcall SetValue(const AnsiString Value);
  674. protected:
  675.     #pragma option push -w-inl
  676.     /* TPropertyEditor.Create */ inline __fastcall TFontCharsetProperty(const _di_IFormDesigner ADesigner
  677.         , int APropCount) : TIntegerProperty(ADesigner, APropCount) { }
  678.     #pragma option pop
  679.     
  680. public:
  681.     #pragma option push -w-inl
  682.     /* TPropertyEditor.Destroy */ inline __fastcall virtual ~TFontCharsetProperty(void) { }
  683.     #pragma option pop
  684.     
  685. };
  686.  
  687. #pragma pack(pop)
  688.  
  689. class DELPHICLASS TImeNameProperty;
  690. #pragma pack(push, 4)
  691. class PASCALIMPLEMENTATION TImeNameProperty : public TStringProperty 
  692. {
  693.     typedef TStringProperty inherited;
  694.     
  695. public:
  696.     virtual TPropertyAttributes __fastcall GetAttributes(void);
  697.     virtual void __fastcall GetValues(Classes::TGetStrProc Proc);
  698. protected:
  699.     #pragma option push -w-inl
  700.     /* TPropertyEditor.Create */ inline __fastcall TImeNameProperty(const _di_IFormDesigner ADesigner, 
  701.         int APropCount) : TStringProperty(ADesigner, APropCount) { }
  702.     #pragma option pop
  703.     
  704. public:
  705.     #pragma option push -w-inl
  706.     /* TPropertyEditor.Destroy */ inline __fastcall virtual ~TImeNameProperty(void) { }
  707.     #pragma option pop
  708.     
  709. };
  710.  
  711. #pragma pack(pop)
  712.  
  713. class DELPHICLASS TColorProperty;
  714. #pragma pack(push, 4)
  715. class PASCALIMPLEMENTATION TColorProperty : public TIntegerProperty 
  716. {
  717.     typedef TIntegerProperty inherited;
  718.     
  719. public:
  720.     virtual void __fastcall Edit(void);
  721.     virtual TPropertyAttributes __fastcall GetAttributes(void);
  722.     virtual AnsiString __fastcall GetValue();
  723.     virtual void __fastcall GetValues(Classes::TGetStrProc Proc);
  724.     virtual void __fastcall SetValue(const AnsiString Value);
  725. protected:
  726.     #pragma option push -w-inl
  727.     /* TPropertyEditor.Create */ inline __fastcall TColorProperty(const _di_IFormDesigner ADesigner, int 
  728.         APropCount) : TIntegerProperty(ADesigner, APropCount) { }
  729.     #pragma option pop
  730.     
  731. public:
  732.     #pragma option push -w-inl
  733.     /* TPropertyEditor.Destroy */ inline __fastcall virtual ~TColorProperty(void) { }
  734.     #pragma option pop
  735.     
  736. };
  737.  
  738. #pragma pack(pop)
  739.  
  740. class DELPHICLASS TCursorProperty;
  741. #pragma pack(push, 4)
  742. class PASCALIMPLEMENTATION TCursorProperty : public TIntegerProperty 
  743. {
  744.     typedef TIntegerProperty inherited;
  745.     
  746. public:
  747.     virtual TPropertyAttributes __fastcall GetAttributes(void);
  748.     virtual AnsiString __fastcall GetValue();
  749.     virtual void __fastcall GetValues(Classes::TGetStrProc Proc);
  750.     virtual void __fastcall SetValue(const AnsiString Value);
  751. protected:
  752.     #pragma option push -w-inl
  753.     /* TPropertyEditor.Create */ inline __fastcall TCursorProperty(const _di_IFormDesigner ADesigner, int 
  754.         APropCount) : TIntegerProperty(ADesigner, APropCount) { }
  755.     #pragma option pop
  756.     
  757. public:
  758.     #pragma option push -w-inl
  759.     /* TPropertyEditor.Destroy */ inline __fastcall virtual ~TCursorProperty(void) { }
  760.     #pragma option pop
  761.     
  762. };
  763.  
  764. #pragma pack(pop)
  765.  
  766. class DELPHICLASS TFontProperty;
  767. #pragma pack(push, 4)
  768. class PASCALIMPLEMENTATION TFontProperty : public TClassProperty 
  769. {
  770.     typedef TClassProperty inherited;
  771.     
  772. public:
  773.     virtual void __fastcall Edit(void);
  774.     virtual TPropertyAttributes __fastcall GetAttributes(void);
  775. protected:
  776.     #pragma option push -w-inl
  777.     /* TPropertyEditor.Create */ inline __fastcall TFontProperty(const _di_IFormDesigner ADesigner, int 
  778.         APropCount) : TClassProperty(ADesigner, APropCount) { }
  779.     #pragma option pop
  780.     
  781. public:
  782.     #pragma option push -w-inl
  783.     /* TPropertyEditor.Destroy */ inline __fastcall virtual ~TFontProperty(void) { }
  784.     #pragma option pop
  785.     
  786. };
  787.  
  788. #pragma pack(pop)
  789.  
  790. class DELPHICLASS TModalResultProperty;
  791. #pragma pack(push, 4)
  792. class PASCALIMPLEMENTATION TModalResultProperty : public TIntegerProperty 
  793. {
  794.     typedef TIntegerProperty inherited;
  795.     
  796. public:
  797.     virtual TPropertyAttributes __fastcall GetAttributes(void);
  798.     virtual AnsiString __fastcall GetValue();
  799.     virtual void __fastcall GetValues(Classes::TGetStrProc Proc);
  800.     virtual void __fastcall SetValue(const AnsiString Value);
  801. protected:
  802.     #pragma option push -w-inl
  803.     /* TPropertyEditor.Create */ inline __fastcall TModalResultProperty(const _di_IFormDesigner ADesigner
  804.         , int APropCount) : TIntegerProperty(ADesigner, APropCount) { }
  805.     #pragma option pop
  806.     
  807. public:
  808.     #pragma option push -w-inl
  809.     /* TPropertyEditor.Destroy */ inline __fastcall virtual ~TModalResultProperty(void) { }
  810.     #pragma option pop
  811.     
  812. };
  813.  
  814. #pragma pack(pop)
  815.  
  816. class DELPHICLASS TShortCutProperty;
  817. #pragma pack(push, 4)
  818. class PASCALIMPLEMENTATION TShortCutProperty : public TOrdinalProperty 
  819. {
  820.     typedef TOrdinalProperty inherited;
  821.     
  822. public:
  823.     virtual TPropertyAttributes __fastcall GetAttributes(void);
  824.     virtual AnsiString __fastcall GetValue();
  825.     virtual void __fastcall GetValues(Classes::TGetStrProc Proc);
  826.     virtual void __fastcall SetValue(const AnsiString Value);
  827. protected:
  828.     #pragma option push -w-inl
  829.     /* TPropertyEditor.Create */ inline __fastcall TShortCutProperty(const _di_IFormDesigner ADesigner, 
  830.         int APropCount) : TOrdinalProperty(ADesigner, APropCount) { }
  831.     #pragma option pop
  832.     
  833. public:
  834.     #pragma option push -w-inl
  835.     /* TPropertyEditor.Destroy */ inline __fastcall virtual ~TShortCutProperty(void) { }
  836.     #pragma option pop
  837.     
  838. };
  839.  
  840. #pragma pack(pop)
  841.  
  842. class DELPHICLASS TMPFilenameProperty;
  843. #pragma pack(push, 4)
  844. class PASCALIMPLEMENTATION TMPFilenameProperty : public TStringProperty 
  845. {
  846.     typedef TStringProperty inherited;
  847.     
  848. public:
  849.     virtual void __fastcall Edit(void);
  850.     virtual TPropertyAttributes __fastcall GetAttributes(void);
  851. protected:
  852.     #pragma option push -w-inl
  853.     /* TPropertyEditor.Create */ inline __fastcall TMPFilenameProperty(const _di_IFormDesigner ADesigner
  854.         , int APropCount) : TStringProperty(ADesigner, APropCount) { }
  855.     #pragma option pop
  856.     
  857. public:
  858.     #pragma option push -w-inl
  859.     /* TPropertyEditor.Destroy */ inline __fastcall virtual ~TMPFilenameProperty(void) { }
  860.     #pragma option pop
  861.     
  862. };
  863.  
  864. #pragma pack(pop)
  865.  
  866. class DELPHICLASS TTabOrderProperty;
  867. #pragma pack(push, 4)
  868. class PASCALIMPLEMENTATION TTabOrderProperty : public TIntegerProperty 
  869. {
  870.     typedef TIntegerProperty inherited;
  871.     
  872. public:
  873.     virtual TPropertyAttributes __fastcall GetAttributes(void);
  874. protected:
  875.     #pragma option push -w-inl
  876.     /* TPropertyEditor.Create */ inline __fastcall TTabOrderProperty(const _di_IFormDesigner ADesigner, 
  877.         int APropCount) : TIntegerProperty(ADesigner, APropCount) { }
  878.     #pragma option pop
  879.     
  880. public:
  881.     #pragma option push -w-inl
  882.     /* TPropertyEditor.Destroy */ inline __fastcall virtual ~TTabOrderProperty(void) { }
  883.     #pragma option pop
  884.     
  885. };
  886.  
  887. #pragma pack(pop)
  888.  
  889. class DELPHICLASS TCaptionProperty;
  890. #pragma pack(push, 4)
  891. class PASCALIMPLEMENTATION TCaptionProperty : public TStringProperty 
  892. {
  893.     typedef TStringProperty inherited;
  894.     
  895. public:
  896.     virtual TPropertyAttributes __fastcall GetAttributes(void);
  897. protected:
  898.     #pragma option push -w-inl
  899.     /* TPropertyEditor.Create */ inline __fastcall TCaptionProperty(const _di_IFormDesigner ADesigner, 
  900.         int APropCount) : TStringProperty(ADesigner, APropCount) { }
  901.     #pragma option pop
  902.     
  903. public:
  904.     #pragma option push -w-inl
  905.     /* TPropertyEditor.Destroy */ inline __fastcall virtual ~TCaptionProperty(void) { }
  906.     #pragma option pop
  907.     
  908. };
  909.  
  910. #pragma pack(pop)
  911.  
  912. class DELPHICLASS TDateProperty;
  913. #pragma pack(push, 4)
  914. class PASCALIMPLEMENTATION TDateProperty : public TPropertyEditor 
  915. {
  916.     typedef TPropertyEditor inherited;
  917.     
  918. public:
  919.     virtual TPropertyAttributes __fastcall GetAttributes(void);
  920.     virtual AnsiString __fastcall GetValue();
  921.     virtual void __fastcall SetValue(const AnsiString Value);
  922. protected:
  923.     #pragma option push -w-inl
  924.     /* TPropertyEditor.Create */ inline __fastcall TDateProperty(const _di_IFormDesigner ADesigner, int 
  925.         APropCount) : TPropertyEditor(ADesigner, APropCount) { }
  926.     #pragma option pop
  927.     
  928. public:
  929.     #pragma option push -w-inl
  930.     /* TPropertyEditor.Destroy */ inline __fastcall virtual ~TDateProperty(void) { }
  931.     #pragma option pop
  932.     
  933. };
  934.  
  935. #pragma pack(pop)
  936.  
  937. class DELPHICLASS TTimeProperty;
  938. #pragma pack(push, 4)
  939. class PASCALIMPLEMENTATION TTimeProperty : public TPropertyEditor 
  940. {
  941.     typedef TPropertyEditor inherited;
  942.     
  943. public:
  944.     virtual TPropertyAttributes __fastcall GetAttributes(void);
  945.     virtual AnsiString __fastcall GetValue();
  946.     virtual void __fastcall SetValue(const AnsiString Value);
  947. protected:
  948.     #pragma option push -w-inl
  949.     /* TPropertyEditor.Create */ inline __fastcall TTimeProperty(const _di_IFormDesigner ADesigner, int 
  950.         APropCount) : TPropertyEditor(ADesigner, APropCount) { }
  951.     #pragma option pop
  952.     
  953. public:
  954.     #pragma option push -w-inl
  955.     /* TPropertyEditor.Destroy */ inline __fastcall virtual ~TTimeProperty(void) { }
  956.     #pragma option pop
  957.     
  958. };
  959.  
  960. #pragma pack(pop)
  961.  
  962. class DELPHICLASS TDateTimeProperty;
  963. #pragma pack(push, 4)
  964. class PASCALIMPLEMENTATION TDateTimeProperty : public TPropertyEditor 
  965. {
  966.     typedef TPropertyEditor inherited;
  967.     
  968. public:
  969.     virtual TPropertyAttributes __fastcall GetAttributes(void);
  970.     virtual AnsiString __fastcall GetValue();
  971.     virtual void __fastcall SetValue(const AnsiString Value);
  972. protected:
  973.     #pragma option push -w-inl
  974.     /* TPropertyEditor.Create */ inline __fastcall TDateTimeProperty(const _di_IFormDesigner ADesigner, 
  975.         int APropCount) : TPropertyEditor(ADesigner, APropCount) { }
  976.     #pragma option pop
  977.     
  978. public:
  979.     #pragma option push -w-inl
  980.     /* TPropertyEditor.Destroy */ inline __fastcall virtual ~TDateTimeProperty(void) { }
  981.     #pragma option pop
  982.     
  983. };
  984.  
  985. #pragma pack(pop)
  986.  
  987. class DELPHICLASS EPropertyError;
  988. #pragma pack(push, 4)
  989. class PASCALIMPLEMENTATION EPropertyError : public Sysutils::Exception 
  990. {
  991.     typedef Sysutils::Exception inherited;
  992.     
  993. public:
  994.     #pragma option push -w-inl
  995.     /* Exception.Create */ inline __fastcall EPropertyError(const AnsiString Msg) : Sysutils::Exception(
  996.         Msg) { }
  997.     #pragma option pop
  998.     #pragma option push -w-inl
  999.     /* Exception.CreateFmt */ inline __fastcall EPropertyError(const AnsiString Msg, const System::TVarRec 
  1000.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  1001.     #pragma option pop
  1002.     #pragma option push -w-inl
  1003.     /* Exception.CreateRes */ inline __fastcall EPropertyError(int Ident, Extended Dummy) : Sysutils::Exception(
  1004.         Ident, Dummy) { }
  1005.     #pragma option pop
  1006.     #pragma option push -w-inl
  1007.     /* Exception.CreateResFmt */ inline __fastcall EPropertyError(int Ident, const System::TVarRec * Args
  1008.         , const int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  1009.     #pragma option pop
  1010.     #pragma option push -w-inl
  1011.     /* Exception.CreateHelp */ inline __fastcall EPropertyError(const AnsiString Msg, int AHelpContext)
  1012.          : Sysutils::Exception(Msg, AHelpContext) { }
  1013.     #pragma option pop
  1014.     #pragma option push -w-inl
  1015.     /* Exception.CreateFmtHelp */ inline __fastcall EPropertyError(const AnsiString Msg, const System::TVarRec 
  1016.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  1017.         ) { }
  1018.     #pragma option pop
  1019.     #pragma option push -w-inl
  1020.     /* Exception.CreateResHelp */ inline __fastcall EPropertyError(int Ident, int AHelpContext) : Sysutils::Exception(
  1021.         Ident, AHelpContext) { }
  1022.     #pragma option pop
  1023.     #pragma option push -w-inl
  1024.     /* Exception.CreateResFmtHelp */ inline __fastcall EPropertyError(int Ident, const System::TVarRec 
  1025.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext
  1026.         ) { }
  1027.     #pragma option pop
  1028.     
  1029. public:
  1030.     #pragma option push -w-inl
  1031.     /* TObject.Destroy */ inline __fastcall virtual ~EPropertyError(void) { }
  1032.     #pragma option pop
  1033.     
  1034. };
  1035.  
  1036. #pragma pack(pop)
  1037.  
  1038. __interface IComponentEditor;
  1039. typedef System::DelphiInterface<IComponentEditor> _di_IComponentEditor;
  1040. __interface IComponentEditor  : public IUnknown /* __guid="{ABBE7252-5495-11D1-9FB5-0020AF3D82DA}" */
  1041.     
  1042. {
  1043.     
  1044. public:
  1045.     virtual void __fastcall Edit(void) = 0 ;
  1046.     virtual void __fastcall ExecuteVerb(int Index) = 0 ;
  1047.     virtual _di_IComponent __fastcall GetIComponent(void) = 0 ;
  1048.     virtual _di_IFormDesigner __fastcall GetDesigner(void) = 0 ;
  1049.     virtual AnsiString __fastcall GetVerb(int Index) = 0 ;
  1050.     virtual int __fastcall GetVerbCount(void) = 0 ;
  1051.     virtual void __fastcall Copy(void) = 0 ;
  1052. };
  1053.  
  1054. class DELPHICLASS TComponentEditor;
  1055. #pragma pack(push, 4)
  1056. class PASCALIMPLEMENTATION TComponentEditor : public System::TInterfacedObject 
  1057. {
  1058.     typedef System::TInterfacedObject inherited;
  1059.     
  1060. private:
  1061.     Classes::TComponent* FComponent;
  1062.     _di_IFormDesigner FDesigner;
  1063.     
  1064. public:
  1065.     __fastcall virtual TComponentEditor(Classes::TComponent* AComponent, _di_IFormDesigner ADesigner);
  1066.     virtual void __fastcall Edit(void);
  1067.     virtual void __fastcall ExecuteVerb(int Index);
  1068.     _di_IComponent __fastcall GetIComponent();
  1069.     _di_IFormDesigner __fastcall GetDesigner();
  1070.     virtual AnsiString __fastcall GetVerb(int Index);
  1071.     virtual int __fastcall GetVerbCount(void);
  1072.     virtual void __fastcall Copy(void);
  1073.     __property Classes::TComponent* Component = {read=FComponent};
  1074.     __property _di_IFormDesigner Designer = {read=GetDesigner};
  1075. public:
  1076.     #pragma option push -w-inl
  1077.     /* TObject.Destroy */ inline __fastcall virtual ~TComponentEditor(void) { }
  1078.     #pragma option pop
  1079.     
  1080. private:
  1081.     void *__IComponentEditor;    /* Dsgnintf::IComponentEditor */
  1082.     
  1083. public:
  1084.     operator IComponentEditor*(void) { return (IComponentEditor*)&__IComponentEditor; }
  1085.     
  1086. };
  1087.  
  1088. #pragma pack(pop)
  1089.  
  1090. typedef TMetaClass*TComponentEditorClass;
  1091.  
  1092. __interface IDefaultEditor;
  1093. typedef System::DelphiInterface<IDefaultEditor> _di_IDefaultEditor;
  1094. __interface IDefaultEditor  : public IComponentEditor /* __guid="{5484FAE1-5C60-11D1-9FB6-0020AF3D82DA}" */
  1095.     
  1096. {
  1097.     
  1098. };
  1099.  
  1100. class DELPHICLASS TDefaultEditor;
  1101. #pragma pack(push, 4)
  1102. class PASCALIMPLEMENTATION TDefaultEditor : public TComponentEditor 
  1103. {
  1104.     typedef TComponentEditor inherited;
  1105.     
  1106. private:
  1107.     TPropertyEditor* FFirst;
  1108.     TPropertyEditor* FBest;
  1109.     bool FContinue;
  1110.     void __fastcall CheckEdit(TPropertyEditor* PropertyEditor);
  1111.     
  1112. protected:
  1113.     virtual void __fastcall EditProperty(TPropertyEditor* PropertyEditor, bool &Continue, bool &FreeEditor
  1114.         );
  1115.     
  1116. public:
  1117.     virtual void __fastcall Edit(void);
  1118. public:
  1119.     #pragma option push -w-inl
  1120.     /* TComponentEditor.Create */ inline __fastcall virtual TDefaultEditor(Classes::TComponent* AComponent
  1121.         , _di_IFormDesigner ADesigner) : TComponentEditor(AComponent, ADesigner) { }
  1122.     #pragma option pop
  1123.     
  1124. public:
  1125.     #pragma option push -w-inl
  1126.     /* TObject.Destroy */ inline __fastcall virtual ~TDefaultEditor(void) { }
  1127.     #pragma option pop
  1128.     
  1129. private:
  1130.     void *__IDefaultEditor;    /* Dsgnintf::IDefaultEditor */
  1131.     
  1132. public:
  1133.     operator IDefaultEditor*(void) { return (IDefaultEditor*)&__IDefaultEditor; }
  1134.     
  1135. };
  1136.  
  1137. #pragma pack(pop)
  1138.  
  1139. typedef void __fastcall (*TFreeCustomModulesProc)(int Group);
  1140.  
  1141. typedef TMetaClass* __fastcall (*TPropertyMapperFunc)(Classes::TPersistent* Obj, Typinfo::PPropInfo 
  1142.     PropInfo);
  1143.  
  1144. #pragma option push -b-
  1145. enum TCustomModuleAttribute { cmaVirtualSize };
  1146. #pragma option pop
  1147.  
  1148. typedef Set<TCustomModuleAttribute, cmaVirtualSize, cmaVirtualSize>  TCustomModuleAttributes;
  1149.  
  1150. class DELPHICLASS TCustomModule;
  1151. #pragma pack(push, 4)
  1152. class PASCALIMPLEMENTATION TCustomModule : public System::TObject 
  1153. {
  1154.     typedef System::TObject inherited;
  1155.     
  1156. private:
  1157.     _di_IComponent FRoot;
  1158.     
  1159. public:
  1160.     __fastcall virtual TCustomModule(_di_IComponent ARoot);
  1161.     virtual void __fastcall ExecuteVerb(int Index);
  1162.     virtual TCustomModuleAttributes __fastcall GetAttributes(void);
  1163.     virtual AnsiString __fastcall GetVerb(int Index);
  1164.     virtual int __fastcall GetVerbCount(void);
  1165.     virtual void __fastcall Saving(void);
  1166.     virtual void __fastcall ValidateComponent(_di_IComponent Component);
  1167.     __property _di_IComponent Root = {read=FRoot};
  1168. public:
  1169.     #pragma option push -w-inl
  1170.     /* TObject.Destroy */ inline __fastcall virtual ~TCustomModule(void) { }
  1171.     #pragma option pop
  1172.     
  1173. };
  1174.  
  1175. #pragma pack(pop)
  1176.  
  1177. typedef TMetaClass*TCustomModuleClass;
  1178.  
  1179. typedef void __fastcall (*TRegisterCustomModuleProc)(int Group, TMetaClass* ComponentBaseClass, TMetaClass* 
  1180.     CustomModuleClass);
  1181.  
  1182. //-- var, const, procedure ---------------------------------------------------
  1183. extern PACKAGE _di_IPersistent __fastcall (*MakeIPersistentProc)(Classes::TPersistent* Instance);
  1184. extern PACKAGE _di_IComponent __fastcall (*MakeIComponentProc)(Classes::TComponent* Instance);
  1185. extern PACKAGE TFreeCustomModulesProc FreeCustomModulesProc;
  1186. extern PACKAGE TRegisterCustomModuleProc RegisterCustomModuleProc;
  1187. extern PACKAGE Byte MaxIdentLength;
  1188. extern PACKAGE void __fastcall RegisterPropertyEditor(Typinfo::PTypeInfo PropertyType, TMetaClass* ComponentClass
  1189.     , const AnsiString PropertyName, TMetaClass* EditorClass);
  1190. extern PACKAGE void __fastcall RegisterPropertyMapper(TPropertyMapperFunc Mapper);
  1191. extern PACKAGE void __fastcall GetComponentProperties(TComponentList* Components, Typinfo::TTypeKinds 
  1192.     Filter, _di_IFormDesigner Designer, TGetPropEditProc Proc);
  1193. extern PACKAGE void __fastcall RegisterComponentEditor(TMetaClass* ComponentClass, TMetaClass* ComponentEditor
  1194.     );
  1195. extern PACKAGE TComponentEditor* __fastcall GetComponentEditor(Classes::TComponent* Component, _di_IFormDesigner 
  1196.     Designer);
  1197. extern PACKAGE int __fastcall NewEditorGroup(void);
  1198. extern PACKAGE void __fastcall FreeEditorGroup(int Group);
  1199. extern PACKAGE void __fastcall RegisterCustomModule(TMetaClass* ComponentBaseClass, TMetaClass* CustomModuleClass
  1200.     );
  1201. extern PACKAGE _di_IPersistent __fastcall MakeIPersistent(Classes::TPersistent* Instance);
  1202. extern PACKAGE Classes::TPersistent* __fastcall ExtractPersistent(const _di_IPersistent Intf);
  1203. extern PACKAGE Classes::TPersistent* __fastcall TryExtractPersistent(const _di_IPersistent Intf);
  1204. extern PACKAGE _di_IComponent __fastcall MakeIComponent(Classes::TComponent* Instance);
  1205. extern PACKAGE Classes::TComponent* __fastcall ExtractComponent(const _di_IComponent Intf);
  1206. extern PACKAGE Classes::TComponent* __fastcall TryExtractComponent(const _di_IComponent Intf);
  1207. extern PACKAGE _di_IDesignerSelections __fastcall CreateSelectionList();
  1208.  
  1209. }    /* namespace Dsgnintf */
  1210. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  1211. using namespace Dsgnintf;
  1212. #endif
  1213. #pragma option pop    // -w-
  1214.  
  1215. #pragma delphiheader end.
  1216. //-- end unit ----------------------------------------------------------------
  1217. #endif    // DsgnIntf
  1218.