unit InScripting_TLB;

// ************************************************************************ //
// WARNING                                                                    
// -------                                                                    
// The types declared in this file were generated from data read from a       
// Type Library. If this type library is explicitly or indirectly (via        
// another type library referring to this type library) re-imported, or the   
// 'Refresh' command of the Type Library Editor activated while editing the   
// Type Library, the contents of this file will be regenerated and all        
// manual modifications will be lost.                                         
// ************************************************************************ //

// PASTLWTR : $Revision:   1.130.1.0.1.0.1.6  $
// File generated on 27.09.2005 19:31:30 from Type Library described below.

// ************************************************************************  //
// Type Lib: D:\Projects\GIS_421\CoreLib\InScripting.tlb (1)
// LIBID: {3605F781-82BF-11D3-9665-000021C6D845}
// LCID: 0
// Helpfile: 
// DepndLst: 
//   (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
//   (2) v4.0 StdVCL, (C:\WINDOWS\system32\stdvcl40.dll)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface

uses Windows, ActiveX, Classes, Graphics, StdVCL, Variants;
  

// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:        
//   Type Libraries     : LIBID_xxxx                                      
//   CoClasses          : CLASS_xxxx                                      
//   DISPInterfaces     : DIID_xxxx                                       
//   Non-DISP interfaces: IID_xxxx                                        
// *********************************************************************//
const
  // TypeLibrary Major and minor versions
  InScriptingMajorVersion = 1;
  InScriptingMinorVersion = 0;

  LIBID_InScripting: TGUID = '{3605F781-82BF-11D3-9665-000021C6D845}';

  IID_IInUIAction: TGUID = '{3605F92B-82BF-11D3-9665-000021C6D845}';
  IID_IInUIActions: TGUID = '{3605F92D-82BF-11D3-9665-000021C6D845}';
  IID_IInUIMenu: TGUID = '{3605F931-82BF-11D3-9665-000021C6D845}';
  IID_IInUIMenuItem: TGUID = '{3605F933-82BF-11D3-9665-000021C6D845}';
  IID_IInUIMenuItems: TGUID = '{3605F936-82BF-11D3-9665-000021C6D845}';
  IID_IInWindow: TGUID = '{744774D3-1B2B-11D4-9739-000021C6D845}';
  IID_IInPictureFigures: TGUID = '{3605FA72-82BF-11D3-9665-000021C6D845}';
  IID_IInPictureFigure: TGUID = '{3605FA75-82BF-11D3-9665-000021C6D845}';
  IID_IInPen: TGUID = '{3605FA78-82BF-11D3-9665-000021C6D845}';
  IID_IInBrush: TGUID = '{3605FA7B-82BF-11D3-9665-000021C6D845}';
  IID_IInFont: TGUID = '{3605FA7E-82BF-11D3-9665-000021C6D845}';
  IID_IInPictureRectFigure: TGUID = '{3605FA93-82BF-11D3-9665-000021C6D845}';
  IID_IInPictureEllipseFigure: TGUID = '{3605FA95-82BF-11D3-9665-000021C6D845}';
  IID_IInPictureLineFigure: TGUID = '{3605FA97-82BF-11D3-9665-000021C6D845}';
  IID_IInPicturePolygonFigure: TGUID = '{3605FA99-82BF-11D3-9665-000021C6D845}';
  IID_IInPictureTextFigure: TGUID = '{3605FA9B-82BF-11D3-9665-000021C6D845}';
  IID_IInPicturePictureFigure: TGUID = '{3605FA9D-82BF-11D3-9665-000021C6D845}';
  IID_IInScriptScope: TGUID = '{95E1B580-848F-11D3-9666-000021C6D845}';
  IID_IInPictureGridFigure: TGUID = '{33BA8A81-FA34-11D3-970A-000021C6D845}';
  IID_IInGridFormat: TGUID = '{33BA8A87-FA34-11D3-970A-000021C6D845}';
  IID_IInScript: TGUID = '{04088494-0485-11D4-9719-000021C6D845}';
  IID_IInContextCard: TGUID = '{36ED8D11-0914-11D4-971F-000021C6D845}';
  IID_IInLayoutWindow: TGUID = '{3605FA6F-82BF-11D3-9665-000021C6D845}';
  IID_IInWindows: TGUID = '{744774D6-1B2B-11D4-9739-000021C6D845}';
  IID_IInPictureMapFigure: TGUID = '{AE82D702-2170-11D4-973E-000021C6D845}';
  IID_IInModuleSink: TGUID = '{AB3A7610-233E-11D4-9744-000021C6D845}';
  IID_IInHTMLWindow: TGUID = '{21448481-27F8-11D4-9748-000021C6D845}';
  IID_IInPrintParams: TGUID = '{25EEC9F1-2C7F-11D4-974E-000021C6D845}';
  IID_IInPrinter: TGUID = '{25EEC9F7-2C7F-11D4-974E-000021C6D845}';
  IID_IInPrinters: TGUID = '{25EEC9F9-2C7F-11D4-974E-000021C6D845}';
  IID_IInLayoutSelection: TGUID = '{8998D2D1-ED4E-42B9-86FB-AEF7B82EF984}';

// *********************************************************************//
// Declaration of Enumerations defined in Type Library                    
// *********************************************************************//
// Constants for enum TInPictureFigureType
type
  TInPictureFigureType = TOleEnum;
const
  inftRect = $00000001;
  inftEllipse = $00000002;
  inftLine = $00000003;
  inftPolygon = $00000004;
  inftText = $00000005;
  inftPicture = $00000006;
  inftGrid = $00000007;
  inftMap = $00000064;

// Constants for enum TInPenStyle
type
  TInPenStyle = TOleEnum;
const
  inpsSolid = $00000000;
  inpsDash = $00000001;
  inpsDot = $00000002;
  inpsDashDot = $00000003;
  inpsDashDotDot = $00000004;
  inpsClear = $00000005;
  inpsInsideFrame = $00000006;

// Constants for enum TInBrushStyle
type
  TInBrushStyle = TOleEnum;
const
  inbsSolid = $00000000;
  inbsClear = $00000001;
  inbsHotizontal = $00000002;
  inbsVertical = $00000003;
  inbsFDiagonal = $00000004;
  inbsBDiagonal = $00000005;
  inbsCross = $00000006;
  inbsDiagCross = $00000007;

// Constants for enum TInFontStyle
type
  TInFontStyle = TOleEnum;
const
  infsBold = $00000001;
  infsItalic = $00000002;
  infsUnderline = $00000004;
  infsStrikeOut = $00000008;

// Constants for enum TInFontPitch
type
  TInFontPitch = TOleEnum;
const
  infpDefault = $00000000;
  infpVariable = $00000001;
  infpFixed = $00000002;

// Constants for enum TInTextAlignment
type
  TInTextAlignment = TOleEnum;
const
  intaLeftJustify = $00000000;
  intaRightJustify = $00000001;
  intaCenter = $00000002;

// Constants for enum TInTextOrientation
type
  TInTextOrientation = TOleEnum;
const
  intoLeftToRight = $00000000;
  intoRightToLeft = $00000001;
  intoTopToBottom = $00000002;
  intoBottomToTop = $00000003;

// Constants for enum TInPictureHorAlign
type
  TInPictureHorAlign = TOleEnum;
const
  inpaLeft = $00000000;
  inpaHorCenter = $00000001;
  inpaRight = $00000002;

// Constants for enum TInPictureVerAlign
type
  TInPictureVerAlign = TOleEnum;
const
  inpaTop = $00000000;
  inpaVerCenter = $00000001;
  inpaBottom = $00000002;

// Constants for enum TInPictureStretch
type
  TInPictureStretch = TOleEnum;
const
  inpsNone = $00000000;
  inpsFitToBounds = $00000001;
  inpsProportional = $00000002;

// Constants for enum TInGridFormatKind
type
  TInGridFormatKind = TOleEnum;
const
  ingfFont = $00000001;
  ingfTextFormat = $00000002;
  ingfLeftIndent = $00000004;
  ingfTopIndent = $00000008;
  ingfRightIndent = $00000010;
  ingfBottomIndent = $00000020;
  ingfBrush = $00000040;
  ingfLeftPen = $00000080;
  ingfTopPen = $00000100;
  ingfRightPen = $00000200;
  ingfBottomPen = $00000400;
  ingfColWidth = $00000800;
  ingfRowHeight = $00001000;

// Constants for enum TInGridTextFormat
type
  TInGridTextFormat = TOleEnum;
