home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 May / VPR9705A.ISO / VPR_DATA / PROGRAM / CBTRIAL / SETUP / DATA.Z / LIBINTF.HPP < prev    next >
C/C++ Source or Header  |  1997-02-14  |  15KB  |  346 lines
  1. //----------------------------------------------------------------------------
  2. // LibIntf.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
  3. // From: LibIntf.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef LibIntfHPP
  6. #define LibIntfHPP
  7. //----------------------------------------------------------------------------
  8. #include <FileIntf.hpp>
  9. #include <EditIntf.hpp>
  10. #include <Exptintf.hpp>
  11. #include <ToolIntf.hpp>
  12. #include <DsgnIntf.hpp>
  13. #include <TypInfo.hpp>
  14. #include <VirtIntf.hpp>
  15. #include <Graphics.hpp>
  16. #include <Classes.hpp>
  17. #include <SysUtils.hpp>
  18. #include <Windows.hpp>
  19. #include <System.hpp>
  20. #pragma warn -par
  21. #pragma warn -hid 
  22. #pragma warn -inl
  23.  
  24. namespace Libintf
  25. {
  26. //-- type declarations -------------------------------------------------------
  27. enum TDesignDialog { ddAlign, ddSize, ddScale, ddTabOrder, ddCreationOrder, ddSaveTemplate };
  28.  
  29. struct TDesignerOptions
  30. {
  31.     bool DisplayGrid;
  32.     bool SnapToGrid;
  33.     int GridSizeX;
  34.     int GridSizeY;
  35.     bool ShowComponentCaptions;
  36. } ;
  37.  
  38. class __declspec(delphiclass) TIAppBuilder;
  39. class __declspec(delphiclass) TICompClass;
  40. class __declspec(pascalimplementation) TIAppBuilder : public Virtintf::TInterface
  41. {
  42.     typedef Virtintf::TInterface inherited;
  43.     
  44. public:
  45.     virtual void __fastcall ActiveFormModified(void) = 0;
  46.     virtual void __fastcall ComponentRenamed(const System::AnsiString CurName, const System::AnsiString 
  47.         NewName) = 0;
  48.     virtual void __fastcall ExecDesignDialog(TDesignDialog DesignDialog) = 0;
  49.     virtual void __fastcall FormActivated(void) = 0;
  50.     virtual HWND __fastcall GetAppHandle(void) = 0;
  51.     virtual System::AnsiString __fastcall GetPathAndBaseExeName(void) = 0;
  52.     virtual System::AnsiString __fastcall GetBaseRegKey(void) = 0;
  53.     virtual TICompClass* __fastcall GetCurCompClass(void) = 0;
  54.     virtual long __fastcall GetCurTime(void) = 0;
  55.     virtual void __fastcall GetDesignerOptions(TDesignerOptions &Options) = 0;
  56.     virtual Windows::TRect __fastcall GetMainWindowSize(void) = 0;
  57.     virtual bool __fastcall LockState(void) = 0;
  58.     virtual void __fastcall ModalEdit(char EditKey, void * ReturnWindow) = 0;
  59.     virtual void __fastcall OpenForm(const System::AnsiString FormName, bool Show) = 0;
  60.     virtual void __fastcall RaiseException(const System::AnsiString Message) = 0;
  61.     virtual void __fastcall ResetCompClass(void) = 0;
  62.     virtual void __fastcall SelectionChanged(void) = 0;
  63.     virtual void __fastcall ShowClassHelp(const System::AnsiString ClassName) = 0;
  64.     virtual void __fastcall SelectItemName(const System::AnsiString PropertyName) = 0;
  65.     virtual void __fastcall ValidateActiveModule(void) = 0;
  66.     virtual void __fastcall AddExpert(Exptintf::TIExpert* Expert) = 0;
  67.     virtual void __fastcall RemoveExpert(Exptintf::TIExpert* Expert) = 0;
  68.     virtual Toolintf::TIToolServices* __fastcall GetToolServices(void) = 0;
  69.     virtual void __fastcall ExpertsLoaded(void) = 0;
  70.     virtual Fileintf::TIVirtualFileSystem* __fastcall GetFileSystem(const System::AnsiString Ident) = 0
  71.         ;
  72.     virtual System::AnsiString __fastcall MakeBackupFileName(const System::AnsiString FileName) = 0;
  73.     virtual bool __fastcall CreateBackupFile(void) = 0;
  74.     virtual bool __fastcall WinHelp(const System::AnsiString HelpFile, int Command, long Data) = 0;
  75.     virtual void __fastcall ValidateFormEdit(void) = 0;
  76. public:
  77.     /* TInterface.Create */ __fastcall TIAppBuilder(void) : Virtintf::TInterface() { }
  78.     
  79. public:
  80.     /* TObject.Destroy */ __fastcall virtual ~TIAppBuilder(void) { }
  81.     
  82. };
  83.  
  84. class __declspec(pascalimplementation) TICompClass : public Virtintf::TInterface
  85. {
  86.     typedef Virtintf::TInterface inherited;
  87.     
  88. public:
  89.     virtual POINT __fastcall GetBitmapPos(bool Selected) = 0;
  90.     virtual System::AnsiString __fastcall GetClassName(void) = 0;
  91.     virtual System::AnsiString __fastcall GetDefaultPage(void) = 0;
  92.     virtual int __fastcall GetModuleIndex(void) = 0;
  93. public:
  94.     /* TInterface.Create */ __fastcall TICompClass(void) : Virtintf::TInterface() { }
  95.     
  96. public:
  97.     /* TObject.Destroy */ __fastcall virtual ~TICompClass(void) { }
  98.     
  99. };
  100.  
  101. enum TPropKind { pkProperties, pkEvents };
  102.  
  103. class __declspec(delphiclass) TIProperty;
  104. typedef void __fastcall (__closure *TGetPropProc)(TIProperty* Prop);
  105.  
  106. enum LibIntf_3 { fsVisible, fsIconic, fsZoomed };
  107.  
  108. typedef Set<LibIntf_3, fsVisible, fsZoomed>  TFormState;
  109.  
  110. enum TEditAction { eaUndo, eaCut, eaCopy, eaPaste, eaDelete, eaSelectAll, eaBringToFront, eaSendToBack, 
  111.     eaAlignToGrid };
  112.  
  113. enum LibIntf_4 { esCanUndo, esCanCut, esCanCopy, esCanPaste, esCanDelete, esCanZOrder, esCanAlignGrid, 
  114.     esCanEditOle, esCanTabOrder, esCanCreationOrder, esCanPrint };
  115.  
  116. typedef Set<LibIntf_4, esCanUndo, esCanPrint>  TEditState;
  117.  
  118. enum TShowState { ssNormal, ssMinimized, ssMaximized };
  119.  
  120. enum TAffect { afTop, afLeft, afBottom, afRight, afHCenter, afVCenter, afHSpace, afVSpace, afHWinCenter, 
  121.     afVWinCenter, afNothing };
  122.  
  123. enum TSizeAffect { asHGrow, asHShrink, asHAbsolute, asVGrow, asVShrink, asVAbsolute, asNothing };
  124.  
  125. class __declspec(delphiclass) TIFile;
  126. class __declspec(pascalimplementation) TIFile : public Virtintf::TInterface
  127. {
  128.     typedef Virtintf::TInterface inherited;
  129.     
  130. public:
  131.     virtual Virtintf::TIStream* __fastcall FormFileOpen(void) = 0;
  132.     virtual System::AnsiString __fastcall GetFileName(void) = 0;
  133.     virtual long __fastcall GetTimeAtLoad(void) = 0;
  134.     virtual long __fastcall GetModifyTime(void) = 0;
  135.     virtual bool __fastcall CheckFileDate(void) = 0;
  136.     virtual void __fastcall Rename(const System::AnsiString NewFileName) = 0;
  137.     virtual void __fastcall Save(void) = 0;
  138. public:
  139.     /* TInterface.Create */ __fastcall TIFile(void) : Virtintf::TInterface() { }
  140.     
  141. public:
  142.     /* TObject.Destroy */ __fastcall virtual ~TIFile(void) { }
  143.     
  144. };
  145.  
  146. class __declspec(delphiclass) TIForm;
  147. typedef void __fastcall (__closure *TGetFormProc)(TIForm* AForm);
  148.  
  149. enum TDesignerKind { dkForm, dkDataModule };
  150.  
  151. class __declspec(delphiclass) TICompInfo;
  152. class __declspec(delphiclass) TIModule;
  153. class __declspec(pascalimplementation) TIForm : public TIFile
  154. {
  155.     typedef TIFile inherited;
  156.     
  157. public:
  158.     virtual void __fastcall Align(TAffect Affect) = 0;
  159.     virtual void __fastcall CreateComponent(TICompClass* CompClass) = 0;
  160.     virtual System::AnsiString __fastcall FindCompClass(const System::AnsiString CompName) = 0;
  161.     virtual System::AnsiString __fastcall GetAncestorName(void) = 0;
  162.     virtual int __fastcall GetCompCount(void) = 0;
  163.     virtual void __fastcall GetDependentForms(TGetFormProc Proc) = 0;
  164.     virtual TDesignerKind __fastcall GetDesignerKind(void) = 0;
  165.     virtual void __fastcall GetFormDependencies(TGetFormProc Proc) = 0;
  166.     virtual void * __fastcall GetNVComp(int Index) = 0;
  167.     virtual TICompInfo* __fastcall GetCompInfo(int Index) = 0;
  168.     virtual TIModule* __fastcall GetModule(void) = 0;
  169.     virtual System::AnsiString __fastcall GetCompName(int Index) = 0;
  170.     virtual System::AnsiString __fastcall GetFileSystem(void) = 0;
  171.     virtual Editintf::TIFormInterface* __fastcall GetFormInterface(void) = 0;
  172.     virtual System::AnsiString __fastcall GetFormName(void) = 0;
  173.     virtual HBITMAP __fastcall GetFormImage(void) = 0;
  174.     virtual void __fastcall GetFormUnits(Classes::TGetStrProc Proc) = 0;
  175.     virtual TFormState __fastcall GetState(void) = 0;
  176.     virtual int __fastcall GetTabCompCount(void) = 0;
  177.     virtual bool __fastcall GetTabCompInfo(int Order,  System::AnsiString &Name, void * &Comp) = 0;
  178.     virtual int __fastcall GetObjectMenuItemCount(void) = 0;
  179.     virtual System::AnsiString __fastcall GetObjectMenuItem(int Index) = 0;
  180.     virtual void __fastcall ObjectMenuAction(int Index) = 0;
  181.     virtual void __fastcall Hide(void) = 0;
  182.     virtual void __fastcall RenameFormMethod(const System::AnsiString CurName, const System::AnsiString 
  183.         NewName) = 0;
  184.     virtual void __fastcall RemoveDependentLinks(void) = 0;
  185.     virtual void __fastcall SaveInto(const System::AnsiString AName) = 0;
  186.     virtual void __fastcall Scale(int Factor) = 0;
  187.     virtual void __fastcall SetFileSystem(const System::AnsiString FileSystem) = 0;
  188.     virtual void __fastcall SetFormName(const System::AnsiString AName) = 0;
  189.     virtual void __fastcall SetSelection(const System::AnsiString Name) = 0;
  190.     virtual void __fastcall SetNVComp(void * Comp, int Order) = 0;
  191.     virtual void __fastcall SetTabCompOrder(void * Comp, int Order) = 0;
  192.     virtual void __fastcall Show(void) = 0;
  193.     virtual void __fastcall ShowAs(TShowState ShowState) = 0;
  194.     virtual void __fastcall Size(TSizeAffect Affect, int Value) = 0;
  195. public:
  196.     /* TInterface.Create */ __fastcall TIForm(void) : Libintf::TIFile() { }
  197.     
  198. public:
  199.     /* TObject.Destroy */ __fastcall virtual ~TIForm(void) { }
  200.     
  201. };
  202.  
  203. class __declspec(delphiclass) TILibrary;
  204. class __declspec(pascalimplementation) TILibrary : public Virtintf::TInterface
  205. {
  206.     typedef Virtintf::TInterface inherited;
  207.     
  208. public:
  209.     virtual TIForm* __fastcall CreateForm(TIModule* AModule, const System::AnsiString AFileName, bool Existing
  210.         , const System::AnsiString AFormName, const System::AnsiString AAncestor, const System::AnsiString 
  211.         AFileSystem) = 0;
  212.     virtual TIForm* __fastcall CreateFromStream(TIModule* AModule, const System::AnsiString AFileName, 
  213.         const System::AnsiString AFileSystem, Virtintf::TIStream* IStream) = 0;
  214.     virtual void __fastcall DesignerOptionsChanged(void) = 0;
  215.     virtual void __fastcall EditAction(TEditAction Action) = 0;
  216.     virtual TIFile* __fastcall FindFile(const System::AnsiString FileName) = 0;
  217.     virtual TIForm* __fastcall GetActiveForm(void) = 0;
  218.     virtual void __fastcall GetClassUnits(const System::AnsiString ClassName, Classes::TGetStrProc Proc
  219.         ) = 0;
  220.     virtual TICompClass* __fastcall GetCompClass(int Index) = 0;
  221.     virtual int __fastcall GetCompClassCount(void) = 0;
  222.     virtual void __fastcall GetCompHierarchy(Classes::TGetStrProc Proc) = 0;
  223.     virtual HBITMAP __fastcall GetComponentBitmap(void) = 0;
  224.     virtual TEditState __fastcall GetEditState(void) = 0;
  225.     virtual int __fastcall GetModuleCount(void) = 0;
  226.     virtual System::AnsiString __fastcall GetModuleName(int Index) = 0;
  227.     virtual bool __fastcall GetOleCtrlHelp(const System::AnsiString Member, int &HelpCtx,  System::AnsiString &
  228.         HelpFile) = 0;
  229.     virtual void __fastcall GetProperties(TPropKind PropKind, TGetPropProc Proc) = 0;
  230.     virtual System::AnsiString __fastcall GetSelectionName(void) = 0;
  231.     virtual System::AnsiString __fastcall GetSelectionType(void) = 0;
  232.     virtual void __fastcall HideWindows(void) = 0;
  233.     virtual void __fastcall IsDesignMsg(MSG &Msg, bool &Handled) = 0;
  234.     virtual bool __fastcall IsTopmostForm(HWND Wnd) = 0;
  235.     virtual void __fastcall ModalEditDone(void * ReturnWindow) = 0;
  236.     virtual void __fastcall RaiseException(const System::AnsiString Message) = 0;
  237.     virtual void __fastcall ShowWindows(void) = 0;
  238.     virtual void __fastcall SetLockState(bool State) = 0;
  239.     virtual void __fastcall SetProjectName( System::AnsiString Name) = 0;
  240. public:
  241.     /* TInterface.Create */ __fastcall TILibrary(void) : Virtintf::TInterface() { }
  242.     
  243. public:
  244.     /* TObject.Destroy */ __fastcall virtual ~TILibrary(void) { }
  245.     
  246. };
  247.  
  248. class __declspec(pascalimplementation) TIModule : public Virtintf::TInterface
  249. {
  250.     typedef Virtintf::TInterface inherited;
  251.     
  252. public:
  253.     virtual void __fastcall Activate(bool IsForm) = 0;
  254.     virtual void __fastcall CreateMethod(const System::AnsiString Name, Typinfo::PTypeData TypeData) = 0
  255.         ;
  256.     virtual void __fastcall FormModified(void) = 0;
  257.     virtual System::AnsiString __fastcall GetAncestorClassName(const System::AnsiString ClassName) = 0;
  258.         
  259.     virtual void __fastcall GetMethods(Typinfo::PTypeData TypeData, Classes::TGetStrProc Proc) = 0;
  260.     virtual bool __fastcall FormIsTopmost(void) = 0;
  261.     virtual bool __fastcall MethodExists(const System::AnsiString Name) = 0;
  262.     virtual void __fastcall RenameComponent(TICompInfo* CompInfo, const System::AnsiString CurName, const System::AnsiString 
  263.         NewName) = 0;
  264.     virtual void __fastcall RenameForm(TICompInfo* CompInfo, const System::AnsiString NewName) = 0;
  265.     virtual void __fastcall RenameMethod(const System::AnsiString CurName, const System::AnsiString NewName
  266.         ) = 0;
  267.     virtual void __fastcall SaveInto(const System::AnsiString AName) = 0;
  268.     virtual void __fastcall ShowMethod(const System::AnsiString Name) = 0;
  269.     virtual void __fastcall GetImportedForms(Classes::TGetStrProc Proc) = 0;
  270.     virtual void __fastcall ImportForm(const System::AnsiString FormName) = 0;
  271.     virtual void __fastcall Notify(Editintf::TNotifyCode NotifyCode) = 0;
  272.     virtual void __fastcall SwapSourceFormView(void) = 0;
  273. public:
  274.     /* TInterface.Create */ __fastcall TIModule(void) : Virtintf::TInterface() { }
  275.     
  276. public:
  277.     /* TObject.Destroy */ __fastcall virtual ~TIModule(void) { }
  278.     
  279. };
  280.  
  281. class __declspec(pascalimplementation) TIProperty : public Virtintf::TInterface
  282. {
  283.     typedef Virtintf::TInterface inherited;
  284.     
  285. public:
  286.     virtual void __fastcall Activate(void) = 0;
  287.     virtual bool __fastcall AllEqual(void) = 0;
  288.     virtual void __fastcall Edit(void) = 0;
  289.     virtual Dsgnintf::TPropertyAttributes __fastcall GetAttributes(void) = 0;
  290.     virtual System::AnsiString __fastcall GetCompClassName(void) = 0;
  291.     virtual int __fastcall GetEditLimit(void) = 0;
  292.     virtual bool __fastcall GetEditValue( System::AnsiString &Value) = 0;
  293.     virtual System::AnsiString __fastcall GetName(void) = 0;
  294.     virtual void __fastcall GetProperties(TGetPropProc Proc) = 0;
  295.     virtual Typinfo::PTypeInfo __fastcall GetPropType(void) = 0;
  296.     virtual System::AnsiString __fastcall GetValue(void) = 0;
  297.     virtual void __fastcall GetValues(Classes::TGetStrProc Proc) = 0;
  298.     virtual void __fastcall Revert(void) = 0;
  299.     virtual void __fastcall SetValue(const System::AnsiString Value) = 0;
  300. public:
  301.     /* TInterface.Create */ __fastcall TIProperty(void) : Virtintf::TInterface() { }
  302.     
  303. public:
  304.     /* TObject.Destroy */ __fastcall virtual ~TIProperty(void) { }
  305.     
  306. };
  307.  
  308. class __declspec(pascalimplementation) TICompInfo : public Virtintf::TInterface
  309. {
  310.     typedef Virtintf::TInterface inherited;
  311.     
  312. public:
  313.     virtual void __fastcall ClearEvent(int Index) = 0;
  314.     virtual System::AnsiString __fastcall GetClassName(void) = 0;
  315.     virtual int __fastcall GetEventCount(void) = 0;
  316.     virtual Typinfo::PPropInfo __fastcall GetEventInfo(int Index) = 0;
  317.     virtual System::AnsiString __fastcall GetEventValue(int Index) = 0;
  318.     virtual void * __fastcall GetComponentHandle(void) = 0;
  319. public:
  320.     /* TInterface.Create */ __fastcall TICompInfo(void) : Virtintf::TInterface() { }
  321.     
  322. public:
  323.     /* TObject.Destroy */ __fastcall virtual ~TICompInfo(void) { }
  324.     
  325. };
  326.  
  327. typedef TILibrary* __fastcall (*TInitLibraryFunc)(TIAppBuilder* App);
  328.  
  329. //-- var, const, procedure ---------------------------------------------------
  330. #define LibrarySignature "COMPLIB0054"
  331. //-- template instantiations -------------------------------------------------
  332. template class TEditState ;
  333. template class TFormState ;
  334.  
  335. }    /* namespace Libintf */
  336.  
  337. #pragma warn .par
  338. #pragma warn .hid 
  339. #pragma warn .inl
  340.  
  341. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  342. using namespace Libintf;
  343. #endif
  344. //-- end unit ----------------------------------------------------------------
  345. #endif    // LibIntf
  346.