superlegendlib_tlb.pas

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

unit SuperLegendLib_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 : 1.2
// File generated on 2005-2-25 10:06:35 from Type Library described below.

// ************************************************************************  //
// Type Lib: D:\Program Files\SuperMap\5.0.2\SuperLegend.ocx (1)
// LIBID: {02BEE3A6-4264-45B0-93C8-76FBBA329150}
// LCID: 0
// Helpfile: d:\Program Files\SuperMap\SuperMap Objects 5.0\help\SmProRef.chm
// HelpString: SuperMap Objects 5.0 Legend Control
// DepndLst: 
//   (1) v2.0 stdole, (C:\WINDOWS\system32\STDOLE2.TLB)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface

uses Windows, ActiveX, Classes, Graphics, OleCtrls, OleServer, 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
  SuperLegendLibMajorVersion = 5;
  SuperLegendLibMinorVersion = 0;

  LIBID_SuperLegendLib: TGUID = '{02BEE3A6-4264-45B0-93C8-76FBBA329150}';

  DIID__DSuperLegend: TGUID = '{0EAF6E68-2BD5-4207-8139-A8DA3A65BA29}';
  DIID__DSuperLegendEvents: TGUID = '{580F9EDE-363F-4F7E-B446-AB5164539352}';
  CLASS_SuperLegend: TGUID = '{AA66E1F1-5441-4596-A712-DF82705B3466}';
  DIID__DSuperLegendList: TGUID = '{167B0948-33AF-4317-B92F-C0B0B6AEEF56}';
  DIID__DSuperLegendListEvents: TGUID = '{08B4A4E0-9E5F-4ED7-8A7A-D0013F410E56}';
  CLASS_SuperLegendList: TGUID = '{13B8BE52-F47B-4146-80E6-DFE89729A37A}';
  DIID__DSuperLegendComboBox: TGUID = '{A01BBA1A-62FF-47A0-A17B-ABA19387DEA9}';
  DIID__DSuperLegendComboBoxEvents: TGUID = '{9D4E30C4-B19F-4FAD-8441-BF65EAD5C860}';
  CLASS_SuperLegendComboBox: TGUID = '{01691B01-7B34-43BD-A547-3D6FA7455126}';
type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  _DSuperLegend = dispinterface;
  _DSuperLegendEvents = dispinterface;
  _DSuperLegendList = dispinterface;
  _DSuperLegendListEvents = dispinterface;
  _DSuperLegendComboBox = dispinterface;
  _DSuperLegendComboBoxEvents = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  SuperLegend = _DSuperLegend;
  SuperLegendList = _DSuperLegendList;
  SuperLegendComboBox = _DSuperLegendComboBox;


// *********************************************************************//
// DispIntf:  _DSuperLegend
// Flags:     (4112) Hidden Dispatchable
// GUID:      {0EAF6E68-2BD5-4207-8139-A8DA3A65BA29}
// *********************************************************************//
  _DSuperLegend = dispinterface
    ['{0EAF6E68-2BD5-4207-8139-A8DA3A65BA29}']
    procedure AboutBox; dispid -552;
    procedure Expand; dispid 10;
    procedure Disconnect; dispid 9;
    function Connect(const objSuperMapCtrl: IDispatch): WordBool; dispid 8;
    procedure Refresh; dispid -550;
    function Clear: WordBool; dispid 7;
    property HasButtons: WordBool dispid 3;
    property Font: IFontDisp dispid -512;
    property HasLines: WordBool dispid 4;
    property EditLabels: WordBool dispid 2;
    property ItemDragAndDrop: WordBool dispid 1;
    property ReadyState: Integer readonly dispid -525;
    property Appearance: Smallint dispid -520;
    property PopupMenu: WordBool dispid 6;
    property SingleExpand: WordBool dispid 5;
    property ForeColor: OLE_COLOR dispid -513;
    property BackColor: OLE_COLOR dispid -501;
  end;