const
  intfHorAlignLeft = $00000000;
  intfHorAlignCenter = $00000001;
  intfHorAlignRight = $00000002;
  intfVerAlignTop = $00000000;
  intfVerAlignCenter = $00000010;
  intfVerAlignBottom = $00000020;
  intfWordBreak = $00000100;

// Constants for enum TInPenMode
type
  TInPenMode = TOleEnum;
const
  inpmBlack = $00000000;
  inpmWhite = $00000001;
  inpmNop = $00000002;
  inpmNot = $00000003;
  inpmCopy = $00000004;
  inpmNotCopy = $00000005;
  inpmMergePenNot = $00000006;
  inpmMaskPenNot = $00000007;
  inpmMergeNotPen = $00000008;
  inpmMaskNotPen = $00000009;
  inpmMerge = $0000000A;
  inpmNotMerge = $0000000B;
  inpmMask = $0000000C;
  inpmNotMask = $0000000D;
  inpmXor = $0000000E;
  inpmNotXor = $0000000F;

// Constants for enum TInWindowState
type
  TInWindowState = TOleEnum;
const
  inwsNormal = $00000000;
  inwsMinimized = $00000001;
  inwsMaximized = $00000002;

// Constants for enum TInPageOrientation
type
  TInPageOrientation = TOleEnum;
const
  inpoPortrait = $00000000;
  inpoLandscape = $00000001;

// Constants for enum TInPageFormat
type
  TInPageFormat = TOleEnum;
const
  inpfCustom = $00000000;
  inpfFromPrinter = $00000001;
  inpfArchitectural = $00000002;
  inpfEngineering = $00000003;
  inpfMetric = $00000004;
  inpfStandard = $00000005;

// Constants for enum TInPageFormatIndex
type
  TInPageFormatIndex = TOleEnum;
const
  inpfsLetter = $00000000;
  inpfsFolio = $00000001;
  inpfsLegal = $00000002;
  inpfsTabloid = $00000003;
  inpfmA5 = $00000000;
  inpfmA4 = $00000001;
  inpfmA3 = $00000002;
  inpfmA2 = $00000003;
  inpfmA1 = $00000004;
  inpfmA0 = $00000005;
  inpfeA = $00000000;
  inpfeB = $00000001;
  inpfeC = $00000002;
  inpfeD = $00000003;
  inpfeE = $00000004;
  inpfa9x12 = $00000000;
  inpfa12x18 = $00000001;
  inpfa18x24 = $00000002;
  inpfa24x36 = $00000003;
  inpfa30x42 = $00000004;

// Constants for enum TInUIHandlerOptions
type
  TInUIHandlerOptions = TOleEnum;
const
  inhoSenderAsParam = $00000001;

type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  IInUIAction = interface;
  IInUIActionDisp = dispinterface;
  IInUIActions = interface;
  IInUIActionsDisp = dispinterface;
  IInUIMenu = interface;
  IInUIMenuDisp = dispinterface;
  IInUIMenuItem = interface;
  IInUIMenuItemDisp = dispinterface;
  IInUIMenuItems = interface;
  IInUIMenuItemsDisp = dispinterface;
  IInWindow = interface;
  IInWindowDisp = dispinterface;
  IInPictureFigures = interface;
  IInPictureFiguresDisp = dispinterface;
  IInPictureFigure = interface;
  IInPictureFigureDisp = dispinterface;
  IInPen = interface;
  IInPenDisp = dispinterface;
  IInBrush = interface;
  IInBrushDisp = dispinterface;
  IInFont = interface;
  IInFontDisp = dispinterface;
  IInPictureRectFigure = interface;
  IInPictureRectFigureDisp = dispinterface;
  IInPictureEllipseFigure = interface;
  IInPictureEllipseFigureDisp = dispinterface;
  IInPictureLineFigure = interface;
  IInPictureLineFigureDisp = dispinterface;
  IInPicturePolygonFigure = interface;
  IInPicturePolygonFigureDisp = dispinterface;
  IInPictureTextFigure = interface;
  IInPictureTextFigureDisp = dispinterface;
  IInPicturePictureFigure = interface;
  IInPicturePictureFigureDisp = dispinterface;
  IInScriptScope = interface;
  IInScriptScopeDisp = dispinterface;
  IInPictureGridFigure = interface;
  IInPictureGridFigureDisp = dispinterface;
  IInGridFormat = interface;
  IInGridFormatDisp = dispinterface;
  IInScript = interface;
  IInScriptDisp = dispinterface;
  IInContextCard = interface;
  IInContextCardDisp = dispinterface;
  IInLayoutWindow = interface;
  IInLayoutWindowDisp = dispinterface;
  IInWindows = interface;
  IInWindowsDisp = dispinterface;
  IInPictureMapFigure = interface;
  IInPictureMapFigureDisp = dispinterface;
  IInModuleSink = interface;
  IInModuleSinkDisp = dispinterface;
  IInHTMLWindow = interface;
  IInHTMLWindowDisp = dispinterface;
  IInPrintParams = interface;
  IInPrintParamsDisp = dispinterface;
  IInPrinter = interface;
  IInPrinterDisp = dispinterface;
  IInPrinters = interface;
  IInPrintersDisp = dispinterface;
  IInLayoutSelection = interface;
  IInLayoutSelectionDisp = dispinterface;

// *********************************************************************//
// Interface: IInUIAction
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605F92B-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInUIAction = interface(IDispatch)
    ['{3605F92B-82BF-11D3-9665-000021C6D845}']
    function Get_Caption: WideString; safecall;
    procedure Set_Caption(const Value: WideString); safecall;
    function Get_Checked: WordBool; safecall;
    procedure Set_Checked(Value: WordBool); safecall;
    function Get_Enabled: WordBool; safecall;
    procedure Set_Enabled(Value: WordBool); safecall;
    function Get_Shortcut: Integer; safecall;
    procedure Set_Shortcut(Value: Integer); safecall;
    function Get_Handler: IDispatch; safecall;
    procedure Set_Handler(const Value: IDispatch); safecall;
    procedure Execute; safecall;
    function Get_Category: WideString; safecall;
    procedure Set_Category(const Value: WideString); safecall;
    function Get_Visible: WordBool; safecall;
    procedure Set_Visible(Value: WordBool); safecall;
    function Get_Hint: WideString; safecall;
    procedure Set_Hint(const Value: WideString); safecall;
    function Get_Name: WideString; safecall;
    procedure Set_Name(const Value: WideString); safecall;
    function Get_HandlerMethod: WideString; safecall;
    procedure Set_HandlerMethod(const Value: WideString); safecall;
    function Get_HandlerOptions: TInUIHandlerOptions; safecall;
    procedure Set_HandlerOptions(Value: TInUIHandlerOptions); safecall;
    property Caption: WideString read Get_Caption write Set_Caption;
    property Checked: WordBool read Get_Checked write Set_Checked;
    property Enabled: WordBool read Get_Enabled write Set_Enabled;
    property Shortcut: Integer read Get_Shortcut write Set_Shortcut;
    property Handler: IDispatch read Get_Handler write Set_Handler;
    property Category: WideString read Get_Category write Set_Category;
    property Visible: WordBool read Get_Visible write Set_Visible;
    property Hint: WideString read Get_Hint write Set_Hint;
    property Name: WideString read Get_Name write Set_Name;
    property HandlerMethod: WideString read Get_HandlerMethod write Set_HandlerMethod;
    property HandlerOptions: TInUIHandlerOptions read Get_HandlerOptions write Set_HandlerOptions;
  end;

// *********************************************************************//
// DispIntf:  IInUIActionDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605F92B-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInUIActionDisp = dispinterface
    ['{3605F92B-82BF-11D3-9665-000021C6D845}']
    property Caption: WideString dispid 3;
    property Checked: WordBool dispid 5;
    property Enabled: WordBool dispid 6;
    property Shortcut: Integer dispid 9;
    property Handler: IDispatch dispid 11;
    procedure Execute; dispid 1;
    property Category: WideString dispid 2;
    property Visible: WordBool dispid 4;
    property Hint: WideString dispid 7;
    property Name: WideString dispid 8;
    property HandlerMethod: WideString dispid 10;
    property HandlerOptions: TInUIHandlerOptions dispid 12;
  end;

// *********************************************************************//
// Interface: IInUIActions
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605F92D-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInUIActions = interface(IDispatch)
    ['{3605F92D-82BF-11D3-9665-000021C6D845}']
    function Get_Count: Integer; safecall;
    function Get_Item(anIndex: OleVariant): IInUIAction; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Add(const aContextCard: IInContextCard; const aCategory: WideString; 
                 const aName: WideString; const aCaption: WideString; const aHandler: IDispatch; 
                 const aHandlerMethod: WideString): IInUIAction; safecall;
    procedure Remove(const anItem: IInUIAction); safecall;
    property Count: Integer read Get_Count;
    property Item[anIndex: OleVariant]: IInUIAction read Get_Item; default;
    property _NewEnum: IUnknown read Get__NewEnum;
  end;

