Class

TContextItemCollection

Module

VERGENCECONTEXTORLib_TLB

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Inherits from

TOleServer

Declaration


  TContextItemCollection = class(TOleServer)
  private
    FIntf:        IContextItemCollection;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TContextItemCollectionProperties;
    function      GetServerProperties: TContextItemCollectionProperties;
{$ENDIF}
    function      GetDefaultInterface: IContextItemCollection;
  protected
    procedure InitServerData; override;
    function  Get__NewEnum: IUnknown;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IContextItemCollection);
    procedure Disconnect; override;
    function  Count: Integer;
    procedure Add(const aContextItem: IContextItem);
    procedure Remove(const contextItemName: WideString);
    procedure RemoveAll;
    function  Present(key: OleVariant): IContextItem;
    function  Item(key: OleVariant): IContextItem;
    property  DefaultInterface: IContextItemCollection read GetDefaultInterface;
    property _NewEnum: IUnknown read Get__NewEnum;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TContextItemCollectionProperties read GetServerProperties;
{$ENDIF}
  end;

Class Hierarchy


Class Fields

Name Type Scope Comments
FIntf Private -

Properties

Name Type Scope Comments
_NewEnum IUnknown Public -
DefaultInterface Public -

Constructors

Name Declaration Scope Comments
Create constructor Create(AOwner: TComponent); override; Public -

Destructors

Name Declaration Scope Comments
Destroy destructor Destroy; override; Public -

Methods

Name Declaration Scope Comments
Add procedure Add(const aContextItem: IContextItem); Public -
Connect procedure Connect; override; Public -
ConnectTo procedure ConnectTo(svrIntf: IContextItemCollection); Public -
Count function Count: Integer; Public -
Disconnect procedure Disconnect; override; Public -
Get__NewEnum function Get__NewEnum: IUnknown; Protected -
GetDefaultInterface function GetDefaultInterface: IContextItemCollection; Private -
InitServerData procedure InitServerData; override; Protected -
Item function Item(key: OleVariant): IContextItem; Public -
Present function Present(key: OleVariant): IContextItem; Public -
Remove procedure Remove(const contextItemName: WideString); Public -
RemoveAll procedure RemoveAll; Public -