superlayoutlib_tlb.pas

GIS开发源代码。 SuperMax5.0＋Delphi,用Delphi编写的控件工具包

  sclytDMPAPER_ENV_C4 = $0000001E;
  sclytDMPAPER_ENV_C6 = $0000001F;
  sclytDMPAPER_ENV_C65 = $00000020;
  sclytDMPAPER_ENV_B4 = $00000021;
  sclytDMPAPER_ENV_B5 = $00000022;
  sclytDMPAPER_ENV_B6 = $00000023;
  sclytDMPAPER_ENV_ITALY = $00000024;
  sclytDMPAPER_ENV_MONARCH = $00000025;
  sclytDMPAPER_ENV_PERSONAL = $00000026;
  sclytDMPAPER_FANFOLD_US = $00000027;
  sclytDMPAPER_FANFOLD_STD_GERMAN = $00000028;
  sclytDMPAPER_FANFOLD_LGL_GERMAN = $00000029;
  sclytDMPAPER_ISO_B4 = $0000002A;
  sclytDMPAPER_JAPANESE_POSTCARD = $0000002B;
  sclytDMPAPER_9X11 = $0000002C;
  sclytDMPAPER_10X11 = $0000002D;
  sclytDMPAPER_15X11 = $0000002E;
  sclytDMPAPER_ENV_INVITE = $0000002F;
  sclytDMPAPER_RESERVED_48 = $00000030;
  sclytDMPAPER_RESERVED_49 = $00000031;
  sclytDMPAPER_LETTER_EXTRA = $00000032;
  sclytDMPAPER_LEGAL_EXTRA = $00000033;
  sclytDMPAPER_TABLOID_EXTRA = $00000034;
  sclytDMPAPER_A4_EXTRA = $00000035;
  sclytDMPAPER_LETTER_TRANSVERSE = $00000036;
  sclytDMPAPER_A4_TRANSVERSE = $00000037;
  sclytDMPAPER_LETTER_EXTRA_TRANSVERSE = $00000038;
  sclytDMPAPER_A_PLUS = $00000039;
  sclytDMPAPER_B_PLUS = $0000003A;
  sclytDMPAPER_LETTER_PLUS = $0000003B;
  sclytDMPAPER_A4_PLUS = $0000003C;
  sclytDMPAPER_A5_TRANSVERSE = $0000003D;
  sclytDMPAPER_B5_TRANSVERSE = $0000003E;
  sclytDMPAPER_A3_EXTRA = $0000003F;
  sclytDMPAPER_A5_EXTRA = $00000040;
  sclytDMPAPER_B5_EXTRA = $00000041;
  sclytDMPAPER_A2 = $00000042;
  sclytDMPAPER_A3_TRANSVERSE = $00000043;
  sclytDMPAPER_A3_EXTRA_TRANSVERSE = $00000044;
  sclytDMPAPER_DBL_JAPANESE_POSTCARD = $00000045;
  sclytDMPAPER_A6 = $00000046;
  sclytDMPAPER_JENV_KAKU2 = $00000047;
  sclytDMPAPER_JENV_KAKU3 = $00000048;
  sclytDMPAPER_JENV_CHOU3 = $00000049;
  sclytDMPAPER_JENV_CHOU4 = $0000004A;
  sclytDMPAPER_LETTER_ROTATED = $0000004B;
  sclytDMPAPER_A3_ROTATED = $0000004C;
  sclytDMPAPER_A4_ROTATED = $0000004D;
  sclytDMPAPER_A5_ROTATED = $0000004E;
  sclytDMPAPER_B4_JIS_ROTATED = $0000004F;
  sclytDMPAPER_B5_JIS_ROTATED = $00000050;
  sclytDMPAPER_JAPANESE_POSTCARD_ROTATED = $00000051;
  sclytDMPAPER_DBL_JAPANESE_POSTCARD_ROTATED = $00000052;
  sclytDMPAPER_A6_ROTATED = $00000053;
  sclytDMPAPER_JENV_KAKU2_ROTATED = $00000054;
  sclytDMPAPER_JENV_KAKU3_ROTATED = $00000055;
  sclytDMPAPER_JENV_CHOU3_ROTATED = $00000056;
  sclytDMPAPER_JENV_CHOU4_ROTATED = $00000057;
  sclytDMPAPER_B6_JIS = $00000058;
  sclytDMPAPER_B6_JIS_ROTATED = $00000059;
  sclytDMPAPER_12X11 = $0000005A;
  sclytDMPAPER_JENV_YOU4 = $0000005B;
  sclytDMPAPER_JENV_YOU4_ROTATED = $0000005C;
  sclytDMPAPER_P16K = $0000005D;
  sclytDMPAPER_P32K = $0000005E;
  sclytDMPAPER_P32KBIG = $0000005F;
  sclytDMPAPER_PENV_1 = $00000060;
  sclytDMPAPER_PENV_2 = $00000061;
  sclytDMPAPER_PENV_3 = $00000062;
  sclytDMPAPER_PENV_4 = $00000063;
  sclytDMPAPER_PENV_5 = $00000064;
  sclytDMPAPER_PENV_6 = $00000065;
  sclytDMPAPER_PENV_7 = $00000066;
  sclytDMPAPER_PENV_8 = $00000067;
  sclytDMPAPER_PENV_9 = $00000068;
  sclytDMPAPER_PENV_10 = $00000069;
  sclytDMPAPER_P16K_ROTATED = $0000006A;
  sclytDMPAPER_P32K_ROTATED = $0000006B;
  sclytDMPAPER_P32KBIG_ROTATED = $0000006C;
  sclytDMPAPER_PENV_1_ROTATED = $0000006D;
  sclytDMPAPER_PENV_2_ROTATED = $0000006E;
  sclytDMPAPER_PENV_3_ROTATED = $0000006F;
  sclytDMPAPER_PENV_4_ROTATED = $00000070;
  sclytDMPAPER_PENV_5_ROTATED = $00000071;
  sclytDMPAPER_PENV_6_ROTATED = $00000072;
  sclytDMPAPER_PENV_7_ROTATED = $00000073;
  sclytDMPAPER_PENV_8_ROTATED = $00000074;
  sclytDMPAPER_PENV_9_ROTATED = $00000075;
  sclytDMPAPER_PENV_10_ROTATED = $00000076;
  sclytDMPAPER_ISO_A2 = $00000077;
  sclytDMPAPER_ISO_A1 = $00000078;
  sclytDMPAPER_ISO_A0 = $00000079;
  sclytDMPAPER_ISO_EUROPE_B4 = $0000007A;
  sclytDMPAPER_ISO_EUROPE_B3 = $0000007B;
  sclytDMPAPER_ISO_EUROPE_B2 = $0000007C;
  sclytDMPAPER_ISO_EUROPE_B1 = $0000007D;
  sclytDMPAPER_JIS_B4 = $0000007E;
  sclytDMPAPER_JIS_B3 = $0000007F;
  sclytDMPAPER_JIS_B2 = $00000080;
  sclytDMPAPER_JIS_B1 = $00000081;
  sclytDMPAPER_USER = $00000100;