// *********************************************************************//
// DispIntf:  IInUIActionsDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605F92D-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInUIActionsDisp = dispinterface
    ['{3605F92D-82BF-11D3-9665-000021C6D845}']
    property Count: Integer readonly dispid 1;
    property Item[anIndex: OleVariant]: IInUIAction readonly dispid 0; default;
    property _NewEnum: IUnknown readonly dispid -4;
    function Add(const aContextCard: IInContextCard; const aCategory: WideString; 
                 const aName: WideString; const aCaption: WideString; const aHandler: IDispatch; 
                 const aHandlerMethod: WideString): IInUIAction; dispid 4;
    procedure Remove(const anItem: IInUIAction); dispid 5;
  end;

// *********************************************************************//
// Interface: IInUIMenu
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605F931-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInUIMenu = interface(IDispatch)
    ['{3605F931-82BF-11D3-9665-000021C6D845}']
    function Get_Items: IInUIMenuItems; safecall;
    property Items: IInUIMenuItems read Get_Items;
  end;

// *********************************************************************//
// DispIntf:  IInUIMenuDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605F931-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInUIMenuDisp = dispinterface
    ['{3605F931-82BF-11D3-9665-000021C6D845}']
    property Items: IInUIMenuItems readonly dispid 0;
  end;

// *********************************************************************//
// Interface: IInUIMenuItem
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605F933-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInUIMenuItem = interface(IDispatch)
    ['{3605F933-82BF-11D3-9665-000021C6D845}']
    function Get_Caption: WideString; safecall;
    procedure Set_Caption(const Value: WideString); safecall;
    function Get_Name: WideString; safecall;
    procedure Set_Name(const Value: WideString); safecall;
    function Get_RadioItem: WordBool; safecall;
    procedure Set_RadioItem(Value: WordBool); safecall;
    function Get_GroupIndex: Integer; safecall;
    procedure Set_GroupIndex(Value: Integer); safecall;
    function Get_Action: IInUIAction; safecall;
    procedure Set_Action(const Value: IInUIAction); safecall;
    function Get_Items: IInUIMenuItems; safecall;
    function Get_Visible: WordBool; safecall;
    procedure Set_Visible(Value: WordBool); safecall;
    property Caption: WideString read Get_Caption write Set_Caption;
    property Name: WideString read Get_Name write Set_Name;
    property RadioItem: WordBool read Get_RadioItem write Set_RadioItem;
    property GroupIndex: Integer read Get_GroupIndex write Set_GroupIndex;
    property Action: IInUIAction read Get_Action write Set_Action;
    property Items: IInUIMenuItems read Get_Items;
    property Visible: WordBool read Get_Visible write Set_Visible;
  end;

// *********************************************************************//
// DispIntf:  IInUIMenuItemDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605F933-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInUIMenuItemDisp = dispinterface
    ['{3605F933-82BF-11D3-9665-000021C6D845}']
    property Caption: WideString dispid 1;
    property Name: WideString dispid 2;
    property RadioItem: WordBool dispid 3;
    property GroupIndex: Integer dispid 4;
    property Action: IInUIAction dispid 5;
    property Items: IInUIMenuItems readonly dispid 6;
    property Visible: WordBool dispid 7;
  end;

// *********************************************************************//
// Interface: IInUIMenuItems
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605F936-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInUIMenuItems = interface(IDispatch)
    ['{3605F936-82BF-11D3-9665-000021C6D845}']
    function Get_Count: Integer; safecall;
    function Get_Item(anIndex: OleVariant): IInUIMenuItem; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Insert(const aContextCard: IInContextCard; const aName: WideString; 
                    const aCaption: WideString; anAction: OleVariant; aBefore: OleVariant): IInUIMenuItem; safecall;
    procedure Remove(const anItem: IInUIMenuItem); safecall;
    property Count: Integer read Get_Count;
    property Item[anIndex: OleVariant]: IInUIMenuItem read Get_Item; default;
    property _NewEnum: IUnknown read Get__NewEnum;
  end;

// *********************************************************************//
// DispIntf:  IInUIMenuItemsDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605F936-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInUIMenuItemsDisp = dispinterface
    ['{3605F936-82BF-11D3-9665-000021C6D845}']
    property Count: Integer readonly dispid 1;
    property Item[anIndex: OleVariant]: IInUIMenuItem readonly dispid 0; default;
    property _NewEnum: IUnknown readonly dispid -4;
    function Insert(const aContextCard: IInContextCard; const aName: WideString; 
                    const aCaption: WideString; anAction: OleVariant; aBefore: OleVariant): IInUIMenuItem; dispid 4;
    procedure Remove(const anItem: IInUIMenuItem); dispid 5;
  end;

// *********************************************************************//
// Interface: IInWindow
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {744774D3-1B2B-11D4-9739-000021C6D845}
// *********************************************************************//
  IInWindow = interface(IDispatch)
    ['{744774D3-1B2B-11D4-9739-000021C6D845}']
    function Get_Left: Integer; safecall;
    procedure Set_Left(Value: Integer); safecall;
    function Get_Top: Integer; safecall;
    procedure Set_Top(Value: Integer); safecall;
    function Get_Width: Integer; safecall;
    procedure Set_Width(Value: Integer); safecall;
    function Get_Height: Integer; safecall;
    procedure Set_Height(Value: Integer); safecall;
    function Get_WindowState: TInWindowState; safecall;
    procedure Set_WindowState(Value: TInWindowState); safecall;
    function Get_Name: WideString; safecall;
    procedure Close; safecall;
    function Get_Visible: WordBool; safecall;
    procedure Set_Visible(Value: WordBool); safecall;
    function Get_Caption: WideString; safecall;
    procedure Set_Caption(const Value: WideString); safecall;
    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: TInWindowState read Get_WindowState write Set_WindowState;
    property Name: WideString read Get_Name;
    property Visible: WordBool read Get_Visible write Set_Visible;
    property Caption: WideString read Get_Caption write Set_Caption;
  end;

// *********************************************************************//
// DispIntf:  IInWindowDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {744774D3-1B2B-11D4-9739-000021C6D845}
// *********************************************************************//
  IInWindowDisp = dispinterface
    ['{744774D3-1B2B-11D4-9739-000021C6D845}']
    property Left: Integer dispid 5;
    property Top: Integer dispid 6;
    property Width: Integer dispid 7;
    property Height: Integer dispid 8;
    property WindowState: TInWindowState dispid 10;
    property Name: WideString readonly dispid 11;
    procedure Close; dispid 1;
    property Visible: WordBool dispid 2;
    property Caption: WideString dispid 3;
  end;

// *********************************************************************//
// Interface: IInPictureFigures
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605FA72-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInPictureFigures = interface(IDispatch)
    ['{3605FA72-82BF-11D3-9665-000021C6D845}']
    function Get_Count: Integer; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Item(anIndex: OleVariant): IInPictureFigure; safecall;
    function Add(aFigureType: TInPictureFigureType): IInPictureFigure; safecall;
    function IndexOf(const aFigure: IInPictureFigure): Integer; safecall;
    function IsExists(const aName: WideString): WordBool; safecall;
    function Find(const aName: WideString): IInPictureFigure; safecall;
    procedure Delete(anIndex: Integer); safecall;
    property Count: Integer read Get_Count;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Item[anIndex: OleVariant]: IInPictureFigure read Get_Item; default;
  end;

// *********************************************************************//
// DispIntf:  IInPictureFiguresDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605FA72-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInPictureFiguresDisp = dispinterface
    ['{3605FA72-82BF-11D3-9665-000021C6D845}']
    property Count: Integer readonly dispid 1;
    property _NewEnum: IUnknown readonly dispid -4;
    property Item[anIndex: OleVariant]: IInPictureFigure readonly dispid 0; default;
    function Add(aFigureType: TInPictureFigureType): IInPictureFigure; dispid 2;
    function IndexOf(const aFigure: IInPictureFigure): Integer; dispid 3;
    function IsExists(const aName: WideString): WordBool; dispid 4;
    function Find(const aName: WideString): IInPictureFigure; dispid 5;
    procedure Delete(anIndex: Integer); dispid 6;
  end;

