mycontrol_tlb.h

C++Builder高级应用开发指南随书源码

// ************************************************************************ //
// 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.                                         
// ************************************************************************ //

// C++ TLBWRTR : $Revision:   1.134.1.41  $
// File generated on 2001-9-20 17:19:34 from Type Library described below.

// ************************************************************************ //
// Type Lib: C:\Samples\COM\ActiveX Control\MyControl.tlb (1)
// IID\LCID: {AB5E3C0B-6226-4EB4-B106-4DAC2C97CC79}\0
// Helpfile: 
// DepndLst: 
//   (1) v2.0 stdole, (E:\WINNT\System32\stdole2.tlb)
//   (2) v4.0 StdVCL, (E:\WINNT\System32\STDVCL40.DLL)
// ************************************************************************ //
#ifndef   __MyControl_TLB_h__
#define   __MyControl_TLB_h__

#pragma option push -b -w-inl

#include <utilcls.h>
#if !defined(__UTILCLS_H_VERSION) || (__UTILCLS_H_VERSION < 0x0500)
//
// The code generated by the TLIBIMP utility or the Import|TypeLibrary 
// and Import|ActiveX feature of C++Builder rely on specific versions of
// the header file UTILCLS.H found in the INCLUDE\VCL directory. If an 
// older version of the file is detected, you probably need an update/patch.
//
#error "This file requires a newer version of the header UTILCLS.H" \
       "You need to apply an update/patch to your copy of C++Builder"
#endif
#include <olectl.h>
#include <ocidl.h>
#if defined(USING_ATLVCL) || defined(USING_ATL)
#if !defined(__TLB_NO_EVENT_WRAPPERS)
#include <atl/atlmod.h>
#endif
#endif


// *********************************************************************//
// Forward reference of some VCL types (to avoid including STDVCL.HPP)    
// *********************************************************************//
namespace Stdvcl {class IStrings; class IStringsDisp;}
using namespace Stdvcl;
typedef TComInterface<IStrings> IStringsPtr;
typedef TComInterface<IStringsDisp> IStringsDispPtr;