// *********************************************************************//
// DispIntf:  _DSuperLegendEvents
// Flags:     (4096) Dispatchable
// GUID:      {580F9EDE-363F-4F7E-B446-AB5164539352}
// *********************************************************************//
  _DSuperLegendEvents = dispinterface
    ['{580F9EDE-363F-4F7E-B446-AB5164539352}']
    procedure ReadyStateChange; dispid -609;
    procedure Modified; dispid 1;
    procedure EditableLayerChanged(nIndex: Integer); dispid 2;
  end;

// *********************************************************************//
// DispIntf:  _DSuperLegendList
// Flags:     (4112) Hidden Dispatchable
// GUID:      {167B0948-33AF-4317-B92F-C0B0B6AEEF56}
// *********************************************************************//
  _DSuperLegendList = dispinterface
    ['{167B0948-33AF-4317-B92F-C0B0B6AEEF56}']
    procedure AboutBox; dispid -552;
    procedure Refresh; dispid -550;
    function Disconnect: WordBool; dispid 5;
    function Connect(const objSuperMapCtrl: IDispatch): WordBool; dispid 4;
    property Font: IFontDisp dispid 2;
    property BackColor: OLE_COLOR dispid 1;
    property Appearance: Smallint dispid -520;
    property ForeColor: OLE_COLOR dispid 3;
    property ReadyState: Integer readonly dispid -525;
  end;

// *********************************************************************//
// DispIntf:  _DSuperLegendListEvents
// Flags:     (4096) Dispatchable
// GUID:      {08B4A4E0-9E5F-4ED7-8A7A-D0013F410E56}
// *********************************************************************//
  _DSuperLegendListEvents = dispinterface
    ['{08B4A4E0-9E5F-4ED7-8A7A-D0013F410E56}']
    procedure ItemSelected(const objSelectedLyrNames: IDispatch); dispid 1;
    procedure DblClick; dispid -601;
    procedure MouseDown(Button: Smallint; Shift: Smallint; x: OLE_XPOS_PIXELS; y: OLE_YPOS_PIXELS); dispid -605;
    procedure MouseMove(Button: Smallint; Shift: Smallint; x: OLE_XPOS_PIXELS; y: OLE_YPOS_PIXELS); dispid -606;
    procedure MouseUp(Button: Smallint; Shift: Smallint; x: OLE_XPOS_PIXELS; y: OLE_YPOS_PIXELS); dispid -607;
    procedure Click; dispid -600;
  end;

// *********************************************************************//
// DispIntf:  _DSuperLegendComboBox
// Flags:     (4112) Hidden Dispatchable
// GUID:      {A01BBA1A-62FF-47A0-A17B-ABA19387DEA9}
// *********************************************************************//
  _DSuperLegendComboBox = dispinterface
    ['{A01BBA1A-62FF-47A0-A17B-ABA19387DEA9}']
    procedure AboutBox; dispid -552;
    procedure Refresh; dispid -550;
    function Disconnect: WordBool; dispid 4;
    function Connect(const objSupermap: IDispatch): WordBool; dispid 3;
    property BackColor: OLE_COLOR dispid 1;
    property ReadyState: Integer readonly dispid -525;
    property Appearance: Smallint dispid -520;
    property ForeColor: OLE_COLOR dispid 2;
    property Font: IFontDisp dispid -512;
  end;

// *********************************************************************//
// DispIntf:  _DSuperLegendComboBoxEvents
// Flags:     (4096) Dispatchable
// GUID:      {9D4E30C4-B19F-4FAD-8441-BF65EAD5C860}
// *********************************************************************//
  _DSuperLegendComboBoxEvents = dispinterface
    ['{9D4E30C4-B19F-4FAD-8441-BF65EAD5C860}']
  end;