// *********************************************************************//
// Interface: IInPictureFigure
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605FA75-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInPictureFigure = interface(IDispatch)
    ['{3605FA75-82BF-11D3-9665-000021C6D845}']
    function Get_Name: WideString; safecall;
    function Get_Left: Double; safecall;
    procedure Set_Left(Value: Double); safecall;
    function Get_Bottom: Double; safecall;
    procedure Set_Bottom(Value: Double); safecall;
    function Get_Width: Double; safecall;
    procedure Set_Width(Value: Double); safecall;
    function Get_Height: Double; safecall;
    procedure Set_Height(Value: Double); safecall;
    function Get_FigureType: TInPictureFigureType; safecall;
    function Get_Visible: WordBool; safecall;
    procedure Set_Visible(Value: WordBool); safecall;
    property Name: WideString read Get_Name;
    property Left: Double read Get_Left write Set_Left;
    property Bottom: Double read Get_Bottom write Set_Bottom;
    property Width: Double read Get_Width write Set_Width;
    property Height: Double read Get_Height write Set_Height;
    property FigureType: TInPictureFigureType read Get_FigureType;
    property Visible: WordBool read Get_Visible write Set_Visible;
  end;

// *********************************************************************//
// DispIntf:  IInPictureFigureDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605FA75-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInPictureFigureDisp = dispinterface
    ['{3605FA75-82BF-11D3-9665-000021C6D845}']
    property Name: WideString readonly dispid 1;
    property Left: Double dispid 2;
    property Bottom: Double dispid 3;
    property Width: Double dispid 4;
    property Height: Double dispid 5;
    property FigureType: TInPictureFigureType readonly dispid 6;
    property Visible: WordBool dispid 7;
  end;

// *********************************************************************//
// Interface: IInPen
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605FA78-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInPen = interface(IDispatch)
    ['{3605FA78-82BF-11D3-9665-000021C6D845}']
    function Get_Style: TInPenStyle; safecall;
    procedure Set_Style(Value: TInPenStyle); safecall;
    function Get_WidthInMM: Double; safecall;
    procedure Set_WidthInMM(Value: Double); safecall;
    function Get_ForZoomScale: Double; safecall;
    procedure Set_ForZoomScale(Value: Double); safecall;
    function Get_Color: Integer; safecall;
    procedure Set_Color(Value: Integer); safecall;
    function Get_Mode: TInPenMode; safecall;
    procedure Set_Mode(Value: TInPenMode); safecall;
    property Style: TInPenStyle read Get_Style write Set_Style;
    property WidthInMM: Double read Get_WidthInMM write Set_WidthInMM;
    property ForZoomScale: Double read Get_ForZoomScale write Set_ForZoomScale;
    property Color: Integer read Get_Color write Set_Color;
    property Mode: TInPenMode read Get_Mode write Set_Mode;
  end;

// *********************************************************************//
// DispIntf:  IInPenDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605FA78-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInPenDisp = dispinterface
    ['{3605FA78-82BF-11D3-9665-000021C6D845}']
    property Style: TInPenStyle dispid 1;
    property WidthInMM: Double dispid 2;
    property ForZoomScale: Double dispid 3;
    property Color: Integer dispid 4;
    property Mode: TInPenMode dispid 5;
  end;

// *********************************************************************//
// Interface: IInBrush
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605FA7B-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInBrush = interface(IDispatch)
    ['{3605FA7B-82BF-11D3-9665-000021C6D845}']
    function Get_Style: TInBrushStyle; safecall;
    procedure Set_Style(Value: TInBrushStyle); safecall;
    function Get_BackColor: Integer; safecall;
    procedure Set_BackColor(Value: Integer); safecall;
    function Get_HatchColor: Integer; safecall;
    procedure Set_HatchColor(Value: Integer); safecall;
    function Get_Transparency: Byte; safecall;
    procedure Set_Transparency(Value: Byte); safecall;
    property Style: TInBrushStyle read Get_Style write Set_Style;
    property BackColor: Integer read Get_BackColor write Set_BackColor;
    property HatchColor: Integer read Get_HatchColor write Set_HatchColor;
    property Transparency: Byte read Get_Transparency write Set_Transparency;
  end;

// *********************************************************************//
// DispIntf:  IInBrushDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605FA7B-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInBrushDisp = dispinterface
    ['{3605FA7B-82BF-11D3-9665-000021C6D845}']
    property Style: TInBrushStyle dispid 1;
    property BackColor: Integer dispid 2;
    property HatchColor: Integer dispid 3;
    property Transparency: Byte dispid 4;
  end;

// *********************************************************************//
// Interface: IInFont
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605FA7E-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInFont = interface(IDispatch)
    ['{3605FA7E-82BF-11D3-9665-000021C6D845}']
    function Get_Name: WideString; safecall;
    procedure Set_Name(const Value: WideString); safecall;
    function Get_Style: TInFontStyle; safecall;
    procedure Set_Style(Value: TInFontStyle); safecall;
    function Get_Color: Integer; safecall;
    procedure Set_Color(Value: Integer); safecall;
    function Get_Size: Integer; safecall;
    procedure Set_Size(Value: Integer); safecall;
    function Get_ForZoomScale: Double; safecall;
    procedure Set_ForZoomScale(Value: Double); safecall;
    function Get_Pitch: TInFontPitch; safecall;
    procedure Set_Pitch(Value: TInFontPitch); safecall;
    function Get_CharSet: Byte; safecall;
    procedure Set_CharSet(Value: Byte); safecall;
    property Name: WideString read Get_Name write Set_Name;
    property Style: TInFontStyle read Get_Style write Set_Style;
    property Color: Integer read Get_Color write Set_Color;
    property Size: Integer read Get_Size write Set_Size;
    property ForZoomScale: Double read Get_ForZoomScale write Set_ForZoomScale;
    property Pitch: TInFontPitch read Get_Pitch write Set_Pitch;
    property CharSet: Byte read Get_CharSet write Set_CharSet;
  end;

// *********************************************************************//
// DispIntf:  IInFontDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605FA7E-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInFontDisp = dispinterface
    ['{3605FA7E-82BF-11D3-9665-000021C6D845}']
    property Name: WideString dispid 1;
    property Style: TInFontStyle dispid 2;
    property Color: Integer dispid 3;
    property Size: Integer dispid 4;
    property ForZoomScale: Double dispid 5;
    property Pitch: TInFontPitch dispid 6;
    property CharSet: Byte dispid 7;
  end;

// *********************************************************************//
// Interface: IInPictureRectFigure
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605FA93-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInPictureRectFigure = interface(IInPictureFigure)
    ['{3605FA93-82BF-11D3-9665-000021C6D845}']
    function Get_Pen: IInPen; safecall;
    function Get_Brush: IInBrush; safecall;
    property Pen: IInPen read Get_Pen;
    property Brush: IInBrush read Get_Brush;
  end;

// *********************************************************************//
// DispIntf:  IInPictureRectFigureDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605FA93-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInPictureRectFigureDisp = dispinterface
    ['{3605FA93-82BF-11D3-9665-000021C6D845}']
    property Pen: IInPen readonly dispid 100;
    property Brush: IInBrush readonly dispid 101;
    property Name: WideString readonly dispid 1;
    property Left: Double dispid 2;
    property Bottom: Double dispid 3;
    property Width: Double dispid 4;
    property Height: Double dispid 5;
    property FigureType: TInPictureFigureType readonly dispid 6;
    property Visible: WordBool dispid 7;
  end;

// *********************************************************************//
// Interface: IInPictureEllipseFigure
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605FA95-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInPictureEllipseFigure = interface(IInPictureFigure)
    ['{3605FA95-82BF-11D3-9665-000021C6D845}']
    function Get_Pen: IInPen; safecall;
    function Get_Brush: IInBrush; safecall;
    property Pen: IInPen read Get_Pen;
    property Brush: IInBrush read Get_Brush;
  end;

// *********************************************************************//
// DispIntf:  IInPictureEllipseFigureDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605FA95-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInPictureEllipseFigureDisp = dispinterface
    ['{3605FA95-82BF-11D3-9665-000021C6D845}']
    property Pen: IInPen readonly dispid 100;
    property Brush: IInBrush readonly dispid 101;
    property Name: WideString readonly dispid 1;
    property Left: Double dispid 2;
    property Bottom: Double dispid 3;
    property Width: Double dispid 4;
    property Height: Double dispid 5;
    property FigureType: TInPictureFigureType readonly dispid 6;
    property Visible: WordBool dispid 7;
  end;