namespace Mycontrol_tlb
{

// *********************************************************************//
// HelpString: MyControl Library
// Version:    1.0
// *********************************************************************//


// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:        
//   Type Libraries     : LIBID_xxxx                                      
//   CoClasses          : CLSID_xxxx                                      
//   DISPInterfaces     : DIID_xxxx                                       
//   Non-DISP interfaces: IID_xxxx                                        
// *********************************************************************//
extern __declspec (package) const GUID LIBID_MyControl;
extern __declspec (package) const GUID IID_IMyComponentX;
extern __declspec (package) const GUID DIID_IMyComponentXEvents;
extern __declspec (package) const GUID CLSID_MyComponentX;
extern __declspec (package) const GUID GUID_TxBevelCut;
extern __declspec (package) const GUID GUID_TxBevelKind;

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
enum      TxBevelCut;
enum      TxBevelKind;
interface DECLSPEC_UUID("{9ABE579E-3827-4C75-9D9E-E93477EDD34C}") IMyComponentX;
typedef TComInterface<IMyComponentX, &IID_IMyComponentX> IMyComponentXPtr;
interface DECLSPEC_UUID("{0E86EEC9-B455-4242-851D-E5350E35F61F}") IMyComponentXEvents;
typedef TComInterface<IMyComponentXEvents, &DIID_IMyComponentXEvents> IMyComponentXEventsPtr;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
//                                                                        
// The LIBID_OF_ macro(s) map a LIBID_OF_CoClassName to the GUID of this  
// TypeLibrary. It simplifies the updating of macros when CoClass name    
// change.                                                                
// *********************************************************************//
typedef IMyComponentX MyComponentX;
typedef IMyComponentXPtr MyComponentXPtr;

#define LIBID_OF_MyComponentX (&LIBID_MyControl)

// *********************************************************************//
// Declaration of Enumerations defined in Type Library                    
// *********************************************************************//
typedef enum TxBevelCut
{
  bvNone = 0, 
  bvLowered = 1, 
  bvRaised = 2, 
  bvSpace = 3
} TxBevelCut;

typedef enum TxBevelKind
{
  bkNone = 0, 
  bkTile = 1, 
  bkSoft = 2, 
  bkFlat = 3
} TxBevelKind;

// *********************************************************************//
// Interface: IMyComponentX
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {9ABE579E-3827-4C75-9D9E-E93477EDD34C}
// *********************************************************************//
interface IMyComponentX  : public IDispatch
{
public:
  virtual HRESULT STDMETHODCALLTYPE get_BevelInner(Mycontrol_tlb::TxBevelCut* Value/*[out,retval]*/) = 0; // [1]
  virtual HRESULT STDMETHODCALLTYPE set_BevelInner(Mycontrol_tlb::TxBevelCut Value/*[in]*/) = 0; // [1]
  virtual HRESULT STDMETHODCALLTYPE get_BevelOuter(Mycontrol_tlb::TxBevelCut* Value/*[out,retval]*/) = 0; // [2]
  virtual HRESULT STDMETHODCALLTYPE set_BevelOuter(Mycontrol_tlb::TxBevelCut Value/*[in]*/) = 0; // [2]
  virtual HRESULT STDMETHODCALLTYPE get_BevelKind(Mycontrol_tlb::TxBevelKind* Value/*[out,retval]*/) = 0; // [3]
  virtual HRESULT STDMETHODCALLTYPE set_BevelKind(Mycontrol_tlb::TxBevelKind Value/*[in]*/) = 0; // [3]
  virtual HRESULT STDMETHODCALLTYPE get_BevelWidth(long* Value/*[out,retval]*/) = 0; // [4]
  virtual HRESULT STDMETHODCALLTYPE set_BevelWidth(long Value/*[in]*/) = 0; // [4]
  virtual HRESULT STDMETHODCALLTYPE get_Count(long* Value/*[out,retval]*/) = 0; // [5]
  virtual HRESULT STDMETHODCALLTYPE set_Count(long Value/*[in]*/) = 0; // [5]
  virtual HRESULT STDMETHODCALLTYPE get_DoubleBuffered(TOLEBOOL* Value/*[out,retval]*/) = 0; // [6]
  virtual HRESULT STDMETHODCALLTYPE set_DoubleBuffered(TOLEBOOL Value/*[in]*/) = 0; // [6]
  virtual HRESULT STDMETHODCALLTYPE get_VisibleDockClientCount(long* Value/*[out,retval]*/) = 0; // [7]
  virtual HRESULT STDMETHODCALLTYPE DrawTextBiDiModeFlagsReadingOnly(long* Value/*[out,retval]*/) = 0; // [9]
  virtual HRESULT STDMETHODCALLTYPE get_Enabled(TOLEBOOL* Value/*[out,retval]*/) = 0; // [-514]
  virtual HRESULT STDMETHODCALLTYPE set_Enabled(TOLEBOOL Value/*[in]*/) = 0; // [-514]
  virtual HRESULT STDMETHODCALLTYPE InitiateAction(void) = 0; // [10]
  virtual HRESULT STDMETHODCALLTYPE IsRightToLeft(TOLEBOOL* Value/*[out,retval]*/) = 0; // [11]
  virtual HRESULT STDMETHODCALLTYPE UseRightToLeftReading(TOLEBOOL* Value/*[out,retval]*/) = 0; // [14]
  virtual HRESULT STDMETHODCALLTYPE UseRightToLeftScrollBar(TOLEBOOL* Value/*[out,retval]*/) = 0; // [15]
  virtual HRESULT STDMETHODCALLTYPE get_Visible(TOLEBOOL* Value/*[out,retval]*/) = 0; // [16]
  virtual HRESULT STDMETHODCALLTYPE set_Visible(TOLEBOOL Value/*[in]*/) = 0; // [16]
  virtual HRESULT STDMETHODCALLTYPE get_Cursor(short* Value/*[out,retval]*/) = 0; // [17]
  virtual HRESULT STDMETHODCALLTYPE set_Cursor(short Value/*[in]*/) = 0; // [17]
  virtual HRESULT STDMETHODCALLTYPE AboutBox(void) = 0; // [-552]

#if !defined(__TLB_NO_INTERFACE_WRAPPERS)