// Constants for enum seLytRulerLine
type
  seLytRulerLine = TOleEnum;
const
  sclytVertical = $00000001;
  scLytHorizontal = $00000002;

// Constants for enum seLytPageUnits
type
  seLytPageUnits = TOleEnum;
const
  scLytResolution = $00000001;
  scLytMillimeter = $0000000A;
  scLytCentimeter = $00000064;
  scLytInch = $000000FE;
  scLytDecimeter = $000003E8;
  scLytFoot = $00000C0C;
  scLytYard = $0000239A;
  scLytMeter = $00002710;

// Constants for enum seLytOrientation
type
  seLytOrientation = TOleEnum;
const
  scLytPortrait = $00000001;
  scLytLandscape = $00000002;

type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  IsoLytElement = dispinterface;
  IsoLytMapBorder = dispinterface;
  IsoLytGroup = dispinterface;
  IsoLytMap = dispinterface;
  IsoLytElements = dispinterface;
  IsoLytSelection = dispinterface;
  IsoLytRulerLine = dispinterface;
  IsoLytRulerLines = dispinterface;
  IsoLytPage = dispinterface;
  _DSuperLayout = dispinterface;
  _DSuperLayoutEvents = dispinterface;
  IsoLytRect = dispinterface;
  IsoLytPoly = dispinterface;
  IsoLytTable = dispinterface;
  IsoLytText = dispinterface;
  IsoLytArtText = dispinterface;
  IsoLytLineSect = dispinterface;
  IsoLytRoundRect = dispinterface;
  IsoLytEllipse = dispinterface;
  IsoLytArc = dispinterface;
  IsoLytPolygon = dispinterface;
  IsoLytPolyline = dispinterface;
  IsoLytLegend = dispinterface;
  IsoLytMapScale = dispinterface;
  IsoLytDirection = dispinterface;
  IsoLytPicture = dispinterface;
  IsoLytPoint = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  soLytElement = IsoLytElement;
  soLytMapBorder = IsoLytMapBorder;
  soLytGroup = IsoLytGroup;
  soLytMap = IsoLytMap;
  soLytElements = IsoLytElements;
  soLytSelection = IsoLytSelection;
  soLytRulerLine = IsoLytRulerLine;
  soLytRulerLines = IsoLytRulerLines;
  soLytPage = IsoLytPage;
  SuperLayout = _DSuperLayout;
  soLytRect = IsoLytRect;
  soLytPoly = IsoLytPoly;
  soLytTable = IsoLytTable;
  soLytText = IsoLytText;
  soLytArtText = IsoLytArtText;
  soLytLineSect = IsoLytLineSect;
  soLytRoundRect = IsoLytRoundRect;
  soLytEllipse = IsoLytEllipse;
  soLytArc = IsoLytArc;
  soLytPolygon = IsoLytPolygon;
  soLytPolyline = IsoLytPolyline;
  soLytLegend = IsoLytLegend;
  soLytMapScale = IsoLytMapScale;
  soLytDirection = IsoLytDirection;
  soLytPicture = IsoLytPicture;
  soLytPoint = IsoLytPoint;