// *********************************************************************//
// Interface: IInPictureLineFigure
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605FA97-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInPictureLineFigure = interface(IInPictureFigure)
    ['{3605FA97-82BF-11D3-9665-000021C6D845}']
    function Get_Pen: IInPen; safecall;
    function Get_X1: Double; safecall;
    procedure Set_X1(Value: Double); safecall;
    function Get_Y1: Double; safecall;
    procedure Set_Y1(Value: Double); safecall;
    function Get_X2: Double; safecall;
    procedure Set_X2(Value: Double); safecall;
    function Get_Y2: Double; safecall;
    procedure Set_Y2(Value: Double); safecall;
    property Pen: IInPen read Get_Pen;
    property X1: Double read Get_X1 write Set_X1;
    property Y1: Double read Get_Y1 write Set_Y1;
    property X2: Double read Get_X2 write Set_X2;
    property Y2: Double read Get_Y2 write Set_Y2;
  end;

// *********************************************************************//
// DispIntf:  IInPictureLineFigureDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605FA97-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInPictureLineFigureDisp = dispinterface
    ['{3605FA97-82BF-11D3-9665-000021C6D845}']
    property Pen: IInPen readonly dispid 100;
    property X1: Double dispid 101;
    property Y1: Double dispid 102;
    property X2: Double dispid 103;
    property Y2: Double dispid 104;
    property Name: WideString readonly dispid 1;
    property Left: Double dispid 2;
    property Bottom: Double dispid 3;
    property Width: Double dispid 4;
    property Height: Double dispid 5;
    property FigureType: TInPictureFigureType readonly dispid 6;
    property Visible: WordBool dispid 7;
  end;

// *********************************************************************//
// Interface: IInPicturePolygonFigure
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605FA99-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInPicturePolygonFigure = interface(IInPictureFigure)
    ['{3605FA99-82BF-11D3-9665-000021C6D845}']
    function Get_Pen: IInPen; safecall;
    function Get_Brush: IInBrush; safecall;
    function Get_Closed: WordBool; safecall;
    procedure Set_Closed(Value: WordBool); safecall;
    function Get_Points: OleVariant; safecall;
    procedure Set_Points(Value: OleVariant); safecall;
    property Pen: IInPen read Get_Pen;
    property Brush: IInBrush read Get_Brush;
    property Closed: WordBool read Get_Closed write Set_Closed;
    property Points: OleVariant read Get_Points write Set_Points;
  end;

// *********************************************************************//
// DispIntf:  IInPicturePolygonFigureDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605FA99-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInPicturePolygonFigureDisp = dispinterface
    ['{3605FA99-82BF-11D3-9665-000021C6D845}']
    property Pen: IInPen readonly dispid 100;
    property Brush: IInBrush readonly dispid 101;
    property Closed: WordBool dispid 102;
    property Points: OleVariant dispid 103;
    property Name: WideString readonly dispid 1;
    property Left: Double dispid 2;
    property Bottom: Double dispid 3;
    property Width: Double dispid 4;
    property Height: Double dispid 5;
    property FigureType: TInPictureFigureType readonly dispid 6;
    property Visible: WordBool dispid 7;
  end;

// *********************************************************************//
// Interface: IInPictureTextFigure
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605FA9B-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInPictureTextFigure = interface(IInPictureFigure)
    ['{3605FA9B-82BF-11D3-9665-000021C6D845}']
    function Get_Pen: IInPen; safecall;
    function Get_Brush: IInBrush; safecall;
    function Get_Font: IInFont; safecall;
    function Get_Alignment: TInTextAlignment; safecall;
    procedure Set_Alignment(Value: TInTextAlignment); safecall;
    function Get_Orientation: TInTextOrientation; safecall;
    procedure Set_Orientation(Value: TInTextOrientation); safecall;
    function Get_Indent: Double; safecall;
    procedure Set_Indent(Value: Double); safecall;
    function Get_Text: WideString; safecall;
    procedure Set_Text(const Value: WideString); safecall;
    property Pen: IInPen read Get_Pen;
    property Brush: IInBrush read Get_Brush;
    property Font: IInFont read Get_Font;
    property Alignment: TInTextAlignment read Get_Alignment write Set_Alignment;
    property Orientation: TInTextOrientation read Get_Orientation write Set_Orientation;
    property Indent: Double read Get_Indent write Set_Indent;
    property Text: WideString read Get_Text write Set_Text;
  end;

// *********************************************************************//
// DispIntf:  IInPictureTextFigureDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605FA9B-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInPictureTextFigureDisp = dispinterface
    ['{3605FA9B-82BF-11D3-9665-000021C6D845}']
    property Pen: IInPen readonly dispid 100;
    property Brush: IInBrush readonly dispid 101;
    property Font: IInFont readonly dispid 102;
    property Alignment: TInTextAlignment dispid 103;
    property Orientation: TInTextOrientation dispid 104;
    property Indent: Double dispid 105;
    property Text: WideString dispid 106;
    property Name: WideString readonly dispid 1;
    property Left: Double dispid 2;
    property Bottom: Double dispid 3;
    property Width: Double dispid 4;
    property Height: Double dispid 5;
    property FigureType: TInPictureFigureType readonly dispid 6;
    property Visible: WordBool dispid 7;
  end;

// *********************************************************************//
// Interface: IInPicturePictureFigure
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605FA9D-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInPicturePictureFigure = interface(IInPictureFigure)
    ['{3605FA9D-82BF-11D3-9665-000021C6D845}']
    function Get_Pen: IInPen; safecall;
    function Get_Brush: IInBrush; safecall;
    function Get_HorAlign: TInPictureHorAlign; safecall;
    procedure Set_HorAlign(Value: TInPictureHorAlign); safecall;
    function Get_VerAlign: TInPictureVerAlign; safecall;
    procedure Set_VerAlign(Value: TInPictureVerAlign); safecall;
    function Get_Stretch: TInPictureStretch; safecall;
    procedure Set_Stretch(Value: TInPictureStretch); safecall;
    function Get_TransparentBack: WordBool; safecall;
    procedure Set_TransparentBack(Value: WordBool); safecall;
    function Get_Picture: OleVariant; safecall;
    procedure Set_Picture(Value: OleVariant); safecall;
    property Pen: IInPen read Get_Pen;
    property Brush: IInBrush read Get_Brush;
    property HorAlign: TInPictureHorAlign read Get_HorAlign write Set_HorAlign;
    property VerAlign: TInPictureVerAlign read Get_VerAlign write Set_VerAlign;
    property Stretch: TInPictureStretch read Get_Stretch write Set_Stretch;
    property TransparentBack: WordBool read Get_TransparentBack write Set_TransparentBack;
    property Picture: OleVariant read Get_Picture write Set_Picture;
  end;

// *********************************************************************//
// DispIntf:  IInPicturePictureFigureDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605FA9D-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInPicturePictureFigureDisp = dispinterface
    ['{3605FA9D-82BF-11D3-9665-000021C6D845}']
    property Pen: IInPen readonly dispid 100;
    property Brush: IInBrush readonly dispid 101;
    property HorAlign: TInPictureHorAlign dispid 102;
    property VerAlign: TInPictureVerAlign dispid 103;
    property Stretch: TInPictureStretch dispid 104;
    property TransparentBack: WordBool dispid 105;
    property Picture: OleVariant dispid 106;
    property Name: WideString readonly dispid 1;
    property Left: Double dispid 2;
    property Bottom: Double dispid 3;
    property Width: Double dispid 4;
    property Height: Double dispid 5;
    property FigureType: TInPictureFigureType readonly dispid 6;
    property Visible: WordBool dispid 7;
  end;

// *********************************************************************//
// Interface: IInScriptScope
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {95E1B580-848F-11D3-9666-000021C6D845}
// *********************************************************************//
  IInScriptScope = interface(IDispatch)
    ['{95E1B580-848F-11D3-9666-000021C6D845}']
    procedure LoadActions(const aContextCard: IInContextCard; const aResName: WideString; 
                          const anActions: IInUIActions); safecall;
    procedure LoadMenu(const aContextCard: IInContextCard; const aResName: WideString; 
                       const aParentItems: IInUIMenuItems; aBefore: OleVariant); safecall;
  end;

// *********************************************************************//
// DispIntf:  IInScriptScopeDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {95E1B580-848F-11D3-9666-000021C6D845}
// *********************************************************************//
  IInScriptScopeDisp = dispinterface
    ['{95E1B580-848F-11D3-9666-000021C6D845}']
    procedure LoadActions(const aContextCard: IInContextCard; const aResName: WideString; 
                          const anActions: IInUIActions); dispid 1;
    procedure LoadMenu(const aContextCard: IInContextCard; const aResName: WideString; 
                       const aParentItems: IInUIMenuItems; aBefore: OleVariant); dispid 2;
  end;

