home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / progs / CB / DATA.Z / LIBMAIN.HPP < prev    next >
Encoding:
C/C++ Source or Header  |  1996-11-06  |  38.7 KB  |  918 lines
  1. //----------------------------------------------------------------------------
  2. // LibMain.hpp - dcc32 generated hdr (DO NOT EDIT) rev: -2
  3. // From: LibMain.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef LibMainHPP
  6. #define LibMainHPP
  7. //----------------------------------------------------------------------------
  8. #ifndef OleCtrlsHPP
  9. #include <OleCtrls.hpp>
  10. #endif
  11.  
  12. #ifndef DialogsHPP
  13. #include <Dialogs.hpp>
  14. #endif
  15.  
  16. #ifndef DsgnWndsHPP
  17. #include <DsgnWnds.hpp>
  18. #endif
  19.  
  20. #ifndef EditIntfHPP
  21. #include <EditIntf.hpp>
  22. #endif
  23.  
  24. #ifndef VirtFileHPP
  25. #include <VirtFile.hpp>
  26. #endif
  27.  
  28. #ifndef UpdateHPP
  29. #include <Update.hpp>
  30. #endif
  31.  
  32. #ifndef LibIntfHPP
  33. #include <LibIntf.hpp>
  34. #endif
  35.  
  36. #ifndef IStreamsHPP
  37. #include <IStreams.hpp>
  38. #endif
  39.  
  40. #ifndef VirtIntfHPP
  41. #include <VirtIntf.hpp>
  42. #endif
  43.  
  44. #ifndef DsgnIntfHPP
  45. #include <DsgnIntf.hpp>
  46. #endif
  47.  
  48. #ifndef ExptintfHPP
  49. #include <Exptintf.hpp>
  50. #endif
  51.  
  52. #ifndef TypInfoHPP
  53. #include <TypInfo.hpp>
  54. #endif
  55.  
  56. #ifndef ProxiesHPP
  57. #include <Proxies.hpp>
  58. #endif
  59.  
  60. #ifndef GraphicsHPP
  61. #include <Graphics.hpp>
  62. #endif
  63.  
  64. #ifndef ControlsHPP
  65. #include <Controls.hpp>
  66. #endif
  67.  
  68. #ifndef MenusHPP
  69. #include <Menus.hpp>
  70. #endif
  71.  
  72. #ifndef FormsHPP
  73. #include <Forms.hpp>
  74. #endif
  75.  
  76. #ifndef MessagesHPP
  77. #include <Messages.hpp>
  78. #endif
  79.  
  80. #ifndef ClassesHPP
  81. #include <Classes.hpp>
  82. #endif
  83.  
  84. #ifndef SysUtilsHPP
  85. #include <SysUtils.hpp>
  86. #endif
  87.  
  88. #ifndef WindowsHPP
  89. #include <Windows.hpp>
  90. #endif
  91.  
  92. #ifndef SystemHPP
  93. #include <System.hpp>
  94. #endif
  95.  
  96. namespace Libmain
  97. {
  98. //-- type declarations -------------------------------------------------------
  99. class __declspec(delphiclass) TDesignerToolWindow;
  100. class __declspec(delphiclass) TWindowDesigner;
  101. class __declspec(delphiclass) TLibForm;
  102. class __declspec(pascalimplementation) TLibForm : public Libintf::TIForm
  103. {
  104.     typedef TLibForm ThisClass;
  105.     typedef Libintf::TIForm inherited;
  106.     
  107. private:
  108.     Libintf::TEditState __fastcall GetEditState(void);
  109.     Controls::TWinControl *__fastcall GetTabParent(void);
  110.     Controls::TWinControl *__fastcall GetTabComponent(Controls::TWinControl *AParent, System::Integer Order
  111.         );
  112.     void __fastcall Modified(void);
  113.     
  114. public:
  115.     Libintf::TIModule *Module;
  116.     TWindowDesigner *Designer;
  117.     Classes::TStream *FormStream;
  118.     System::Boolean Visible;
  119.     TWindowState WindowState;
  120.     __fastcall TLibForm(Libintf::TIModule *AModule, const System::AnsiString AFileName, System::Boolean 
  121.         Existing, Virtintf::TIStream *AForm, const System::AnsiString AFormName, const System::AnsiString 
  122.         AncestorName, const System::AnsiString AFileSystem);
  123.     __fastcall virtual ~TLibForm(void);
  124.     virtual System::Boolean __fastcall CheckFileDate(void);
  125.     virtual void __fastcall Align(Libintf::TAffect Affect);
  126.     virtual void __fastcall CreateComponent(Libintf::TICompClass *CompClass);
  127.     void __fastcall EditAction(Libintf::TEditAction Action);
  128.     virtual System::AnsiString __fastcall FindCompClass(const System::AnsiString CompName);
  129.     virtual Virtintf::TIStream *__fastcall FormFileOpen(void);
  130.     virtual System::AnsiString __fastcall GetAncestorName(void);
  131.     virtual System::Integer __fastcall GetCompCount(void);
  132.     virtual void __fastcall GetDependentForms(Libintf::TGetFormProc Proc);
  133.     virtual Libintf::TDesignerKind __fastcall GetDesignerKind(void);
  134.     virtual void __fastcall GetFormDependencies(Libintf::TGetFormProc Proc);
  135.     virtual System::Pointer __fastcall GetNVComp(System::Integer Index);
  136.     virtual Libintf::TICompInfo *__fastcall GetCompInfo(System::Integer Index);
  137.     virtual System::AnsiString __fastcall GetFileName(void);
  138.     virtual System::Longint __fastcall GetModifyTime(void);
  139.     virtual Libintf::TIModule *__fastcall GetModule(void);
  140.     virtual System::AnsiString __fastcall GetCompName(System::Integer Index);
  141.     virtual System::AnsiString __fastcall GetFileSystem(void);
  142.     virtual Editintf::TIFormInterface *__fastcall GetFormInterface(void);
  143.     virtual System::AnsiString __fastcall GetFormName(void);
  144.     virtual System::Integer __fastcall GetFormImage(void);
  145.     virtual void __fastcall GetFormUnits(Classes::TGetStrProc Proc);
  146.     virtual Libintf::TFormState __fastcall GetState(void);
  147.     virtual System::Integer __fastcall GetTabCompCount(void);
  148.     virtual System::Boolean __fastcall GetTabCompInfo(System::Integer Order,  System::AnsiString &Name, 
  149.         System::Pointer &Comp);
  150.     virtual System::Integer __fastcall GetObjectMenuItemCount(void);
  151.     virtual System::AnsiString __fastcall GetObjectMenuItem(System::Integer Index);
  152.     virtual System::Longint __fastcall GetTimeAtLoad(void);
  153.     virtual void __fastcall ObjectMenuAction(System::Integer Index);
  154.     virtual void __fastcall Rename(const System::AnsiString NewFileName);
  155.     virtual void __fastcall RenameFormMethod(const System::AnsiString CurName, const System::AnsiString 
  156.         NewName);
  157.     virtual void __fastcall RemoveDependentLinks(void);
  158.     virtual void __fastcall Save(void);
  159.     virtual void __fastcall SetFileSystem(const System::AnsiString FileSystem);
  160.     virtual void __fastcall SetFormName(const System::AnsiString AName);
  161.     virtual void __fastcall Scale(System::Integer Factor);
  162.     virtual void __fastcall SetSelection(const System::AnsiString Name);
  163.     virtual void __fastcall SetNVComp(System::Pointer Comp, System::Integer Order);
  164.     virtual void __fastcall SetTabCompOrder(System::Pointer Comp, System::Integer Order);
  165.     virtual void __fastcall Show(void);
  166.     virtual void __fastcall Hide(void);
  167.     virtual void __fastcall ShowAs(Libintf::TShowState ShowState);
  168.     virtual void __fastcall Size(Libintf::TSizeAffect Affect, System::Integer Value);
  169. };
  170.  
  171. class __declspec(delphiclass) TGrabHandles;
  172. class __declspec(delphiclass) TSelection;
  173. class __declspec(pascalimplementation) TSelection : public System::TObject
  174. {
  175.     typedef TSelection ThisClass;
  176.     typedef System::TObject inherited;
  177.     
  178. private:
  179.     TWindowDesigner *FDesigner;
  180.     Classes::TComponent *FComponent;
  181.     Dsgnintf::TComponentEditor *FEditor;
  182.     System::Boolean FMarked;
  183.     System::Byte FReserved;
  184.     
  185. protected:
  186.     virtual Windows::TRect __fastcall GetBoundsRect(void) = 0;
  187.     virtual System::Integer __fastcall GetDimension(System::Integer Index) = 0;
  188.     virtual Controls::TWinControl *__fastcall GetParent(void) = 0;
  189.     virtual void __fastcall Invalidate(void) = 0;
  190.     virtual void __fastcall SetBoundsRect(const Windows::TRect &Value) = 0;
  191.     virtual void __fastcall SetDimension(System::Integer Index, System::Integer Value) = 0;
  192.     void __fastcall SetMarked(System::Boolean Value);
  193.     
  194. public:
  195.     __fastcall TSelection(TWindowDesigner *Designer, Classes::TComponent *Component);
  196.     __fastcall virtual ~TSelection(void);
  197.     virtual void __fastcall ZOrder(System::Boolean Front) = 0;
  198.     virtual Windows::TPoint __fastcall ClientToScreen(const Windows::TPoint &P) = 0;
  199.     __property Classes::TComponent * Component = {read=FComponent, nodefault};
  200.     __property Dsgnintf::TComponentEditor * Editor = {read=FEditor, nodefault};
  201.     __property Windows::TRect BoundsRect = {read=GetBoundsRect, write=SetBoundsRect};
  202.     __property System::Integer Left = {read=GetDimension, write=SetDimension, index=0, nodefault};
  203.     __property System::Integer Top = {read=GetDimension, write=SetDimension, index=1, nodefault};
  204.     __property System::Integer Width = {read=GetDimension, write=SetDimension, index=2, nodefault};
  205.     __property System::Integer Height = {read=GetDimension, write=SetDimension, index=3, nodefault};
  206.     __property System::Boolean Marked = {read=FMarked, write=SetMarked, nodefault};
  207.     __property Controls::TWinControl * Parent = {read=GetParent, nodefault};
  208. };
  209.  
  210. class __declspec(pascalimplementation) TGrabHandles : public System::TObject
  211. {
  212.     typedef TGrabHandles ThisClass;
  213.     typedef System::TObject inherited;
  214.     
  215. private:
  216.     TWindowDesigner *FDesigner;
  217.     void *FObjectInstance;
  218.     TSelection *FSelection;
  219.     Controls::TWinControl *FParent;
  220.     System::Boolean FVisible;
  221.     System::Boolean FActive;
  222.     System::Integer FHandles[8];
  223.     System::Integer FCursors[8];
  224.     void __fastcall SetActive(System::Boolean Value);
  225.     void __fastcall SetSelection(TSelection *NewSelection);
  226.     void __fastcall Update(void);
  227.     System::Longint __fastcall WndProc(System::Integer Window, System::Cardinal Message, System::Longint 
  228.         WParam, System::Longint LParam);
  229.     
  230. public:
  231.     __fastcall TGrabHandles(TWindowDesigner *ADesigner);
  232.     __fastcall virtual ~TGrabHandles(void);
  233.     void __fastcall Hide(void);
  234.     void __fastcall Show(void);
  235.     void __fastcall Invalidate(void);
  236.     __property System::Boolean Active = {read=FActive, write=SetActive, nodefault};
  237.     __property TSelection * Selection = {read=FSelection, write=SetSelection, nodefault};
  238. };
  239.  
  240. enum TDragAction { daNone, daCreate, daSelect, daMove, daSize };
  241.  
  242. enum TCoordinate { cLeft, cTop, cRight, cBottom };
  243.  
  244. typedef Set<TCoordinate, cLeft, cBottom>  TCoordinates;
  245.  
  246. class __declspec(delphiclass) TDragTarget;
  247. class __declspec(pascalimplementation) TDragTarget : public System::TObject
  248. {
  249.     typedef TDragTarget ThisClass;
  250.     typedef System::TObject inherited;
  251.     
  252. private:
  253.     Dsgnintf::TFormDesigner *FDesigner;
  254.     
  255. public:
  256.     __fastcall virtual TDragTarget(Dsgnintf::TFormDesigner *ADesigner);
  257.     virtual System::Boolean __fastcall DragOver(System::TObject *Target, System::TObject *Source, System::Integer 
  258.         X, System::Integer Y, Controls::TDragState State) = 0;
  259.     virtual void __fastcall DragDrop(System::TObject *Target, System::TObject *Source, System::Integer 
  260.         X, System::Integer Y) = 0;
  261.     __property Dsgnintf::TFormDesigner * Designer = {read=FDesigner, nodefault};
  262. public:
  263.     /* !! TObject.Destroy */ __fastcall virtual ~TDragTarget(void) { }
  264.     
  265. };
  266.  
  267. class __declspec(delphiclass) TFormIntf;
  268. class __declspec(pascalimplementation) TFormIntf : public Editintf::TIFormInterface
  269. {
  270.     typedef TFormIntf ThisClass;
  271.     typedef Editintf::TIFormInterface inherited;
  272.     
  273. private:
  274.     TWindowDesigner *FDesigner;
  275.     
  276. public:
  277.     __fastcall TFormIntf(TWindowDesigner *ADesigner);
  278.     __fastcall virtual ~TFormIntf(void);
  279.     virtual System::AnsiString __stdcall FileName(void);
  280.     virtual System::Boolean __stdcall FormModified(void);
  281.     virtual System::Boolean __stdcall MarkModified(void);
  282.     virtual Editintf::TIComponentInterface *__stdcall GetFormComponent(void);
  283.     virtual Editintf::TIComponentInterface *__stdcall FindComponent(const System::AnsiString Name);
  284.     virtual Editintf::TIComponentInterface *__stdcall GetComponentFromHandle(System::Pointer ComponentHandle
  285.         );
  286.     virtual System::Integer __stdcall GetSelCount(void);
  287.     virtual Editintf::TIComponentInterface *__stdcall GetSelComponent(System::Integer Index);
  288.     virtual Editintf::TIComponentInterface *__stdcall GetCreateParent(void);
  289.     virtual Editintf::TIComponentInterface *__stdcall CreateComponent(Editintf::TIComponentInterface *Container
  290.         , const System::AnsiString TypeName, System::Integer X, System::Integer Y, System::Integer W, System::Integer 
  291.         H);
  292. };
  293.  
  294. class __declspec(delphiclass) TContainer;
  295. enum TGrabLocation { gTopLeft, gTop, gTopRight, gRight, gBottomRight, gBottom, gBottomLeft, gLeft };
  296.     
  297.  
  298. class __declspec(pascalimplementation) TWindowDesigner : public Dsgnintf::TFormDesigner
  299. {
  300.     typedef TWindowDesigner ThisClass;
  301.     typedef Dsgnintf::TFormDesigner inherited;
  302.     
  303. public:
  304.     TLibForm *LibForm;
  305.     Classes::TList *Containers;
  306.     Controls::TWinControl *ContainerWindow;
  307.     Classes::TComponent *Root;
  308.     
  309. private:
  310.     Classes::TMemoryStream *FormStream;
  311.     System::Longint ModifyTime;
  312.     System::Longint DiskAge;
  313.     TGrabHandles *GrabHandles;
  314.     Classes::TList *Selections;
  315.     System::Integer SelectLevel;
  316.     System::Boolean SelectionChanged;
  317.     System::Byte Reserved;
  318.     Controls::TControlCanvas *Canvas;
  319.     Windows::TPoint GridSize;
  320.     System::Boolean GridAlign;
  321.     System::Boolean DisplayGrid;
  322.     System::Boolean ShowCaptions;
  323.     Graphics::TBitmap *GridImage;
  324.     Windows::TPoint ImageGridSize;
  325.     Graphics::TColor ImageColor;
  326.     TDragAction DragAction;
  327.     TCoordinates DragCoords;
  328.     Controls::TWinControl *DragParent;
  329.     Windows::TPoint Anchor;
  330.     Windows::TRect DragRect;
  331.     System::AnsiString FileName;
  332.     Classes::TStream *UndoStream;
  333.     Controls::TWinControl *UndoParent;
  334.     Dsgnintf::TComponentEditor *FormEditor;
  335.     Menus::TPopupMenu *LocalMenu;
  336.     System::Boolean InUndo;
  337.     System::Boolean CreateContainers;
  338.     Update::TUpdateManager *UpdateManager;
  339.     Classes::TStrings *ImportedFormList;
  340.     Classes::TList *Dependencies;
  341.     Classes::TList *Dependents;
  342.     System::Boolean DependenciesUpToDate;
  343.     TDragTarget *VCLDragTarget;
  344.     Virtfile::TVirtualFileSystem *FFileSystem;
  345.     TFormIntf *FormInterface;
  346.     System::TMetaClass *RootBaseClass;
  347.     TWindowDesigner *AncestorDesigner;
  348.     System::Boolean ReadError;
  349.     System::Boolean IgnoringErrors;
  350.     Menus::TMenuItem *RevertItem;
  351.     System::Boolean FIgnoreRename;
  352.     System::Boolean FValidateDeletes;
  353.     __fastcall TWindowDesigner(TLibForm *AForm, const System::AnsiString AFileName, System::Boolean Existing
  354.         , Virtintf::TIStream *IStream, const System::AnsiString AFormName, const System::AnsiString AncestorName
  355.         , const System::AnsiString AFileSystem);
  356.     __fastcall virtual ~TWindowDesigner(void);
  357.     void __fastcall Activate(System::Boolean Activating);
  358.     void __fastcall Align(Libintf::TAffect Affect);
  359.     void __fastcall BeginSelect(void);
  360.     System::Boolean __fastcall CanPaste(void);
  361.     void __fastcall ClearDependents(void);
  362.     void __fastcall ClearDependencies(void);
  363.     void __fastcall UpdateDependencies(void);
  364.     void __fastcall ClearSelection(void);
  365.     void __fastcall Close(void);
  366.     void __fastcall ComponentInserted(Classes::TComponent *Component);
  367.     void __fastcall ComponentRemoved(Classes::TComponent *Component);
  368.     void __fastcall ComponentRead(Classes::TComponent *Component);
  369.     void __fastcall ComponentReadAdjust(Classes::TComponent *Component);
  370.     void __fastcall CopySelection(void);
  371.     void __fastcall CreateIComponent(Libintf::TICompClass *CompClass);
  372.     virtual Sysutils::TMethod __fastcall CreateMethod(const System::AnsiString Name, Typinfo::PTypeData 
  373.         TypeData);
  374.     void __fastcall CutSelection(void);
  375.     void __fastcall DeleteSelection(void);
  376.     Classes::TComponent *__fastcall DoCreateComponent(System::TMetaClass * ComponentClass, const Windows::TRect 
  377.         &Rect);
  378.     void __fastcall DoDragCreate(void);
  379.     void __fastcall DoDragSelect(void);
  380.     void __fastcall DoDragMove(void);
  381.     void __fastcall DoDragSize(void);
  382.     void __fastcall DragBegin(const Windows::TPoint &Pos);
  383.     void __fastcall DragCancel(void);
  384.     void __fastcall DragEnd(const Windows::TPoint &Pos, System::Boolean Accept);
  385.     void __fastcall DragTo(const Windows::TPoint &Pos);
  386.     void __fastcall DrawDrag(void);
  387.     void __fastcall DrawDragRect(const Windows::TRect &R);
  388.     void __fastcall Edit(Classes::TComponent *Component);
  389.     void __fastcall EndSelect(void);
  390.     TContainer *__fastcall FindContainer(Classes::TComponent *Component);
  391.     Controls::TWinControl *__fastcall FindParentControl(Classes::TComponent *Component);
  392.     Controls::TWinControl *__fastcall FindCurrentParent(void);
  393.     Classes::TComponent *__fastcall FindNearest(Classes::TComponent *CurComponent, System::Word ArrowKey
  394.         );
  395.     Classes::TComponent *__fastcall FindNextComponent(Classes::TComponent *CurComponent, System::Boolean 
  396.         GoForward);
  397.     TSelection *__fastcall FindSelection(Classes::TComponent *Component);
  398.     void __fastcall ForceCommonSelectParent(Controls::TWinControl *CommonParent);
  399.     void __fastcall FreeSelections(void);
  400.     Windows::TRect __fastcall GetDragRect(const Windows::TPoint &Pos);
  401.     void __fastcall GetDependentForms(Libintf::TGetFormProc Proc);
  402.     void __fastcall GetFormDependencies(Libintf::TGetFormProc Proc);
  403.     Editintf::TIFormInterface *__fastcall GetFormInterface(void);
  404.     Classes::TMemoryStream *__fastcall GetFormStream(void);
  405.     Windows::TPoint __fastcall GetGridOffset(void);
  406.     virtual System::AnsiString __fastcall GetMethodName(const Sysutils::TMethod &Method);
  407.     virtual void __fastcall GetMethods(Typinfo::PTypeData TypeData, Classes::TGetStrProc Proc);
  408.     virtual System::AnsiString __fastcall GetPrivateDirectory(void);
  409.     virtual void __fastcall GetSelections(Dsgnintf::TComponentList *List);
  410.     void __fastcall GrabHandleMouseDown(const Windows::TPoint &Pos, TGrabLocation Location);
  411.     void __fastcall InsertSelection(TSelection *Selection);
  412.     virtual System::Boolean __fastcall IsDesignMsg(Controls::TControl *Sender, Messages::TMessage &Message
  413.         );
  414.     void __fastcall KeyDown(System::Word Key);
  415.     void __fastcall KeyPress(System::Char Ch);
  416.     void __fastcall MenuCommand(System::Word Command);
  417.     virtual System::Boolean __fastcall MethodExists(const System::AnsiString Name);
  418.     virtual System::Boolean __fastcall MethodFromAncestor(const Sysutils::TMethod &Method);
  419.     virtual void __fastcall Modified(void);
  420.     void __fastcall MouseDown(Classes::TComponent *Sender, const Windows::TPoint &Pos, System::Word Keys
  421.         , System::Boolean DblClick, System::Boolean RightMouse);
  422.     void __fastcall MoveBy(const Windows::TPoint &Delta, System::Boolean Size);
  423.     virtual void __fastcall Notification(Classes::TComponent *AComponent, Classes::TOperation Operation
  424.         );
  425.     virtual void __fastcall PaintGrid(void);
  426.     void __fastcall PasteSelection(void);
  427.     Windows::TPoint __fastcall PointToGrid(const Windows::TPoint &Pos, System::Boolean Force);
  428.     TSelection *__fastcall PrimarySelection(void);
  429.     virtual System::AnsiString __fastcall UniqueName(const System::AnsiString BaseName);
  430.     void __fastcall ReadStream(Classes::TStream *S, Classes::TComponent *Parent, System::Boolean AdjustPos
  431.         );
  432.     void __fastcall ReaderFindMethod(Classes::TReader *Reader, const System::AnsiString MethodName, System::Pointer 
  433.         &Address, System::Boolean &Error);
  434.     void __fastcall ReaderSetName(Classes::TReader *Reader, Classes::TComponent *Component,  System::AnsiString &
  435.         Name);
  436.     void __fastcall RemoveSelection(TSelection *Selection);
  437.     void __fastcall Rename(const System::AnsiString NewFileName);
  438.     void __fastcall RenameFormMethod(const System::AnsiString CurName, const System::AnsiString NewName
  439.         );
  440.     virtual void __fastcall RenameMethod(const System::AnsiString CurName, const System::AnsiString NewName
  441.         );
  442.     void __fastcall Save(void);
  443.     void __fastcall Select(Classes::TComponent *Component, System::Boolean Extend);
  444.     void __fastcall SelectAll(void);
  445.     virtual void __fastcall SelectComponent(Classes::TComponent *Component);
  446.     Classes::TComponent *__fastcall SelectedComponent(void);
  447.     void __fastcall SetActive(System::Boolean Value);
  448.     void __fastcall SetFileSystem(const System::AnsiString FileSystem);
  449.     virtual void __fastcall SetSelections(Dsgnintf::TComponentList *List);
  450.     void __fastcall Show(void);
  451.     void __fastcall ShowAs(Libintf::TShowState ShowState);
  452.     virtual void __fastcall ShowMethod(const System::AnsiString Name);
  453.     void __fastcall Size(Libintf::TSizeAffect Affect, System::Integer Value);
  454.     void __fastcall StreamSelection(Classes::TStream *S);
  455.     System::Integer __fastcall SnapToGrid(System::Integer Coord, System::Integer GridOffset, System::Integer 
  456.         GridSize, System::Boolean Force);
  457.     void __fastcall UpdatingFromAncestor(System::TObject *Sender);
  458.     void __fastcall UpdatedFromAncestor(System::TObject *Sender);
  459.     void __fastcall Undo(void);
  460.     void __fastcall UpdateOptions(void);
  461.     virtual void __fastcall ValidateRename(Classes::TComponent *AComponent, const System::AnsiString CurName
  462.         , const System::AnsiString NewName);
  463.     void __fastcall ZOrder(System::Boolean Front);
  464.     void __fastcall LocalPopup(System::TObject *Sender);
  465.     void __fastcall AlignToGrid(System::TObject *Sender);
  466.     void __fastcall BringToFront(System::TObject *Sender);
  467.     void __fastcall SendToBack(System::TObject *Sender);
  468.     void __fastcall RevertComponent(System::TObject *Sender);
  469.     void __fastcall AppDialog(Libintf::TDesignDialog DesignDialog);
  470.     void __fastcall AppAlignDialog(System::TObject *Sender);
  471.     void __fastcall AppSizeDialog(System::TObject *Sender);
  472.     void __fastcall AppScaleDialog(System::TObject *Sender);
  473.     void __fastcall AppTabOrderDialog(System::TObject *Sender);
  474.     void __fastcall AppCreationOrderDialog(System::TObject *Sender);
  475.     void __fastcall AppSaveTemplateDialog(System::TObject *Sender);
  476.     void __fastcall AppViewAsText(System::TObject *Sender);
  477.     void __fastcall ComponentVerb(System::TObject *Sender);
  478.     void __fastcall InvokeLocalMenu(System::Integer X, System::Integer Y);
  479.     void __fastcall MoveContainersFront(void);
  480.     virtual void __fastcall GetComponentNames(Typinfo::PTypeData TypeData, Classes::TGetStrProc Proc);
  481.     virtual Classes::TComponent *__fastcall GetComponent(const System::AnsiString Name);
  482.     virtual System::AnsiString __fastcall GetComponentName(Classes::TComponent *Component);
  483.     void __fastcall AddImportedForm(const System::AnsiString FormName);
  484.     void __fastcall VCLDragDrop(Controls::TControl *Sender, Controls::TCMDrag &DragMsg);
  485.     virtual Classes::TComponent *__fastcall CreateComponent(System::TMetaClass * ComponentClass, Classes::TComponent *
  486.         Parent, System::Integer Left, System::Integer Top, System::Integer Width, System::Integer Height);
  487.         
  488.     void __fastcall ReadObjectFromStream(Classes::TComponent *Instance, Classes::TStream *Stream);
  489.     void __fastcall ReaderObjectError(Classes::TReader *Reader, const System::AnsiString Message, System::Boolean 
  490.         &Handled);
  491.     void __fastcall FindObjectMethod(Classes::TReader *Reader, const System::AnsiString MethodName, System::Pointer 
  492.         &Address, System::Boolean &Error);
  493.     void __fastcall CreateRootInstance(const System::AnsiString AClassName);
  494.     void __fastcall CreateRootFrom(Classes::TStream *Stream, const System::AnsiString AClassName);
  495.     void __fastcall CreateRootAs(const System::AnsiString AClassName);
  496.     void __fastcall UpdateCreateInfoFrom(Classes::TStream *Stream,  System::AnsiString &ClassName);
  497.     void __fastcall SetCreateInfo(const System::AnsiString AncestorClassName);
  498.     virtual System::Boolean __fastcall IsComponentLinkable(Classes::TComponent *Component);
  499.     virtual void __fastcall MakeComponentLinkable(Classes::TComponent *Component);
  500.     virtual Classes::TComponent *__fastcall GetRoot(void);
  501.     virtual void __fastcall Revert(Classes::TPersistent *Instance, Typinfo::PPropInfo PropInfo);
  502.     void __fastcall ResyncContainers(void);
  503.     void __fastcall RemoveDependentLinks(void);
  504.     void __fastcall RemoveDependenciesOn(Classes::TComponent *Component);
  505.     Libintf::TDesignerKind __fastcall GetDesignerKind(void);
  506. public:
  507.     /* !! TObject.Create */ __fastcall TWindowDesigner(void) : Dsgnintf::TFormDesigner() { }
  508.     
  509. };
  510.  
  511. class __declspec(pascalimplementation) TDesignerToolWindow : public System::TObject
  512. {
  513.     typedef TDesignerToolWindow ThisClass;
  514.     typedef System::TObject inherited;
  515.     
  516. private:
  517.     TWindowDesigner *FDesigner;
  518.     void *FObjectInstance;
  519.     System::Integer FHandle;
  520.     void __fastcall MainWndProc(Messages::TMessage &Message);
  521.     
  522. protected:
  523.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  524.     
  525. public:
  526.     __fastcall TDesignerToolWindow(TWindowDesigner *Designer);
  527.     __fastcall virtual ~TDesignerToolWindow(void);
  528.     virtual void __fastcall Sync(void);
  529.     void __fastcall Invalidate(void);
  530.     virtual Windows::TRect __fastcall Position(void) = 0;
  531.     __property System::Integer Handle = {read=FHandle, nodefault};
  532.     __property TWindowDesigner * Designer = {read=FDesigner, nodefault};
  533. };
  534.  
  535. class __declspec(delphiclass) TComponentToolWindow;
  536. class __declspec(pascalimplementation) TComponentToolWindow : public TDesignerToolWindow
  537. {
  538.     typedef TComponentToolWindow ThisClass;
  539.     typedef TDesignerToolWindow inherited;
  540.     
  541. private:
  542.     Classes::TComponent *FComponent;
  543.     
  544. protected:
  545.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  546.     
  547. public:
  548.     __fastcall TComponentToolWindow(TWindowDesigner *Designer, Classes::TComponent *Component);
  549. public:
  550.     /* !! TDesignerToolWindow.Destroy */ __fastcall virtual ~TComponentToolWindow(void) { }
  551.     
  552. };
  553.  
  554. class __declspec(delphiclass) TContainerCaption;
  555. class __declspec(pascalimplementation) TContainerCaption : public TComponentToolWindow
  556. {
  557.     typedef TContainerCaption ThisClass;
  558.     typedef TComponentToolWindow inherited;
  559.     
  560. private:
  561.     TContainer *FContainer;
  562.     Graphics::TCanvas *FCanvas;
  563.     System::AnsiString FCurrent;
  564.     
  565. protected:
  566.     virtual Windows::TRect __fastcall Position(void);
  567.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  568.     
  569. public:
  570.     __fastcall TContainerCaption(TWindowDesigner *Designer, TContainer *Container);
  571.     __fastcall virtual ~TContainerCaption(void);
  572.     __property TContainer * Container = {read=FContainer, nodefault};
  573.     void __fastcall Update(void);
  574. };
  575.  
  576. class __declspec(pascalimplementation) TContainer : public TComponentToolWindow
  577. {
  578.     typedef TContainer ThisClass;
  579.     typedef TComponentToolWindow inherited;
  580.     
  581. private:
  582.     Windows::TPoint FOffset;
  583.     TContainerCaption *FCaption;
  584.     Windows::TRect __fastcall GetBoundsRect(void);
  585.     System::Boolean __fastcall GetShowCaption(void);
  586.     System::Integer __fastcall GetLeft(void);
  587.     System::Integer __fastcall GetTop(void);
  588.     void __fastcall SetBoundsRect(const Windows::TRect &Value);
  589.     void __fastcall SetShowCaption(System::Boolean Value);
  590.     void __fastcall SetLeft(System::Integer Value);
  591.     void __fastcall SetTop(System::Integer Value);
  592.     
  593. protected:
  594.     virtual Windows::TRect __fastcall Position(void);
  595.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  596.     
  597. public:
  598.     __fastcall TContainer(TWindowDesigner *Designer, Classes::TComponent *Component);
  599.     __fastcall virtual ~TContainer(void);
  600.     virtual void __fastcall Sync(void);
  601.     void __fastcall Update(void);
  602.     __property Windows::TRect BoundsRect = {read=GetBoundsRect, write=SetBoundsRect};
  603.     __property System::Integer Left = {read=GetLeft, write=SetLeft, nodefault};
  604.     __property System::Integer Top = {read=GetTop, write=SetTop, nodefault};
  605.     __property Classes::TComponent * Component = {read=FComponent, nodefault};
  606.     __property TContainerCaption * Caption = {read=FCaption, nodefault};
  607.     __property System::Boolean ShowCaption = {read=GetShowCaption, write=SetShowCaption, nodefault};
  608. };
  609.  
  610. class __declspec(delphiclass) TControlSelection;
  611. class __declspec(pascalimplementation) TControlSelection : public TSelection
  612. {
  613.     typedef TControlSelection ThisClass;
  614.     typedef TSelection inherited;
  615.     
  616. private:
  617.     void __fastcall GetPaintInfo(System::Integer &Handle, Windows::TRect &Rect);
  618.     
  619. protected:
  620.     virtual Windows::TRect __fastcall GetBoundsRect(void);
  621.     virtual System::Integer __fastcall GetDimension(System::Integer Index);
  622.     virtual Controls::TWinControl *__fastcall GetParent(void);
  623.     virtual void __fastcall Invalidate(void);
  624.     virtual void __fastcall SetBoundsRect(const Windows::TRect &Value);
  625.     virtual void __fastcall SetDimension(System::Integer Index, System::Integer Value);
  626.     
  627. public:
  628.     void __fastcall Paint(System::Integer DC);
  629.     virtual Windows::TPoint __fastcall ClientToScreen(const Windows::TPoint &P);
  630.     virtual void __fastcall ZOrder(System::Boolean Front);
  631. public:
  632.     /* !! TSelection.Create */ __fastcall TControlSelection(TWindowDesigner *Designer, Classes::TComponent *
  633.         Component) : Libmain::TSelection(Designer, Component) { }
  634.     /* !! TSelection.Destroy */ __fastcall virtual ~TControlSelection(void) { }
  635.     
  636. };
  637.  
  638. class __declspec(delphiclass) TComponentSelection;
  639. class __declspec(pascalimplementation) TComponentSelection : public TSelection
  640. {
  641.     typedef TComponentSelection ThisClass;
  642.     typedef TSelection inherited;
  643.     
  644. private:
  645.     TContainer *FContainer;
  646.     
  647. protected:
  648.     virtual Windows::TRect __fastcall GetBoundsRect(void);
  649.     virtual System::Integer __fastcall GetDimension(System::Integer Index);
  650.     virtual Controls::TWinControl *__fastcall GetParent(void);
  651.     virtual void __fastcall Invalidate(void);
  652.     virtual void __fastcall SetBoundsRect(const Windows::TRect &Value);
  653.     virtual void __fastcall SetDimension(System::Integer Index, System::Integer Value);
  654.     
  655. public:
  656.     __fastcall TComponentSelection(TWindowDesigner *Designer, TContainer *Container);
  657.     virtual Windows::TPoint __fastcall ClientToScreen(const Windows::TPoint &P);
  658.     virtual void __fastcall ZOrder(System::Boolean Front);
  659. public:
  660.     /* !! TSelection.Destroy */ __fastcall virtual ~TComponentSelection(void) { }
  661.     
  662. };
  663.  
  664. class __declspec(delphiclass) TNilSelection;
  665. class __declspec(pascalimplementation) TNilSelection : public TSelection
  666. {
  667.     typedef TNilSelection ThisClass;
  668.     typedef TSelection inherited;
  669.     
  670. protected:
  671.     virtual Windows::TRect __fastcall GetBoundsRect(void);
  672.     virtual System::Integer __fastcall GetDimension(System::Integer Index);
  673.     virtual Controls::TWinControl *__fastcall GetParent(void);
  674.     virtual void __fastcall Invalidate(void);
  675.     virtual void __fastcall SetBoundsRect(const Windows::TRect &Value);
  676.     virtual void __fastcall SetDimension(System::Integer Index, System::Integer Value);
  677.     
  678. public:
  679.     virtual Windows::TPoint __fastcall ClientToScreen(const Windows::TPoint &P);
  680.     virtual void __fastcall ZOrder(System::Boolean Front);
  681. public:
  682.     /* !! TSelection.Create */ __fastcall TNilSelection(TWindowDesigner *Designer, Classes::TComponent *
  683.         Component) : Libmain::TSelection(Designer, Component) { }
  684.     /* !! TSelection.Destroy */ __fastcall virtual ~TNilSelection(void) { }
  685.     
  686. };
  687.  
  688. class __declspec(delphiclass) TComponentIntf;
  689. class __declspec(pascalimplementation) TComponentIntf : public Editintf::TIComponentInterface
  690. {
  691.     typedef TComponentIntf ThisClass;
  692.     typedef Editintf::TIComponentInterface inherited;
  693.     
  694. private:
  695.     Classes::TPersistent *FObject;
  696.     TWindowDesigner *FDesigner;
  697.     Typinfo::TPropList *FPropList;
  698.     Editintf::TGetChildCallback FProc;
  699.     void *FParam;
  700.     Typinfo::PPropList __fastcall GetPropList(void);
  701.     void __fastcall GetChildProc(Classes::TComponent *Child);
  702.     
  703. public:
  704.     __fastcall TComponentIntf(Classes::TPersistent *AObject, TWindowDesigner *ADesigner);
  705.     __fastcall virtual ~TComponentIntf(void);
  706.     virtual System::AnsiString __stdcall GetComponentType(void);
  707.     virtual System::Pointer __stdcall GetComponentHandle(void);
  708.     virtual Editintf::TIComponentInterface *__stdcall GetParent(void);
  709.     virtual System::Boolean __stdcall IsTControl(void);
  710.     virtual System::Integer __stdcall GetPropCount(void);
  711.     virtual System::AnsiString __stdcall GetPropName(System::Integer Index);
  712.     virtual Editintf::TPropertyType __stdcall GetPropType(System::Integer Index);
  713.     virtual Editintf::TPropertyType __stdcall GetPropTypeByName(const System::AnsiString Name);
  714.     virtual System::Boolean __stdcall GetPropValue(System::Integer Index, void *Value);
  715.     virtual System::Boolean __stdcall GetPropValueByName(const System::AnsiString Name, void *Value);
  716.     virtual System::Boolean __stdcall SetProp(System::Integer Index, const void *Value);
  717.     virtual System::Boolean __stdcall SetPropByName(const System::AnsiString Name, const void *Value);
  718.     virtual System::Boolean __stdcall GetChildren(System::Pointer Param, Editintf::TGetChildCallback Proc
  719.         );
  720.     virtual System::Integer __stdcall GetControlCount(void);
  721.     virtual Editintf::TIComponentInterface *__stdcall GetControl(System::Integer Index);
  722.     virtual System::Integer __stdcall GetComponentCount(void);
  723.     virtual Editintf::TIComponentInterface *__stdcall GetComponent(System::Integer Index);
  724.     virtual System::Boolean __stdcall Select(void);
  725.     virtual System::Boolean __stdcall Focus(void);
  726.     virtual System::Boolean __stdcall Delete(void);
  727. };
  728.  
  729. class __declspec(delphiclass) TProperty;
  730. class __declspec(pascalimplementation) TProperty : public Libintf::TIProperty
  731. {
  732.     typedef TProperty ThisClass;
  733.     typedef Libintf::TIProperty inherited;
  734.     
  735. private:
  736.     Dsgnintf::TPropertyEditor *Editor;
  737.     
  738. public:
  739.     __fastcall TProperty(Dsgnintf::TPropertyEditor *AEditor);
  740.     __fastcall virtual ~TProperty(void);
  741.     virtual void __fastcall Activate(void);
  742.     virtual System::Boolean __fastcall AllEqual(void);
  743.     virtual void __fastcall Edit(void);
  744.     virtual Dsgnintf::TPropertyAttributes __fastcall GetAttributes(void);
  745.     virtual System::AnsiString __fastcall GetCompClassName(void);
  746.     virtual System::Integer __fastcall GetEditLimit(void);
  747.     virtual System::Boolean __fastcall GetEditValue( System::AnsiString &Value);
  748.     virtual System::AnsiString __fastcall GetName(void);
  749.     virtual void __fastcall GetProperties(Libintf::TGetPropProc Proc);
  750.     virtual Typinfo::PTypeInfo __fastcall GetPropType(void);
  751.     virtual System::AnsiString __fastcall GetValue(void);
  752.     virtual void __fastcall GetValues(Classes::TGetStrProc Proc);
  753.     virtual void __fastcall Revert(void);
  754.     virtual void __fastcall SetValue(const System::AnsiString Value);
  755. };
  756.  
  757. class __declspec(delphiclass) TCompInfo;
  758. class __declspec(pascalimplementation) TCompInfo : public Libintf::TICompInfo
  759. {
  760.     typedef TCompInfo ThisClass;
  761.     typedef Libintf::TICompInfo inherited;
  762.     
  763. private:
  764.     TWindowDesigner *FDesigner;
  765.     Classes::TComponent *FComponent;
  766.     Typinfo::TPropList *FList;
  767.     System::Integer FCount;
  768.     
  769. public:
  770.     __fastcall TCompInfo(TWindowDesigner *Designer, Classes::TComponent *Component);
  771.     __fastcall virtual ~TCompInfo(void);
  772.     virtual void __fastcall ClearEvent(System::Integer Index);
  773.     virtual System::AnsiString __fastcall GetClassName(void);
  774.     virtual System::Integer __fastcall GetEventCount(void);
  775.     virtual Typinfo::PPropInfo __fastcall GetEventInfo(System::Integer Index);
  776.     virtual System::AnsiString __fastcall GetEventValue(System::Integer Index);
  777.     virtual System::Pointer __fastcall GetComponentHandle(void);
  778. };
  779.  
  780. class __declspec(delphiclass) TCompClass;
  781. class __declspec(pascalimplementation) TCompClass : public Libintf::TICompClass
  782. {
  783.     typedef TCompClass ThisClass;
  784.     typedef Libintf::TICompClass inherited;
  785.     
  786. private:
  787.     System::TMetaClass *ComponentClass;
  788.     System::Integer ModuleIndex;
  789.     System::AnsiString DefaultPage;
  790.     System::Integer Offset;
  791.     
  792. public:
  793.     __fastcall TCompClass(System::TMetaClass * AComponentClass, System::Integer AModuleIndex, const System::AnsiString 
  794.         ADefaultPage);
  795.     virtual Windows::TPoint __fastcall GetBitmapPos(System::Boolean Selected);
  796.     virtual System::AnsiString __fastcall GetClassName(void);
  797.     virtual System::AnsiString __fastcall GetDefaultPage(void);
  798.     virtual System::Integer __fastcall GetModuleIndex(void);
  799. public:
  800.     /* !! TObject.Destroy */ __fastcall virtual ~TCompClass(void) { }
  801.     
  802. };
  803.  
  804. class __declspec(delphiclass) TLibrary;
  805. class __declspec(pascalimplementation) TLibrary : public Libintf::TILibrary
  806. {
  807.     typedef TLibrary ThisClass;
  808.     typedef Libintf::TILibrary inherited;
  809.     
  810. private:
  811.     Classes::TList *FormList;
  812.     TLibForm *ActiveForm;
  813.     Forms::TForm *ActiveWindow;
  814.     Dsgnintf::TComponentList *Selection;
  815.     Classes::TList *ExpertList;
  816.     Libintf::TGetPropProc PropProc;
  817.     void *ExitList;
  818.     Graphics::TBitmap *CompBitmap;
  819.     System::Boolean ControlsLocked;
  820.     void __fastcall CreateProperty(Dsgnintf::TPropertyEditor *Prop);
  821.     void __fastcall FormActivated(Libintf::TIForm *Form);
  822.     void __fastcall CreateComponentBitmap(void);
  823.     void __fastcall RegisterExperts(void);
  824.     void __fastcall UnRegisterExperts(void);
  825.     void __fastcall UpdateSelections(void);
  826.     void __fastcall UpdateFormDependents(void);
  827.     void __fastcall ShowException(System::TObject *Sender, Sysutils::Exception *E);
  828.     
  829. public:
  830.     __fastcall TLibrary(Libintf::TIAppBuilder *App);
  831.     __fastcall virtual ~TLibrary(void);
  832.     void __fastcall CancelModes(void);
  833.     virtual Libintf::TIForm *__fastcall CreateForm(Libintf::TIModule *AModule, const System::AnsiString 
  834.         AFileName, System::Boolean Existing, const System::AnsiString AFormName, const System::AnsiString 
  835.         AAncestor, const System::AnsiString AFileSystem);
  836.     virtual Libintf::TIForm *__fastcall CreateFromStream(Libintf::TIModule *AModule, const System::AnsiString 
  837.         AFileName, const System::AnsiString AFileSystem, Virtintf::TIStream *IStream);
  838.     virtual void __fastcall DesignerOptionsChanged(void);
  839.     virtual void __fastcall EditAction(Libintf::TEditAction Action);
  840.     virtual Libintf::TIFile *__fastcall FindFile(const System::AnsiString FileName);
  841.     TLibForm *__fastcall FindForm(const System::AnsiString FormName);
  842.     virtual Libintf::TIForm *__fastcall GetActiveForm(void);
  843.     virtual void __fastcall GetClassUnits(const System::AnsiString ClassName, Classes::TGetStrProc Proc
  844.         );
  845.     virtual Libintf::TICompClass *__fastcall GetCompClass(System::Integer Index);
  846.     virtual System::Integer __fastcall GetCompClassCount(void);
  847.     virtual void __fastcall GetCompHierarchy(Classes::TGetStrProc Proc);
  848.     virtual System::Integer __fastcall GetComponentBitmap(void);
  849.     virtual Libintf::TEditState __fastcall GetEditState(void);
  850.     virtual System::Integer __fastcall GetModuleCount(void);
  851.     virtual System::AnsiString __fastcall GetModuleName(System::Integer Index);
  852.     virtual System::Boolean __fastcall GetOleCtrlHelp(const System::AnsiString Member, System::Integer 
  853.         &HelpCtx,  System::AnsiString &HelpFile);
  854.     virtual void __fastcall GetProperties(Libintf::TPropKind PropKind, Libintf::TGetPropProc Proc);
  855.     virtual System::AnsiString __fastcall GetSelectionName(void);
  856.     virtual System::AnsiString __fastcall GetSelectionType(void);
  857.     virtual void __fastcall HideWindows(void);
  858.     virtual void __fastcall IsDesignMsg(Windows::TMsg &Msg, System::Boolean &Handled);
  859.     virtual System::Boolean __fastcall IsTopmostForm(System::Integer Wnd);
  860.     virtual void __fastcall ModalEditDone(System::Pointer ReturnWindow);
  861.     virtual void __fastcall RaiseException(const System::AnsiString Message);
  862.     void __fastcall RemoveDependenciesOn(Classes::TComponent *Component);
  863.     void __fastcall SetSelection(Forms::TDesigner *Designer, Forms::TForm *DesignWindow, Dsgnintf::TComponentList *
  864.         ASelection);
  865.     virtual void __fastcall ShowWindows(void);
  866.     virtual void __fastcall SetLockState(System::Boolean State);
  867.     virtual void __fastcall SetProjectName( System::AnsiString Name);
  868.     __property Classes::TList * FormsList = {read=FormList, nodefault};
  869. };
  870.  
  871. class __declspec(delphiclass) TLibDdeHelper;
  872. class __declspec(pascalimplementation) TLibDdeHelper : public System::TObject
  873. {
  874.     typedef TLibDdeHelper ThisClass;
  875.     typedef System::TObject inherited;
  876.     
  877. public:
  878.     virtual void __fastcall SetProjectName( System::AnsiString Name) = 0;
  879. public:
  880.     /* !! TObject.Create */ __fastcall TLibDdeHelper(void) : System::TObject() { }
  881.     /* !! TObject.Destroy */ __fastcall virtual ~TLibDdeHelper(void) { }
  882.     
  883. };
  884.  
  885. typedef void __fastcall (*TRegisterProc)(void);
  886.  
  887. typedef System::TMetaClass *TDragTargetClass;
  888.  
  889. //-- var, const, procedure ---------------------------------------------------
  890. #define CompIconSize System::Byte(28)
  891. #define LibrarySignature "COMPLIB0054"
  892. extern System::Word CF_COMPONENTS;
  893. extern TLibrary *CompLib;
  894. extern Libintf::TIAppBuilder *AppBuilder;
  895. extern TLibDdeHelper *LibDdeHelper;
  896. extern System::Char IVFLAG[8];
  897. extern System::Longint IVNUM;
  898. extern System::Char IVCOPYRIGHT[8];
  899. extern void __fastcall RegisterModule(const System::AnsiString Name, TRegisterProc RegisterProc);
  900. extern void __fastcall RegisterDesignWindow(Dsgnwnds::TDesignWindow *Window);
  901. extern void __fastcall UnregisterDesignWindow(Dsgnwnds::TDesignWindow *Window);
  902. extern Libintf::TILibrary *__fastcall InitLibrary(Libintf::TIAppBuilder *App);
  903. extern void __fastcall GetFormNames(Classes::TStrings *Names);
  904. extern void __fastcall RegisterDragTarget(const System::AnsiString SourceName, System::TMetaClass * 
  905.     TargetClass);
  906. extern void __fastcall CopyStreamToClipboard(Classes::TMemoryStream *S);
  907. extern System::Boolean __fastcall PossibleStream( System::AnsiString S);
  908. extern Classes::TMemoryStream *__fastcall GetClipboardStream(void);
  909. //-- template instantiations -------------------------------------------------
  910. template class TCoordinates ;
  911.  
  912. }    /* namespace Libmain */
  913. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  914. using namespace Libmain;
  915. #endif
  916. //-- end unit ----------------------------------------------------------------
  917. #endif    // LibMain
  918.