// *********************************************************************//
// OLE Control Proxy class declaration
// Control Name     : TSuperLegend
// Help String      : SuperLegend Control
// Default Interface: _DSuperLegend
// Def. Intf. DISP? : Yes
// Event   Interface: _DSuperLegendEvents
// TypeFlags        : (38) CanCreate Licensed Control
// *********************************************************************//
  TSuperLegendEditableLayerChanged = procedure(ASender: TObject; nIndex: Integer) of object;

  TSuperLegend = class(TOleControl)
  private
    FOnReadyStateChange: TNotifyEvent;
    FOnModified: TNotifyEvent;
    FOnEditableLayerChanged: TSuperLegendEditableLayerChanged;
    FIntf: _DSuperLegend;
    function  GetControlInterface: _DSuperLegend;
  protected
    procedure CreateControl;
    procedure InitControlData; override;
  public
    procedure AboutBox;
    procedure Expand;
    procedure Disconnect;
    function Connect(const objSuperMapCtrl: IDispatch): WordBool;
    procedure Refresh;
    function Clear: WordBool;
    property  ControlInterface: _DSuperLegend read GetControlInterface;
    property  DefaultInterface: _DSuperLegend read GetControlInterface;
    property ReadyState: Integer index -525 read GetIntegerProp;
  published
    property Anchors;
    property  ParentColor;
    property  ParentFont;
    property  TabStop;
    property  Align;
    property  DragCursor;
    property  DragMode;
    property  ParentShowHint;
    property  ShowHint;
    property  TabOrder;
    property  Visible;
    property  OnDragDrop;
    property  OnDragOver;
    property  OnEndDrag;
    property  OnEnter;
    property  OnExit;
    property  OnStartDrag;
    property HasButtons: WordBool index 3 read GetWordBoolProp write SetWordBoolProp stored False;
    property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
    property HasLines: WordBool index 4 read GetWordBoolProp write SetWordBoolProp stored False;
    property EditLabels: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
    property ItemDragAndDrop: WordBool index 1 read GetWordBoolProp write SetWordBoolProp stored False;
    property Appearance: Smallint index -520 read GetSmallintProp write SetSmallintProp stored False;
    property PopupMenu: WordBool index 6 read GetWordBoolProp write SetWordBoolProp stored False;
    property SingleExpand: WordBool index 5 read GetWordBoolProp write SetWordBoolProp stored False;
    property ForeColor: TColor index -513 read GetTColorProp write SetTColorProp stored False;
    property BackColor: TColor index -501 read GetTColorProp write SetTColorProp stored False;
    property OnReadyStateChange: TNotifyEvent read FOnReadyStateChange write FOnReadyStateChange;
    property OnModified: TNotifyEvent read FOnModified write FOnModified;
    property OnEditableLayerChanged: TSuperLegendEditableLayerChanged read FOnEditableLayerChanged write FOnEditableLayerChanged;
  end;


// *********************************************************************//
// OLE Control Proxy class declaration
// Control Name     : TSuperLegendList
// Help String      : SuperLegendList Control
// Default Interface: _DSuperLegendList
// Def. Intf. DISP? : Yes
// Event   Interface: _DSuperLegendListEvents
// TypeFlags        : (34) CanCreate Control
// *********************************************************************//
  TSuperLegendListItemSelected = procedure(ASender: TObject; const objSelectedLyrNames: IDispatch) of object;

  TSuperLegendList = class(TOleControl)
  private
    FOnItemSelected: TSuperLegendListItemSelected;
    FIntf: _DSuperLegendList;
    function  GetControlInterface: _DSuperLegendList;
  protected
    procedure CreateControl;
    procedure InitControlData; override;
  public
    procedure AboutBox;
    procedure Refresh;
    function Disconnect: WordBool;
    function Connect(const objSuperMapCtrl: IDispatch): WordBool;
    property  ControlInterface: _DSuperLegendList read GetControlInterface;
    property  DefaultInterface: _DSuperLegendList read GetControlInterface;
    property ReadyState: Integer index -525 read GetIntegerProp;
  published
    property Anchors;
    property  TabStop;
    property  Align;
    property  DragCursor;
    property  DragMode;