// *********************************************************************//
// Interface: IInPictureGridFigure
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {33BA8A81-FA34-11D3-970A-000021C6D845}
// *********************************************************************//
  IInPictureGridFigure = interface(IInPictureFigure)
    ['{33BA8A81-FA34-11D3-970A-000021C6D845}']
    function Get_Text(aCol: Integer; aRow: Integer): WideString; safecall;
    procedure Set_Text(aCol: Integer; aRow: Integer; const Value: WideString); safecall;
    function Get_CellFormat: IInGridFormat; safecall;
    function Get_RowFormat: IInGridFormat; safecall;
    function Get_ColFormat: IInGridFormat; safecall;
    function Get_GridFormat: IInGridFormat; safecall;
    function Get_ColCount: Integer; safecall;
    procedure Set_ColCount(Value: Integer); safecall;
    function Get_RowCount: Integer; safecall;
    procedure Set_RowCount(Value: Integer); safecall;
    function Get_LeftCol: Integer; safecall;
    procedure Set_LeftCol(Value: Integer); safecall;
    function Get_TopRow: Integer; safecall;
    procedure Set_TopRow(Value: Integer); safecall;
    function GetFormat(aCol: Integer; aRow: Integer): IInGridFormat; safecall;
    procedure DropFormat(aCol: Integer; aRow: Integer); safecall;
    function ContainsFormat(aCol: Integer; aRow: Integer): WordBool; safecall;
    property Text[aCol: Integer; aRow: Integer]: WideString read Get_Text write Set_Text;
    property CellFormat: IInGridFormat read Get_CellFormat;
    property RowFormat: IInGridFormat read Get_RowFormat;
    property ColFormat: IInGridFormat read Get_ColFormat;
    property GridFormat: IInGridFormat read Get_GridFormat;
    property ColCount: Integer read Get_ColCount write Set_ColCount;
    property RowCount: Integer read Get_RowCount write Set_RowCount;
    property LeftCol: Integer read Get_LeftCol write Set_LeftCol;
    property TopRow: Integer read Get_TopRow write Set_TopRow;
  end;

// *********************************************************************//
// DispIntf:  IInPictureGridFigureDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {33BA8A81-FA34-11D3-970A-000021C6D845}
// *********************************************************************//
  IInPictureGridFigureDisp = dispinterface
    ['{33BA8A81-FA34-11D3-970A-000021C6D845}']
    property Text[aCol: Integer; aRow: Integer]: WideString dispid 100;
    property CellFormat: IInGridFormat readonly dispid 101;
    property RowFormat: IInGridFormat readonly dispid 102;
    property ColFormat: IInGridFormat readonly dispid 103;
    property GridFormat: IInGridFormat readonly dispid 104;
    property ColCount: Integer dispid 105;
    property RowCount: Integer dispid 106;
    property LeftCol: Integer dispid 107;
    property TopRow: Integer dispid 108;
    function GetFormat(aCol: Integer; aRow: Integer): IInGridFormat; dispid 110;
    procedure DropFormat(aCol: Integer; aRow: Integer); dispid 111;
    function ContainsFormat(aCol: Integer; aRow: Integer): WordBool; dispid 112;
    property Name: WideString readonly dispid 1;
    property Left: Double dispid 2;
    property Bottom: Double dispid 3;
    property Width: Double dispid 4;
    property Height: Double dispid 5;
    property FigureType: TInPictureFigureType readonly dispid 6;
    property Visible: WordBool dispid 7;
  end;

// *********************************************************************//
// Interface: IInGridFormat
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {33BA8A87-FA34-11D3-970A-000021C6D845}
// *********************************************************************//
  IInGridFormat = interface(IDispatch)
    ['{33BA8A87-FA34-11D3-970A-000021C6D845}']
    function Get_Pen(aKind: TInGridFormatKind): IInPen; safecall;
    function Get_Brush(aKind: TInGridFormatKind): IInBrush; safecall;
    function Get_TextFormat(aKind: TInGridFormatKind): TInGridTextFormat; safecall;
    procedure Set_TextFormat(aKind: TInGridFormatKind; Value: TInGridTextFormat); safecall;
    function Get_Size(aKind: TInGridFormatKind): Double; safecall;
    procedure Set_Size(aKind: TInGridFormatKind; Value: Double); safecall;
    procedure DropKinds(aKinds: TInGridFormatKind); safecall;
    function ContainsKinds(aKinds: TInGridFormatKind): WordBool; safecall;
    procedure Update; safecall;
    function Get_Font(aKind: TInGridFormatKind): IInFont; safecall;
    property Pen[aKind: TInGridFormatKind]: IInPen read Get_Pen;
    property Brush[aKind: TInGridFormatKind]: IInBrush read Get_Brush;
    property TextFormat[aKind: TInGridFormatKind]: TInGridTextFormat read Get_TextFormat write Set_TextFormat;
    property Size[aKind: TInGridFormatKind]: Double read Get_Size write Set_Size;
    property Font[aKind: TInGridFormatKind]: IInFont read Get_Font;
  end;

// *********************************************************************//
// DispIntf:  IInGridFormatDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {33BA8A87-FA34-11D3-970A-000021C6D845}
// *********************************************************************//
  IInGridFormatDisp = dispinterface
    ['{33BA8A87-FA34-11D3-970A-000021C6D845}']
    property Pen[aKind: TInGridFormatKind]: IInPen readonly dispid 1;
    property Brush[aKind: TInGridFormatKind]: IInBrush readonly dispid 2;
    property TextFormat[aKind: TInGridFormatKind]: TInGridTextFormat dispid 3;
    property Size[aKind: TInGridFormatKind]: Double dispid 4;
    procedure DropKinds(aKinds: TInGridFormatKind); dispid 5;
    function ContainsKinds(aKinds: TInGridFormatKind): WordBool; dispid 6;
    procedure Update; dispid 7;
    property Font[aKind: TInGridFormatKind]: IInFont readonly dispid 8;
  end;

// *********************************************************************//
// Interface: IInScript
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {04088494-0485-11D4-9719-000021C6D845}
// *********************************************************************//
  IInScript = interface(IDispatch)
    ['{04088494-0485-11D4-9719-000021C6D845}']
    function Get_Disp: IDispatch; safecall;
    function Get_ContextCard: IInContextCard; safecall;
    property Disp: IDispatch read Get_Disp;
    property ContextCard: IInContextCard read Get_ContextCard;
  end;

// *********************************************************************//
// DispIntf:  IInScriptDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {04088494-0485-11D4-9719-000021C6D845}
// *********************************************************************//
  IInScriptDisp = dispinterface
    ['{04088494-0485-11D4-9719-000021C6D845}']
    property Disp: IDispatch readonly dispid 1;
    property ContextCard: IInContextCard readonly dispid 2;
  end;

// *********************************************************************//
// Interface: IInContextCard
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {36ED8D11-0914-11D4-971F-000021C6D845}
// *********************************************************************//
  IInContextCard = interface(IDispatch)
    ['{36ED8D11-0914-11D4-971F-000021C6D845}']
  end;

// *********************************************************************//
// DispIntf:  IInContextCardDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {36ED8D11-0914-11D4-971F-000021C6D845}
// *********************************************************************//
  IInContextCardDisp = dispinterface
    ['{36ED8D11-0914-11D4-971F-000021C6D845}']
  end;

// *********************************************************************//
// Interface: IInLayoutWindow
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605FA6F-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInLayoutWindow = interface(IInWindow)
    ['{3605FA6F-82BF-11D3-9665-000021C6D845}']
    function Get_Figures: IInPictureFigures; safecall;
    function Get_DesignMode: WordBool; safecall;
    procedure Set_DesignMode(Value: WordBool); safecall;
    function Get_Modified: WordBool; safecall;
    procedure Set_Modified(Value: WordBool); safecall;
    function Get_Actions: IInUIActions; safecall;
    function Get_Menu: IInUIMenu; safecall;
    procedure NewLayout; safecall;
    procedure OpenLayout(const aFileName: WideString); safecall;
    procedure SaveLayout; safecall;
    procedure SaveLayoutAs(const aFileName: WideString); safecall;
    procedure PrintPage(aPageNumX: Integer; aPageNumY: Integer; aCopies: Integer; 
                        const aJobTitle: WideString; const aFileName: WideString); safecall;
    function Get_PrintParams: IInPrintParams; safecall;
    function Get_Selection: IInLayoutSelection; safecall;
    property Figures: IInPictureFigures read Get_Figures;
    property DesignMode: WordBool read Get_DesignMode write Set_DesignMode;
    property Modified: WordBool read Get_Modified write Set_Modified;
    property Actions: IInUIActions read Get_Actions;
    property Menu: IInUIMenu read Get_Menu;
    property PrintParams: IInPrintParams read Get_PrintParams;
    property Selection: IInLayoutSelection read Get_Selection;
  end;

