vbide_tlb.pas

MS Office Delphi sample add-in README

  Property_Disp = dispinterface;
  _Properties = interface;
  _PropertiesDisp = dispinterface;
  _AddIns = interface;
  _AddInsDisp = dispinterface;
  AddIn = interface;
  AddInDisp = dispinterface;
  _CodeModule = interface;
  _CodeModuleDisp = dispinterface;
  _CodePanes = interface;
  _CodePanesDisp = dispinterface;
  _CodePane = interface;
  _CodePaneDisp = dispinterface;
  _References = interface;
  _ReferencesDisp = dispinterface;
  Reference = interface;
  ReferenceDisp = dispinterface;
  _dispReferences_Events = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  Windows = _Windows;
  LinkedWindows = _LinkedWindows;
  ReferencesEvents = _ReferencesEvents;
  CommandBarEvents = _CommandBarControlEvents;
  ProjectTemplate = _ProjectTemplate;
  VBProject = _VBProject;
  VBProjects = _VBProjects;
  Components = _Components;
  VBComponents = _VBComponents;
  Component = _Component;
  VBComponent = _VBComponent;
  Properties = _Properties;
  Addins = _AddIns;
  CodeModule = _CodeModule;
  CodePanes = _CodePanes;
  CodePane = _CodePane;
  References = _References;


// *********************************************************************//
// Declaration of structures, unions and aliases.                         
// *********************************************************************//
  PWordBool1 = ^WordBool; {*}


// *********************************************************************//
// Interface: Application
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {0002E158-0000-0000-C000-000000000046}
// *********************************************************************//
  Application = interface(IDispatch)
    ['{0002E158-0000-0000-C000-000000000046}']
    function  Get_Version: WideString; safecall;
    property Version: WideString read Get_Version;
  end;

// *********************************************************************//
// DispIntf:  ApplicationDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {0002E158-0000-0000-C000-000000000046}
// *********************************************************************//
  ApplicationDisp = dispinterface
    ['{0002E158-0000-0000-C000-000000000046}']
    property Version: WideString readonly dispid 100;
  end;

// *********************************************************************//
// Interface: VBE
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {0002E166-0000-0000-C000-000000000046}
// *********************************************************************//
  VBE = interface(Application)
    ['{0002E166-0000-0000-C000-000000000046}']
    function  Get_VBProjects: VBProjects; safecall;
    function  Get_CommandBars: CommandBars; safecall;
    function  Get_CodePanes: CodePanes; safecall;
    function  Get_Windows: Windows; safecall;
    function  Get_Events: Events; safecall;
    function  Get_ActiveVBProject: VBProject; safecall;
    procedure Set_ActiveVBProject(const lppptReturn: VBProject); safecall;
    function  Get_SelectedVBComponent: VBComponent; safecall;
    function  Get_MainWindow: Window; safecall;
    function  Get_ActiveWindow: Window; safecall;
    function  Get_ActiveCodePane: CodePane; safecall;
    procedure Set_ActiveCodePane(const ppCodePane: CodePane); safecall;
    function  Get_Addins: Addins; safecall;
    property VBProjects: VBProjects read Get_VBProjects;
    property CommandBars: CommandBars read Get_CommandBars;
    property CodePanes: CodePanes read Get_CodePanes;
    property Windows: Windows read Get_Windows;
    property Events: Events read Get_Events;
    property ActiveVBProject: VBProject read Get_ActiveVBProject write Set_ActiveVBProject;
    property SelectedVBComponent: VBComponent read Get_SelectedVBComponent;
    property MainWindow: Window read Get_MainWindow;
    property ActiveWindow: Window read Get_ActiveWindow;
    property ActiveCodePane: CodePane read Get_ActiveCodePane write Set_ActiveCodePane;
    property Addins: Addins read Get_Addins;
  end;

// *********************************************************************//
// DispIntf:  VBEDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {0002E166-0000-0000-C000-000000000046}
// *********************************************************************//
  VBEDisp = dispinterface
    ['{0002E166-0000-0000-C000-000000000046}']
    property VBProjects: VBProjects readonly dispid 107;
    property CommandBars: CommandBars readonly dispid 108;
    property CodePanes: CodePanes readonly dispid 109;
    property Windows: Windows readonly dispid 110;
    property Events: Events readonly dispid 111;
    property ActiveVBProject: VBProject dispid 201;
    property SelectedVBComponent: VBComponent readonly dispid 202;
    property MainWindow: Window readonly dispid 204;
    property ActiveWindow: Window readonly dispid 205;
    property ActiveCodePane: CodePane dispid 206;
    property Addins: Addins readonly dispid 209;
    property Version: WideString readonly dispid 100;
  end;