// *********************************************************************//
// DispIntf:  IsoLytElement
// Flags:     (4096) Dispatchable
// GUID:      {49185D96-EE20-4831-ABD4-C2D2E050B732}
// *********************************************************************//
  IsoLytElement = dispinterface
    ['{49185D96-EE20-4831-ABD4-C2D2E050B732}']
    property Type_: seLytObjType dispid 1;
    property Bounds: IsoRect dispid 2;
    property Style: IsoStyle dispid 3;
    property Editable: WordBool dispid 9;
    property Tag: WideString dispid 10;
    procedure SetPosition(const newposition: IsoRect); dispid 4;
    procedure Move(xOffset: Integer; yOffset: Integer); dispid 5;
    procedure AlignToGrid; dispid 6;
    function HitTest(x: Integer; y: Integer): WordBool; dispid 7;
    procedure ShowPropertyDlg; dispid 8;
  end;

// *********************************************************************//
// DispIntf:  IsoLytMapBorder
// Flags:     (4096) Dispatchable
// GUID:      {0A29BF7D-2D5C-4B1B-B3B9-AA454124B3C8}
// *********************************************************************//
  IsoLytMapBorder = dispinterface
    ['{0A29BF7D-2D5C-4B1B-B3B9-AA454124B3C8}']
    property InBorderPenWidth: Integer dispid 1;
    property OutBorderPenWidth: Integer dispid 2;
    property OutLinePenWidth: Integer dispid 3;
    property InLinePenWidth: Integer dispid 4;
    property OutLinePenColor: OLE_COLOR dispid 5;
    property InLinePenColor: OLE_COLOR dispid 6;
    property OutBorderPenColor: OLE_COLOR dispid 7;
    property InBorderPenColor: OLE_COLOR dispid 8;
    property InBorderDist: Integer dispid 9;
    property InLineDist: Integer dispid 10;
    property OutLineDist: Integer dispid 11;
    property OutBorderDist: Integer dispid 12;
    property FillStyle: seMapBorderFillStyle dispid 13;
    property CornerFillStyle: seMapBorderCornerFillStyle dispid 14;
    property FilledBmpName: WideString dispid 15;
    property CornerFilledBmpName: WideString dispid 16;
    property FilledString: WideString dispid 17;
    property CornerFilledString: WideString dispid 18;
    property FilledStringColor: OLE_COLOR dispid 19;
    property CornerFilledStringColor: OLE_COLOR dispid 20;
    property RotateBase: seMapBorderRotateBaseType dispid 21;
    property CornerRotateBase: seMapBorderRotateBaseType dispid 22;
    property FilledFont: IsoTextStyle dispid 23;
    property CornerFilledFont: IsoTextStyle dispid 24;
  end;

// *********************************************************************//
// DispIntf:  IsoLytGroup
// Flags:     (4096) Dispatchable
// GUID:      {9C1D0D43-B847-41A0-8CC4-38C11DB33657}
// *********************************************************************//
  IsoLytGroup = dispinterface
    ['{9C1D0D43-B847-41A0-8CC4-38C11DB33657}']
    property Type_: seLytObjType dispid 1;
    property Bounds: IsoRect dispid 2;
    property Style: IsoStyle dispid 3;
    property Editable: WordBool dispid 9;
    property Tag: WideString dispid 10;
    property Count: Integer dispid 11;
    procedure SetPosition(const newposition: IsoRect); dispid 4;
    procedure Move(xOffset: Integer; yOffset: Integer); dispid 5;
    procedure AlignToGrid; dispid 6;
    function HitTest(x: Integer; y: Integer): WordBool; dispid 7;
    procedure ShowPropertyDlg; dispid 8;
    function Add(const objLytElement: IDispatch): WordBool; dispid 12;
    function Remove(nIndex: Integer): WordBool; dispid 13;
    property Item[nIndex: Integer]: IsoLytElement dispid 14;
  end;

// *********************************************************************//
// DispIntf:  IsoLytMap
// Flags:     (4096) Dispatchable
// GUID:      {4B958429-4B1C-43D2-B74F-18391DD83457}
// *********************************************************************//
  IsoLytMap = dispinterface
    ['{4B958429-4B1C-43D2-B74F-18391DD83457}']
    property Type_: seLytObjType dispid 1;
    property Bounds: IsoRect dispid 2;
    property Style: IsoStyle dispid 3;
    property Editable: WordBool dispid 9;
    property Tag: WideString dispid 10;
    property MapName: WideString dispid 11;
    property MapHold: WordBool dispid 12;
    property MapAction: seMapActionType dispid 13;
    property MapScale: Double dispid 14;