// *********************************************************************//
// DispIntf:  IInLayoutWindowDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3605FA6F-82BF-11D3-9665-000021C6D845}
// *********************************************************************//
  IInLayoutWindowDisp = dispinterface
    ['{3605FA6F-82BF-11D3-9665-000021C6D845}']
    property Figures: IInPictureFigures readonly dispid 0;
    property DesignMode: WordBool dispid 101;
    property Modified: WordBool dispid 102;
    property Actions: IInUIActions readonly dispid 103;
    property Menu: IInUIMenu readonly dispid 104;
    procedure NewLayout; dispid 105;
    procedure OpenLayout(const aFileName: WideString); dispid 106;
    procedure SaveLayout; dispid 107;
    procedure SaveLayoutAs(const aFileName: WideString); dispid 108;
    procedure PrintPage(aPageNumX: Integer; aPageNumY: Integer; aCopies: Integer; 
                        const aJobTitle: WideString; const aFileName: WideString); dispid 4;
    property PrintParams: IInPrintParams readonly dispid 9;
    property Selection: IInLayoutSelection readonly dispid 12;
    property Left: Integer dispid 5;
    property Top: Integer dispid 6;
    property Width: Integer dispid 7;
    property Height: Integer dispid 8;
    property WindowState: TInWindowState dispid 10;
    property Name: WideString readonly dispid 11;
    procedure Close; dispid 1;
    property Visible: WordBool dispid 2;
    property Caption: WideString dispid 3;
  end;

// *********************************************************************//
// Interface: IInWindows
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {744774D6-1B2B-11D4-9739-000021C6D845}
// *********************************************************************//
  IInWindows = interface(IDispatch)
    ['{744774D6-1B2B-11D4-9739-000021C6D845}']
    function Get_Count: Integer; safecall;
    function Get_Item(anIndex: OleVariant): IInWindow; safecall;
    function Get__NewEnum: IUnknown; safecall;
    property Count: Integer read Get_Count;
    property Item[anIndex: OleVariant]: IInWindow read Get_Item; default;
    property _NewEnum: IUnknown read Get__NewEnum;
  end;

// *********************************************************************//
// DispIntf:  IInWindowsDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {744774D6-1B2B-11D4-9739-000021C6D845}
// *********************************************************************//
  IInWindowsDisp = dispinterface
    ['{744774D6-1B2B-11D4-9739-000021C6D845}']
    property Count: Integer readonly dispid 1;
    property Item[anIndex: OleVariant]: IInWindow readonly dispid 0; default;
    property _NewEnum: IUnknown readonly dispid -4;
  end;

// *********************************************************************//
// Interface: IInPictureMapFigure
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {AE82D702-2170-11D4-973E-000021C6D845}
// *********************************************************************//
  IInPictureMapFigure = interface(IInPictureFigure)
    ['{AE82D702-2170-11D4-973E-000021C6D845}']
    function Get_Pen: IInPen; safecall;
    function Get_Brush: IInBrush; safecall;
    function Get_MapVisible: WordBool; safecall;
    procedure Set_MapVisible(Value: WordBool); safecall;
    function Get_CenterX: Double; safecall;
    procedure Set_CenterX(Value: Double); safecall;
    function Get_CenterY: Double; safecall;
    procedure Set_CenterY(Value: Double); safecall;
    function Get_ZoomScale: Double; safecall;
    procedure Set_ZoomScale(Value: Double); safecall;
    function Get_XAngle: Double; safecall;
    procedure Set_XAngle(Value: Double); safecall;
    function Get_YMirror: WordBool; safecall;
    procedure Set_YMirror(Value: WordBool); safecall;
    property Pen: IInPen read Get_Pen;
    property Brush: IInBrush read Get_Brush;
    property MapVisible: WordBool read Get_MapVisible write Set_MapVisible;
    property CenterX: Double read Get_CenterX write Set_CenterX;
    property CenterY: Double read Get_CenterY write Set_CenterY;
    property ZoomScale: Double read Get_ZoomScale write Set_ZoomScale;
    property XAngle: Double read Get_XAngle write Set_XAngle;
    property YMirror: WordBool read Get_YMirror write Set_YMirror;
  end;

// *********************************************************************//
// DispIntf:  IInPictureMapFigureDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {AE82D702-2170-11D4-973E-000021C6D845}
// *********************************************************************//
  IInPictureMapFigureDisp = dispinterface
    ['{AE82D702-2170-11D4-973E-000021C6D845}']
    property Pen: IInPen readonly dispid 100;
    property Brush: IInBrush readonly dispid 101;
    property MapVisible: WordBool dispid 102;
    property CenterX: Double dispid 103;
    property CenterY: Double dispid 104;
    property ZoomScale: Double dispid 105;
    property XAngle: Double dispid 106;
    property YMirror: WordBool dispid 107;
    property Name: WideString readonly dispid 1;
    property Left: Double dispid 2;
    property Bottom: Double dispid 3;
    property Width: Double dispid 4;
    property Height: Double dispid 5;
    property FigureType: TInPictureFigureType readonly dispid 6;
    property Visible: WordBool dispid 7;
  end;

// *********************************************************************//
// Interface: IInModuleSink
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {AB3A7610-233E-11D4-9744-000021C6D845}
// *********************************************************************//
  IInModuleSink = interface(IDispatch)
    ['{AB3A7610-233E-11D4-9744-000021C6D845}']
    procedure StartComplete; safecall;
    procedure WillStop; safecall;
  end;

// *********************************************************************//
// DispIntf:  IInModuleSinkDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {AB3A7610-233E-11D4-9744-000021C6D845}
// *********************************************************************//
  IInModuleSinkDisp = dispinterface
    ['{AB3A7610-233E-11D4-9744-000021C6D845}']
    procedure StartComplete; dispid 1;
    procedure WillStop; dispid 2;
  end;

// *********************************************************************//
// Interface: IInHTMLWindow
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {21448481-27F8-11D4-9748-000021C6D845}
// *********************************************************************//
  IInHTMLWindow = interface(IInWindow)
    ['{21448481-27F8-11D4-9748-000021C6D845}']
    procedure ShowModal; safecall;
    function Get_External: IDispatch; safecall;
    procedure Set_External(const Value: IDispatch); safecall;
    function Get_Browser: IDispatch; safecall;
    function Get_ToolbarVisible: WordBool; safecall;
    procedure Set_ToolbarVisible(Value: WordBool); safecall;
    property External: IDispatch read Get_External write Set_External;
    property Browser: IDispatch read Get_Browser;
    property ToolbarVisible: WordBool read Get_ToolbarVisible write Set_ToolbarVisible;
  end;

// *********************************************************************//
// DispIntf:  IInHTMLWindowDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {21448481-27F8-11D4-9748-000021C6D845}
// *********************************************************************//
  IInHTMLWindowDisp = dispinterface
    ['{21448481-27F8-11D4-9748-000021C6D845}']
    procedure ShowModal; dispid 103;
    property External: IDispatch dispid 104;
    property Browser: IDispatch readonly dispid 13;
    property ToolbarVisible: WordBool dispid 4;
    property Left: Integer dispid 5;
    property Top: Integer dispid 6;
    property Width: Integer dispid 7;
    property Height: Integer dispid 8;
    property WindowState: TInWindowState dispid 10;
    property Name: WideString readonly dispid 11;
    procedure Close; dispid 1;
    property Visible: WordBool dispid 2;
    property Caption: WideString dispid 3;
  end;