// *********************************************************************//
// Interface: Window
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {0002E16B-0000-0000-C000-000000000046}
// *********************************************************************//
  Window = interface(IDispatch)
    ['{0002E16B-0000-0000-C000-000000000046}']
    function  Get_VBE: VBE; safecall;
    function  Get_Collection: Windows; safecall;
    procedure Close; safecall;
    function  Get_Caption: WideString; safecall;
    function  Get_Visible: WordBool; safecall;
    procedure Set_Visible(pfVisible: WordBool); safecall;
    function  Get_Left: Integer; safecall;
    procedure Set_Left(plLeft: Integer); safecall;
    function  Get_Top: Integer; safecall;
    procedure Set_Top(plTop: Integer); safecall;
    function  Get_Width: Integer; safecall;
    procedure Set_Width(plWidth: Integer); safecall;
    function  Get_Height: Integer; safecall;
    procedure Set_Height(plHeight: Integer); safecall;
    function  Get_WindowState: vbext_WindowState; safecall;
    procedure Set_WindowState(plWindowState: vbext_WindowState); safecall;
    procedure SetFocus; safecall;
    function  Get_Type_: vbext_WindowType; safecall;
    procedure SetKind(eKind: vbext_WindowType); safecall;
    function  Get_LinkedWindows: LinkedWindows; safecall;
    function  Get_LinkedWindowFrame: Window; safecall;
    procedure Detach; safecall;
    procedure Attach(lWindowHandle: Integer); safecall;
    function  Get_HWnd: Integer; safecall;
    property VBE: VBE read Get_VBE;
    property Collection: Windows read Get_Collection;
    property Caption: WideString read Get_Caption;
    property Visible: WordBool read Get_Visible write Set_Visible;
    property Left: Integer read Get_Left write Set_Left;
    property Top: Integer read Get_Top write Set_Top;
    property Width: Integer read Get_Width write Set_Width;
    property Height: Integer read Get_Height write Set_Height;
    property WindowState: vbext_WindowState read Get_WindowState write Set_WindowState;
    property Type_: vbext_WindowType read Get_Type_;
    property LinkedWindows: LinkedWindows read Get_LinkedWindows;
    property LinkedWindowFrame: Window read Get_LinkedWindowFrame;
    property HWnd: Integer read Get_HWnd;
  end;

// *********************************************************************//
// DispIntf:  WindowDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {0002E16B-0000-0000-C000-000000000046}
// *********************************************************************//
  WindowDisp = dispinterface
    ['{0002E16B-0000-0000-C000-000000000046}']
    property VBE: VBE readonly dispid 1;
    property Collection: Windows readonly dispid 2;
    procedure Close; dispid 99;
    property Caption: WideString readonly dispid 100;
    property Visible: WordBool dispid 106;
    property Left: Integer dispid 101;
    property Top: Integer dispid 103;
    property Width: Integer dispid 105;
    property Height: Integer dispid 107;
    property WindowState: vbext_WindowState dispid 109;
    procedure SetFocus; dispid 111;
    property Type_: vbext_WindowType readonly dispid 112;
    procedure SetKind(eKind: vbext_WindowType); dispid 113;
    property LinkedWindows: LinkedWindows readonly dispid 116;
    property LinkedWindowFrame: Window readonly dispid 117;
    procedure Detach; dispid 118;
    procedure Attach(lWindowHandle: Integer); dispid 119;
    property HWnd: Integer readonly dispid 120;
  end;

// *********************************************************************//
// Interface: _Windows_old
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {0002E16A-0000-0000-C000-000000000046}
// *********************************************************************//
  _Windows_old = interface(IDispatch)
    ['{0002E16A-0000-0000-C000-000000000046}']
    function  Get_VBE: VBE; safecall;
    function  Get_Parent: Application; safecall;
    function  Item(index: OleVariant): Window; safecall;
    function  Get_Count: Integer; safecall;
    function  _NewEnum: IUnknown; safecall;
    property VBE: VBE read Get_VBE;
    property Parent: Application read Get_Parent;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  _Windows_oldDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {0002E16A-0000-0000-C000-000000000046}
// *********************************************************************//
  _Windows_oldDisp = dispinterface
    ['{0002E16A-0000-0000-C000-000000000046}']
    property VBE: VBE readonly dispid 1;
    property Parent: Application readonly dispid 2;
    function  Item(index: OleVariant): Window; dispid 0;
    property Count: Integer readonly dispid 201;
    function  _NewEnum: IUnknown; dispid -4;
  end;

// *********************************************************************//
// Interface: _Windows
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F57B7ED0-D8AB-11D1-85DF-00C04F98F42C}
// *********************************************************************//
  _Windows = interface(_Windows_old)
    ['{F57B7ED0-D8AB-11D1-85DF-00C04F98F42C}']
    function  CreateToolWindow(const AddInInst: AddIn; const ProgId: WideString; 
                               const Caption: WideString; const GuidPosition: WideString; 
                               var DocObj: IDispatch): Window; safecall;
  end;

// *********************************************************************//
// DispIntf:  _WindowsDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F57B7ED0-D8AB-11D1-85DF-00C04F98F42C}
// *********************************************************************//
  _WindowsDisp = dispinterface
    ['{F57B7ED0-D8AB-11D1-85DF-00C04F98F42C}']
    function  CreateToolWindow(const AddInInst: AddIn; const ProgId: WideString; 
                               const Caption: WideString; const GuidPosition: WideString; 
                               var DocObj: IDispatch): Window; dispid 300;
    property VBE: VBE readonly dispid 1;
    property Parent: Application readonly dispid 2;
    function  Item(index: OleVariant): Window; dispid 0;
    property Count: Integer readonly dispid 201;
    function  _NewEnum: IUnknown; dispid -4;
  end;

// *********************************************************************//
// Interface: _LinkedWindows
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {0002E16C-0000-0000-C000-000000000046}
// *********************************************************************//
  _LinkedWindows = interface(IDispatch)
    ['{0002E16C-0000-0000-C000-000000000046}']
    function  Get_VBE: VBE; safecall;
    function  Get_Parent: Window; safecall;
    function  Item(index: OleVariant): Window; safecall;
    function  Get_Count: Integer; safecall;
    function  _NewEnum: IUnknown; safecall;
    procedure Remove(const Window: Window); safecall;