  Mycontrol_tlb::TxBevelCut __fastcall get_BevelInner(void)
  {
    Mycontrol_tlb::TxBevelCut Value;
    OLECHECK(this->get_BevelInner((Mycontrol_tlb::TxBevelCut*)&Value));
    return Value;
  }

  Mycontrol_tlb::TxBevelCut __fastcall get_BevelOuter(void)
  {
    Mycontrol_tlb::TxBevelCut Value;
    OLECHECK(this->get_BevelOuter((Mycontrol_tlb::TxBevelCut*)&Value));
    return Value;
  }

  Mycontrol_tlb::TxBevelKind __fastcall get_BevelKind(void)
  {
    Mycontrol_tlb::TxBevelKind Value;
    OLECHECK(this->get_BevelKind((Mycontrol_tlb::TxBevelKind*)&Value));
    return Value;
  }

  long __fastcall get_BevelWidth(void)
  {
    long Value;
    OLECHECK(this->get_BevelWidth((long*)&Value));
    return Value;
  }

  long __fastcall get_Count(void)
  {
    long Value;
    OLECHECK(this->get_Count((long*)&Value));
    return Value;
  }

  TOLEBOOL __fastcall get_DoubleBuffered(void)
  {
    TOLEBOOL Value;
    OLECHECK(this->get_DoubleBuffered((TOLEBOOL*)&Value));
    return Value;
  }

  long __fastcall get_VisibleDockClientCount(void)
  {
    long Value;
    OLECHECK(this->get_VisibleDockClientCount((long*)&Value));
    return Value;
  }

  long __fastcall DrawTextBiDiModeFlagsReadingOnly(void)
  {
    long Value;
    OLECHECK(this->DrawTextBiDiModeFlagsReadingOnly((long*)&Value));
    return Value;
  }

  TOLEBOOL __fastcall get_Enabled(void)
  {
    TOLEBOOL Value;
    OLECHECK(this->get_Enabled((TOLEBOOL*)&Value));
    return Value;
  }

  TOLEBOOL __fastcall IsRightToLeft(void)
  {
    TOLEBOOL Value;
    OLECHECK(this->IsRightToLeft((TOLEBOOL*)&Value));
    return Value;
  }

  TOLEBOOL __fastcall UseRightToLeftReading(void)
  {
    TOLEBOOL Value;
    OLECHECK(this->UseRightToLeftReading((TOLEBOOL*)&Value));
    return Value;
  }

  TOLEBOOL __fastcall UseRightToLeftScrollBar(void)
  {
    TOLEBOOL Value;
    OLECHECK(this->UseRightToLeftScrollBar((TOLEBOOL*)&Value));
    return Value;
  }

  TOLEBOOL __fastcall get_Visible(void)
  {
    TOLEBOOL Value;
    OLECHECK(this->get_Visible((TOLEBOOL*)&Value));
    return Value;
  }

  short __fastcall get_Cursor(void)
  {
    short Value;
    OLECHECK(this->get_Cursor((short*)&Value));
    return Value;
  }