// *********************************************************************//
// Interface: IInPrintParams
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {25EEC9F1-2C7F-11D4-974E-000021C6D845}
// *********************************************************************//
  IInPrintParams = interface(IDispatch)
    ['{25EEC9F1-2C7F-11D4-974E-000021C6D845}']
    function Get_ScaleX: Double; safecall;
    procedure Set_ScaleX(Value: Double); safecall;
    function Get_ScaleY: Double; safecall;
    procedure Set_ScaleY(Value: Double); safecall;
    function Get_MarginX1: Double; safecall;
    procedure Set_MarginX1(Value: Double); safecall;
    function Get_MarginY1: Double; safecall;
    procedure Set_MarginY1(Value: Double); safecall;
    function Get_MarginX2: Double; safecall;
    procedure Set_MarginX2(Value: Double); safecall;
    function Get_MarginY2: Double; safecall;
    procedure Set_MarginY2(Value: Double); safecall;
    function Get_PrintMargins: WordBool; safecall;
    procedure Set_PrintMargins(Value: WordBool); safecall;
    function Get_PageOrientation: TInPageOrientation; safecall;
    procedure Set_PageOrientation(Value: TInPageOrientation); safecall;
    function Get_PageFormat: TInPageFormat; safecall;
    procedure Set_PageFormat(Value: TInPageFormat); safecall;
    function Get_PageFormatIndex: TInPageFormatIndex; safecall;
    procedure Set_PageFormatIndex(Value: TInPageFormatIndex); safecall;
    function Get_PageSizeX: Double; safecall;
    procedure Set_PageSizeX(Value: Double); safecall;
    function Get_PageSizeY: Double; safecall;
    procedure Set_PageSizeY(Value: Double); safecall;
    function Get_RasterizeBitCount: Integer; safecall;
    procedure Set_RasterizeBitCount(Value: Integer); safecall;
    function Get_RasterizeBufSize: Integer; safecall;
    procedure Set_RasterizeBufSize(Value: Integer); safecall;
    function Get_Rasterize: WordBool; safecall;
    procedure Set_Rasterize(Value: WordBool); safecall;
    function Get_PageCountX: Integer; safecall;
    function Get_PageCountY: Integer; safecall;
    function Get_PrinterPaperSizeX: Double; safecall;
    function Get_PrinterPaperSizeY: Double; safecall;
    property ScaleX: Double read Get_ScaleX write Set_ScaleX;
    property ScaleY: Double read Get_ScaleY write Set_ScaleY;
    property MarginX1: Double read Get_MarginX1 write Set_MarginX1;
    property MarginY1: Double read Get_MarginY1 write Set_MarginY1;
    property MarginX2: Double read Get_MarginX2 write Set_MarginX2;
    property MarginY2: Double read Get_MarginY2 write Set_MarginY2;
    property PrintMargins: WordBool read Get_PrintMargins write Set_PrintMargins;
    property PageOrientation: TInPageOrientation read Get_PageOrientation write Set_PageOrientation;
    property PageFormat: TInPageFormat read Get_PageFormat write Set_PageFormat;
    property PageFormatIndex: TInPageFormatIndex read Get_PageFormatIndex write Set_PageFormatIndex;
    property PageSizeX: Double read Get_PageSizeX write Set_PageSizeX;
    property PageSizeY: Double read Get_PageSizeY write Set_PageSizeY;
    property RasterizeBitCount: Integer read Get_RasterizeBitCount write Set_RasterizeBitCount;
    property RasterizeBufSize: Integer read Get_RasterizeBufSize write Set_RasterizeBufSize;
    property Rasterize: WordBool read Get_Rasterize write Set_Rasterize;
    property PageCountX: Integer read Get_PageCountX;
    property PageCountY: Integer read Get_PageCountY;
    property PrinterPaperSizeX: Double read Get_PrinterPaperSizeX;
    property PrinterPaperSizeY: Double read Get_PrinterPaperSizeY;
  end;

// *********************************************************************//
// DispIntf:  IInPrintParamsDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {25EEC9F1-2C7F-11D4-974E-000021C6D845}
// *********************************************************************//
  IInPrintParamsDisp = dispinterface
    ['{25EEC9F1-2C7F-11D4-974E-000021C6D845}']
    property ScaleX: Double dispid 1;
    property ScaleY: Double dispid 2;
    property MarginX1: Double dispid 3;
    property MarginY1: Double dispid 4;
    property MarginX2: Double dispid 5;
    property MarginY2: Double dispid 6;
    property PrintMargins: WordBool dispid 7;
    property PageOrientation: TInPageOrientation dispid 8;
    property PageFormat: TInPageFormat dispid 9;
    property PageFormatIndex: TInPageFormatIndex dispid 10;
    property PageSizeX: Double dispid 11;
    property PageSizeY: Double dispid 12;
    property RasterizeBitCount: Integer dispid 13;
    property RasterizeBufSize: Integer dispid 14;
    property Rasterize: WordBool dispid 15;
    property PageCountX: Integer readonly dispid 16;
    property PageCountY: Integer readonly dispid 17;
    property PrinterPaperSizeX: Double readonly dispid 18;
    property PrinterPaperSizeY: Double readonly dispid 19;
  end;

// *********************************************************************//
// Interface: IInPrinter
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {25EEC9F7-2C7F-11D4-974E-000021C6D845}
// *********************************************************************//
  IInPrinter = interface(IDispatch)
    ['{25EEC9F7-2C7F-11D4-974E-000021C6D845}']
    function Get_Name: WideString; safecall;
    function Get_PortName: WideString; safecall;
    function Get_DriverName: WideString; safecall;
    function Get_Comment: WideString; safecall;
    function Get_Selected: WordBool; safecall;
    procedure Set_Selected(Value: WordBool); safecall;
    property Name: WideString read Get_Name;
    property PortName: WideString read Get_PortName;
    property DriverName: WideString read Get_DriverName;
    property Comment: WideString read Get_Comment;
    property Selected: WordBool read Get_Selected write Set_Selected;
  end;

// *********************************************************************//
// DispIntf:  IInPrinterDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {25EEC9F7-2C7F-11D4-974E-000021C6D845}
// *********************************************************************//
  IInPrinterDisp = dispinterface
    ['{25EEC9F7-2C7F-11D4-974E-000021C6D845}']
    property Name: WideString readonly dispid 1;
    property PortName: WideString readonly dispid 2;
    property DriverName: WideString readonly dispid 3;
    property Comment: WideString readonly dispid 4;
    property Selected: WordBool dispid 5;
  end;

// *********************************************************************//
// Interface: IInPrinters
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {25EEC9F9-2C7F-11D4-974E-000021C6D845}
// *********************************************************************//
  IInPrinters = interface(IDispatch)
    ['{25EEC9F9-2C7F-11D4-974E-000021C6D845}']
    function Get_Count: Integer; safecall;
    function Get_Item(anIndex: OleVariant): IInPrinter; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_DefaultPrinterName: WideString; safecall;
    procedure Refresh; safecall;
    property Count: Integer read Get_Count;
    property Item[anIndex: OleVariant]: IInPrinter read Get_Item; default;
    property _NewEnum: IUnknown read Get__NewEnum;
    property DefaultPrinterName: WideString read Get_DefaultPrinterName;
  end;

// *********************************************************************//
// DispIntf:  IInPrintersDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {25EEC9F9-2C7F-11D4-974E-000021C6D845}
// *********************************************************************//
  IInPrintersDisp = dispinterface
    ['{25EEC9F9-2C7F-11D4-974E-000021C6D845}']
    property Count: Integer readonly dispid 1;
    property Item[anIndex: OleVariant]: IInPrinter readonly dispid 0; default;
    property _NewEnum: IUnknown readonly dispid -4;
    property DefaultPrinterName: WideString readonly dispid 4;
    procedure Refresh; dispid 2;
  end;

// *********************************************************************//
// Interface: IInLayoutSelection
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {8998D2D1-ED4E-42B9-86FB-AEF7B82EF984}
// *********************************************************************//
  IInLayoutSelection = interface(IDispatch)
    ['{8998D2D1-ED4E-42B9-86FB-AEF7B82EF984}']
    function Get_Count: Integer; safecall;
    function IsSelected(const aFigure: IInPictureFigure): WordBool; safecall;
    procedure BeginUpdate; safecall;
    procedure EndUpdate; safecall;
    procedure SelectAll; safecall;
    procedure DeselectAll; safecall;
    procedure Select(const aFigure: IInPictureFigure); safecall;
    procedure Deselect(const aFigure: IInPictureFigure); safecall;
    function Get_Item(anIndex: Integer): IInPictureFigure; safecall;
    property Count: Integer read Get_Count;
    property Item[anIndex: Integer]: IInPictureFigure read Get_Item; default;
  end;

// *********************************************************************//
// DispIntf:  IInLayoutSelectionDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {8998D2D1-ED4E-42B9-86FB-AEF7B82EF984}
// *********************************************************************//
  IInLayoutSelectionDisp = dispinterface
    ['{8998D2D1-ED4E-42B9-86FB-AEF7B82EF984}']
    property Count: Integer readonly dispid 1;
    function IsSelected(const aFigure: IInPictureFigure): WordBool; dispid 2;
    procedure BeginUpdate; dispid 3;
    procedure EndUpdate; dispid 4;
    procedure SelectAll; dispid 5;
    procedure DeselectAll; dispid 6;
    procedure Select(const aFigure: IInPictureFigure); dispid 7;
    procedure Deselect(const aFigure: IInPictureFigure); dispid 8;
    property Item[anIndex: Integer]: IInPictureFigure readonly dispid 0; default;
  end;

implementation

uses ComObj;

end.
