superlayoutlib_tlb.pas

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

  CosoLytElement = class
    class function Create: IsoLytElement;
    class function CreateRemote(const MachineName: string): IsoLytElement;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TsoLytElement
// Help String      : 
// Default Interface: IsoLytElement
// Def. Intf. DISP? : Yes
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TsoLytElementProperties= class;
{$ENDIF}
  TsoLytElement = class(TOleServer)
  private
    FIntf:        IsoLytElement;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TsoLytElementProperties;
    function      GetServerProperties: TsoLytElementProperties;
{$ENDIF}
    function      GetDefaultInterface: IsoLytElement;
  protected
    procedure InitServerData; override;
    function Get_Type_: seLytObjType;
    procedure Set_Type_(Value: seLytObjType);
    function Get_Bounds: IsoRect;
    procedure Set_Bounds(const Value: IsoRect);
    function Get_Style: IsoStyle;
    procedure Set_Style(const Value: IsoStyle);
    function Get_Editable: WordBool;
    procedure Set_Editable(Value: WordBool);
    function Get_Tag: WideString;
    procedure Set_Tag(const Value: WideString);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IsoLytElement);
    procedure Disconnect; override;
    procedure SetPosition(const newposition: IsoRect);
    procedure Move(xOffset: Integer; yOffset: Integer);
    procedure AlignToGrid;
    function HitTest(x: Integer; y: Integer): WordBool;
    procedure ShowPropertyDlg;
    property DefaultInterface: IsoLytElement read GetDefaultInterface;
    property Type_: seLytObjType read Get_Type_ write Set_Type_;
    property Bounds: IsoRect read Get_Bounds write Set_Bounds;
    property Style: IsoStyle read Get_Style write Set_Style;
    property Editable: WordBool read Get_Editable write Set_Editable;
    property Tag: WideString read Get_Tag write Set_Tag;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TsoLytElementProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TsoLytElement
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TsoLytElementProperties = class(TPersistent)
  private
    FServer:    TsoLytElement;
    function    GetDefaultInterface: IsoLytElement;
    constructor Create(AServer: TsoLytElement);
  protected
    function Get_Type_: seLytObjType;
    procedure Set_Type_(Value: seLytObjType);
    function Get_Bounds: IsoRect;
    procedure Set_Bounds(const Value: IsoRect);
    function Get_Style: IsoStyle;
    procedure Set_Style(const Value: IsoStyle);
    function Get_Editable: WordBool;
    procedure Set_Editable(Value: WordBool);
    function Get_Tag: WideString;
    procedure Set_Tag(const Value: WideString);
  public
    property DefaultInterface: IsoLytElement read GetDefaultInterface;
  published
    property Type_: seLytObjType read Get_Type_ write Set_Type_;
    property Bounds: IsoRect read Get_Bounds write Set_Bounds;
    property Style: IsoStyle read Get_Style write Set_Style;
    property Editable: WordBool read Get_Editable write Set_Editable;
    property Tag: WideString read Get_Tag write Set_Tag;
  end;
{$ENDIF}


// *********************************************************************//
// The Class CosoLytMapBorder provides a Create and CreateRemote method to          
// create instances of the default interface IsoLytMapBorder exposed by              
// the CoClass soLytMapBorder. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CosoLytMapBorder = class
    class function Create: IsoLytMapBorder;
    class function CreateRemote(const MachineName: string): IsoLytMapBorder;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TsoLytMapBorder