  __property   Mycontrol_tlb::TxBevelCut BevelInner = {read = get_BevelInner, write = set_BevelInner};
  __property   Mycontrol_tlb::TxBevelCut BevelOuter = {read = get_BevelOuter, write = set_BevelOuter};
  __property   Mycontrol_tlb::TxBevelKind BevelKind = {read = get_BevelKind, write = set_BevelKind};
  __property   long            BevelWidth = {read = get_BevelWidth, write = set_BevelWidth};
  __property   long            Count = {read = get_Count, write = set_Count};
  __property   TOLEBOOL        DoubleBuffered = {read = get_DoubleBuffered, write = set_DoubleBuffered};
  __property   long            VisibleDockClientCount = {read = get_VisibleDockClientCount};
  __property   TOLEBOOL        Enabled = {read = get_Enabled, write = set_Enabled};
  __property   TOLEBOOL        Visible = {read = get_Visible, write = set_Visible};
  __property   short           Cursor = {read = get_Cursor, write = set_Cursor};

#endif //   __TLB_NO_INTERFACE_WRAPPERS

};

// *********************************************************************//
// Interface: IMyComponentXEvents
// Flags:     (0)
// GUID:      {0E86EEC9-B455-4242-851D-E5350E35F61F}
// *********************************************************************//
interface IMyComponentXEvents : public TDispWrapper<IDispatch>
{
  void __fastcall OnClick()
  {
    _TDispID _dispid(/* OnClick */ DISPID(1));
    OleProcedure(_dispid);
  }

  void __fastcall OnCountChanged(long* Count/*[in,out]*/)
  {
    _TDispID _dispid(/* OnCountChanged */ DISPID(2));
    TAutoArgs<1> _args;
    _args[1] = Count /*[VT_I4:1]*/;
    OleProcedure(_dispid, _args);
  }


};
#if !defined(__TLB_NO_INTERFACE_WRAPPERS)
// *********************************************************************//
// SmartIntf: TCOMIMyComponentX
// Interface: IMyComponentX
// *********************************************************************//
template <class T /* IMyComponentX */ >
class TCOMIMyComponentXT : public TComInterface<IMyComponentX>, public TComInterfaceBase<IUnknown>
{
public:
  TCOMIMyComponentXT() {}
  TCOMIMyComponentXT(IMyComponentX *intf, bool addRef = false) : TComInterface<IMyComponentX>(intf, addRef) {}
  TCOMIMyComponentXT(const TCOMIMyComponentXT& src) : TComInterface<IMyComponentX>(src) {}
  TCOMIMyComponentXT& operator=(const TCOMIMyComponentXT& src) { Bind(src, true); return *this;}

  HRESULT         __fastcall get_BevelInner(Mycontrol_tlb::TxBevelCut* Value/*[out,retval]*/);
  Mycontrol_tlb::TxBevelCut __fastcall get_BevelInner(void);
  HRESULT         __fastcall set_BevelInner(Mycontrol_tlb::TxBevelCut Value/*[in]*/);
  HRESULT         __fastcall get_BevelOuter(Mycontrol_tlb::TxBevelCut* Value/*[out,retval]*/);
  Mycontrol_tlb::TxBevelCut __fastcall get_BevelOuter(void);
  HRESULT         __fastcall set_BevelOuter(Mycontrol_tlb::TxBevelCut Value/*[in]*/);
  HRESULT         __fastcall get_BevelKind(Mycontrol_tlb::TxBevelKind* Value/*[out,retval]*/);
  Mycontrol_tlb::TxBevelKind __fastcall get_BevelKind(void);
  HRESULT         __fastcall set_BevelKind(Mycontrol_tlb::TxBevelKind Value/*[in]*/);
  HRESULT         __fastcall get_BevelWidth(long* Value/*[out,retval]*/);
  long            __fastcall get_BevelWidth(void);
  HRESULT         __fastcall set_BevelWidth(long Value/*[in]*/);
  HRESULT         __fastcall get_Count(long* Value/*[out,retval]*/);
  long            __fastcall get_Count(void);
  HRESULT         __fastcall set_Count(long Value/*[in]*/);
  HRESULT         __fastcall get_DoubleBuffered(TOLEBOOL* Value/*[out,retval]*/);
  TOLEBOOL        __fastcall get_DoubleBuffered(void);
  HRESULT         __fastcall set_DoubleBuffered(TOLEBOOL Value/*[in]*/);
  HRESULT         __fastcall get_VisibleDockClientCount(long* Value/*[out,retval]*/);
  long            __fastcall get_VisibleDockClientCount(void);
  HRESULT         __fastcall DrawTextBiDiModeFlagsReadingOnly(long* Value/*[out,retval]*/);
  long            __fastcall DrawTextBiDiModeFlagsReadingOnly(void);
  HRESULT         __fastcall get_Enabled(TOLEBOOL* Value/*[out,retval]*/);
  TOLEBOOL        __fastcall get_Enabled(void);
  HRESULT         __fastcall set_Enabled(TOLEBOOL Value/*[in]*/);
  HRESULT         __fastcall InitiateAction(void);
  HRESULT         __fastcall IsRightToLeft(TOLEBOOL* Value/*[out,retval]*/);
  TOLEBOOL        __fastcall IsRightToLeft(void);
  HRESULT         __fastcall UseRightToLeftReading(TOLEBOOL* Value/*[out,retval]*/);
  TOLEBOOL        __fastcall UseRightToLeftReading(void);
  HRESULT         __fastcall UseRightToLeftScrollBar(TOLEBOOL* Value/*[out,retval]*/);
  TOLEBOOL        __fastcall UseRightToLeftScrollBar(void);
  HRESULT         __fastcall get_Visible(TOLEBOOL* Value/*[out,retval]*/);
  TOLEBOOL        __fastcall get_Visible(void);
  HRESULT         __fastcall set_Visible(TOLEBOOL Value/*[in]*/);
  HRESULT         __fastcall get_Cursor(short* Value/*[out,retval]*/);
  short           __fastcall get_Cursor(void);
  HRESULT         __fastcall set_Cursor(short Value/*[in]*/);
  HRESULT         __fastcall AboutBox(void);

  __property   Mycontrol_tlb::TxBevelCut BevelInner = {read = get_BevelInner, write = set_BevelInner};
  __property   Mycontrol_tlb::TxBevelCut BevelOuter = {read = get_BevelOuter, write = set_BevelOuter};
  __property   Mycontrol_tlb::TxBevelKind BevelKind = {read = get_BevelKind, write = set_BevelKind};
  __property   long            BevelWidth = {read = get_BevelWidth, write = set_BevelWidth};
  __property   long            Count = {read = get_Count, write = set_Count};
  __property   TOLEBOOL        DoubleBuffered = {read = get_DoubleBuffered, write = set_DoubleBuffered};
  __property   long            VisibleDockClientCount = {read = get_VisibleDockClientCount};
  __property   TOLEBOOL        Enabled = {read = get_Enabled, write = set_Enabled};
  __property   TOLEBOOL        Visible = {read = get_Visible, write = set_Visible};
  __property   short           Cursor = {read = get_Cursor, write = set_Cursor};
};
typedef TCOMIMyComponentXT<IMyComponentX> TCOMIMyComponentX;

// *********************************************************************//
// DispIntf:  IMyComponentX
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {9ABE579E-3827-4C75-9D9E-E93477EDD34C}
// *********************************************************************//
template<class T>
class IMyComponentXDispT : public TAutoDriver<IMyComponentX>
{
public:
  IMyComponentXDispT(){}

  IMyComponentXDispT(IMyComponentX *pintf)
  {
    TAutoDriver<IMyComponentX>::Bind(pintf, false);
  }

  IMyComponentXDispT(IMyComponentXPtr pintf)
  {
    TAutoDriver<IMyComponentX>::Bind(pintf, true);
  }

  IMyComponentXDispT& operator=(IMyComponentX *pintf)
  {
    TAutoDriver<IMyComponentX>::Bind(pintf, false);
    return *this;
  }