// Help String      : 
// Default Interface: IsoLytMapBorder
// Def. Intf. DISP? : Yes
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TsoLytMapBorderProperties= class;
{$ENDIF}
  TsoLytMapBorder = class(TOleServer)
  private
    FIntf:        IsoLytMapBorder;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TsoLytMapBorderProperties;
    function      GetServerProperties: TsoLytMapBorderProperties;
{$ENDIF}
    function      GetDefaultInterface: IsoLytMapBorder;
  protected
    procedure InitServerData; override;
    function Get_InBorderPenWidth: Integer;
    procedure Set_InBorderPenWidth(Value: Integer);
    function Get_OutBorderPenWidth: Integer;
    procedure Set_OutBorderPenWidth(Value: Integer);
    function Get_OutLinePenWidth: Integer;
    procedure Set_OutLinePenWidth(Value: Integer);
    function Get_InLinePenWidth: Integer;
    procedure Set_InLinePenWidth(Value: Integer);
    function Get_OutLinePenColor: OLE_COLOR;
    procedure Set_OutLinePenColor(Value: OLE_COLOR);
    function Get_InLinePenColor: OLE_COLOR;
    procedure Set_InLinePenColor(Value: OLE_COLOR);
    function Get_OutBorderPenColor: OLE_COLOR;
    procedure Set_OutBorderPenColor(Value: OLE_COLOR);
    function Get_InBorderPenColor: OLE_COLOR;
    procedure Set_InBorderPenColor(Value: OLE_COLOR);
    function Get_InBorderDist: Integer;
    procedure Set_InBorderDist(Value: Integer);
    function Get_InLineDist: Integer;
    procedure Set_InLineDist(Value: Integer);
    function Get_OutLineDist: Integer;
    procedure Set_OutLineDist(Value: Integer);
    function Get_OutBorderDist: Integer;
    procedure Set_OutBorderDist(Value: Integer);
    function Get_FillStyle: seMapBorderFillStyle;
    procedure Set_FillStyle(Value: seMapBorderFillStyle);
    function Get_CornerFillStyle: seMapBorderCornerFillStyle;
    procedure Set_CornerFillStyle(Value: seMapBorderCornerFillStyle);
    function Get_FilledBmpName: WideString;
    procedure Set_FilledBmpName(const Value: WideString);
    function Get_CornerFilledBmpName: WideString;
    procedure Set_CornerFilledBmpName(const Value: WideString);
    function Get_FilledString: WideString;
    procedure Set_FilledString(const Value: WideString);
    function Get_CornerFilledString: WideString;
    procedure Set_CornerFilledString(const Value: WideString);
    function Get_FilledStringColor: OLE_COLOR;
    procedure Set_FilledStringColor(Value: OLE_COLOR);
    function Get_CornerFilledStringColor: OLE_COLOR;
    procedure Set_CornerFilledStringColor(Value: OLE_COLOR);
    function Get_RotateBase: seMapBorderRotateBaseType;
    procedure Set_RotateBase(Value: seMapBorderRotateBaseType);
    function Get_CornerRotateBase: seMapBorderRotateBaseType;
    procedure Set_CornerRotateBase(Value: seMapBorderRotateBaseType);
    function Get_FilledFont: IsoTextStyle;
    procedure Set_FilledFont(const Value: IsoTextStyle);
    function Get_CornerFilledFont: IsoTextStyle;
    procedure Set_CornerFilledFont(const Value: IsoTextStyle);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IsoLytMapBorder);
    procedure Disconnect; override;
    property DefaultInterface: IsoLytMapBorder read GetDefaultInterface;
    property InBorderPenWidth: Integer read Get_InBorderPenWidth write Set_InBorderPenWidth;
    property OutBorderPenWidth: Integer read Get_OutBorderPenWidth write Set_OutBorderPenWidth;
    property OutLinePenWidth: Integer read Get_OutLinePenWidth write Set_OutLinePenWidth;
    property InLinePenWidth: Integer read Get_InLinePenWidth write Set_InLinePenWidth;
    property OutLinePenColor: OLE_COLOR read Get_OutLinePenColor write Set_OutLinePenColor;
    property InLinePenColor: OLE_COLOR read Get_InLinePenColor write Set_InLinePenColor;
    property OutBorderPenColor: OLE_COLOR read Get_OutBorderPenColor write Set_OutBorderPenColor;
    property InBorderPenColor: OLE_COLOR read Get_InBorderPenColor write Set_InBorderPenColor;
    property InBorderDist: Integer read Get_InBorderDist write Set_InBorderDist;
    property InLineDist: Integer read Get_InLineDist write Set_InLineDist;
    property OutLineDist: Integer read Get_OutLineDist write Set_OutLineDist;
    property OutBorderDist: Integer read Get_OutBorderDist write Set_OutBorderDist;
    property FillStyle: seMapBorderFillStyle read Get_FillStyle write Set_FillStyle;
    property CornerFillStyle: seMapBorderCornerFillStyle read Get_CornerFillStyle write Set_CornerFillStyle;
    property FilledBmpName: WideString read Get_FilledBmpName write Set_FilledBmpName;
    property CornerFilledBmpName: WideString read Get_CornerFilledBmpName write Set_CornerFilledBmpName;
    property FilledString: WideString read Get_FilledString write Set_FilledString;
    property CornerFilledString: WideString read Get_CornerFilledString write Set_CornerFilledString;
    property FilledStringColor: OLE_COLOR read Get_FilledStringColor write Set_FilledStringColor;
    property CornerFilledStringColor: OLE_COLOR read Get_CornerFilledStringColor write Set_CornerFilledStringColor;
    property RotateBase: seMapBorderRotateBaseType read Get_RotateBase write Set_RotateBase;
    property CornerRotateBase: seMapBorderRotateBaseType read Get_CornerRotateBase write Set_CornerRotateBase;
    property FilledFont: IsoTextStyle read Get_FilledFont write Set_FilledFont;
    property CornerFilledFont: IsoTextStyle read Get_CornerFilledFont write Set_CornerFilledFont;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TsoLytMapBorderProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TsoLytMapBorder
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TsoLytMapBorderProperties = class(TPersistent)
  private
    FServer:    TsoLytMapBorder;
    function    GetDefaultInterface: IsoLytMapBorder;
    constructor Create(AServer: TsoLytMapBorder);
  protected
    function Get_InBorderPenWidth: Integer;
    procedure Set_InBorderPenWidth(Value: Integer);
    function Get_OutBorderPenWidth: Integer;
    procedure Set_OutBorderPenWidth(Value: Integer);
    function Get_OutLinePenWidth: Integer;
    procedure Set_OutLinePenWidth(Value: Integer);
    function Get_InLinePenWidth: Integer;
    procedure Set_InLinePenWidth(Value: Integer);
    function Get_OutLinePenColor: OLE_COLOR;
    procedure Set_OutLinePenColor(Value: OLE_COLOR);
    function Get_InLinePenColor: OLE_COLOR;
    procedure Set_InLinePenColor(Value: OLE_COLOR);
    function Get_OutBorderPenColor: OLE_COLOR;
    procedure Set_OutBorderPenColor(Value: OLE_COLOR);
    function Get_InBorderPenColor: OLE_COLOR;
    procedure Set_InBorderPenColor(Value: OLE_COLOR);
    function Get_InBorderDist: Integer;
    procedure Set_InBorderDist(Value: Integer);
    function Get_InLineDist: Integer;
    procedure Set_InLineDist(Value: Integer);
    function Get_OutLineDist: Integer;
    procedure Set_OutLineDist(Value: Integer);
    function Get_OutBorderDist: Integer;
    procedure Set_OutBorderDist(Value: Integer);
    function Get_FillStyle: seMapBorderFillStyle;
    procedure Set_FillStyle(Value: seMapBorderFillStyle);
    function Get_CornerFillStyle: seMapBorderCornerFillStyle;
    procedure Set_CornerFillStyle(Value: seMapBorderCornerFillStyle);
    function Get_FilledBmpName: WideString;
    procedure Set_FilledBmpName(const Value: WideString);
    function Get_CornerFilledBmpName: WideString;
    procedure Set_CornerFilledBmpName(const Value: WideString);
    function Get_FilledString: WideString;
    procedure Set_FilledString(const Value: WideString);
    function Get_CornerFilledString: WideString;
    procedure Set_CornerFilledString(const Value: WideString);
    function Get_FilledStringColor: OLE_COLOR;
    procedure Set_FilledStringColor(Value: OLE_COLOR);
    function Get_CornerFilledStringColor: OLE_COLOR;
    procedure Set_CornerFilledStringColor(Value: OLE_COLOR);
    function Get_RotateBase: seMapBorderRotateBaseType;
    procedure Set_RotateBase(Value: seMapBorderRotateBaseType);
    function Get_CornerRotateBase: seMapBorderRotateBaseType;
    procedure Set_CornerRotateBase(Value: seMapBorderRotateBaseType);
    function Get_FilledFont: IsoTextStyle;
    procedure Set_FilledFont(const Value: IsoTextStyle);
    function Get_CornerFilledFont: IsoTextStyle;
    procedure Set_CornerFilledFont(const Value: IsoTextStyle);
  public
    property DefaultInterface: IsoLytMapBorder read GetDefaultInterface;
  published
    property InBorderPenWidth: Integer read Get_InBorderPenWidth write Set_InBorderPenWidth;
    property OutBorderPenWidth: Integer read Get_OutBorderPenWidth write Set_OutBorderPenWi