ezdicomax.idl

用Delphi做的读取医学图片的控件及代码

[
  uuid(3A75EE8D-8E68-43FF-A90A-E4835B9A3DBD), 
  version(1.0), 
  helpstring("ezDICOMax Library"), 
  control
    
]
library ezDICOMax
{

  importlib("stdole2.tlb");

  [
    uuid(A2F74C5E-30A4-43BB-9BEA-A5D2EF4858D7), 
    version(1.0), 
    helpstring("Events interface for ezDICOMX Control")
  ]
   dispinterface IezDICOMXEvents
  {
    properties:
    methods:
    [
    id(0x000000C9)
    ]
    void OnActivate( void );
    [
    id(0x000000CA)
    ]
    void OnClick( void );
    [
    id(0x000000CB)
    ]
    void OnCreate( void );
    [
    id(0x000000CC)
    ]
    void OnDblClick( void );
    [
    id(0x000000CD)
    ]
    void OnDestroy( void );
    [
    id(0x000000CE)
    ]
    void OnDeactivate( void );
    [
    id(0x000000CF)
    ]
    void OnKeyPress([in, out] short * Key );
    [
    id(0x000000D0)
    ]
    void OnPaint( void );
    [
    id(0x000000D1), 
    helpstring("Button [1=left,2=right,3=middle]")
    ]
    HRESULT DCMmouseDown([in] long X, [in] long Y, [in] long Button, [in] long Shift );
    [
    id(0x000000D2)
    ]
    HRESULT DCMmouseMove([in] long X, [in] long Y, [in] long Button, [in] long Shift );
    [
    id(0x000000D3)
    ]
    HRESULT DCMmouseUp([in] long X, [in] long Y, [in] long Button, [in] long Shift );
    [
    id(0x000000D4)
    ]
    HRESULT DCMmouseMoveIntensity([in] long X, [in] long Y, [in] long Button, [in] long Shift, [in] long Intensity, [in] VARIANT_BOOL RGB );
  };

  [
    uuid(9A2C58CF-4A4B-48BF-B3C9-0756F0F2FA9B), 
    version(1.0), 
    helpstring("ezDICOMX Control"), 
    licensed, 
    control
  ]
  coclass ezDICOMX
  {
    [default] interface IezDICOMX;
    [default, source] dispinterface IezDICOMXEvents;
  };

  [
    uuid(93F8133B-9694-480A-9BEF-7299EFF913B0), 
    version(1.0)
  ]
  typedef enum tagTxActiveFormBorderStyle
  {
    [
    helpstring("afbNone")
    ]
    afbNone = 0, 
    [
    helpstring("afbSingle")
    ]
    afbSingle = 1, 
    [
    helpstring("afbSunken")
    ]
    afbSunken = 2, 
    [
    helpstring("afbRaised")
    ]
    afbRaised = 3
  } TxActiveFormBorderStyle;

  [
    uuid(DE0ED4D6-8260-4ED3-BC79-4596B638ED51), 
    version(1.0)
  ]
  typedef enum tagTxPrintScale
  {
    [
    helpstring("poNone")
    ]
    poNone = 0, 
    [
    helpstring("poProportional")
    ]
    poProportional = 1, 
    [
    helpstring("poPrintToFit")
    ]
    poPrintToFit = 2
  } TxPrintScale;

  [
    uuid(6EB19436-ABB6-411F-98FF-8D053EA2FE35), 
    version(1.0)
  ]
  typedef enum tagTxMouseButton
  {
    [
    helpstring("mbLeft")
    ]
    mbLeft = 0, 
    [
    helpstring("mbRight")
    ]
    mbRight = 1, 
    [
    helpstring("mbMiddle")
    ]
    mbMiddle = 2
  } TxMouseButton;

  
  typedef  struct tag IFontDisp ** PPUserType1 /*Warning: unable to validate structure name: */;

  [
    uuid(D7447852-AE72-47E4-B1FB-8F588176643F), 
    version(1.0), 
    helpstring("Dispatch interface for ezDICOMX Control"), 
    dual, 
    oleautomation
  ]
   interface IezDICOMX: IDispatch
  {
    [
    propget, 
    id(0x000000C9), 
    hidden
    ]
    HRESULT _stdcall Visible([out, retval] VARIANT_BOOL * Value );
    [
    propput, 
    id(0x000000C9), 
    hidden
    ]
    HRESULT _stdcall Visible([in] VARIANT_BOOL Value );
    [
    propget, 
    id(0x000000CA)
    ]
    HRESULT _stdcall AutoScroll([out, retval] VARIANT_BOOL * Value );
    [
    propput, 
    id(0x000000CA)
    ]
    HRESULT _stdcall AutoScroll([in] VARIANT_BOOL Value );
    [
    propget, 
    id(0x000000CB)
    ]
    HRESULT _stdcall AutoSize([out, retval] VARIANT_BOOL * Value );
    [
    propput, 
    id(0x000000CB)
    ]
    HRESULT _stdcall AutoSize([in] VARIANT_BOOL Value );
    [
    propget, 
    id(0x000000CC)
    ]
    HRESULT _stdcall AxBorderStyle([out, retval] TxActiveFormBorderStyle * Value /*Warning: unable to validate structure name: */ );
    [
    propput, 
    id(0x000000CC)
    ]
    HRESULT _stdcall AxBorderStyle([in] TxActiveFormBorderStyle Value /*Warning: unable to validate structure name: */ );
    [
    propget, 
    id(0xFFFFFDFA)
    ]
    HRESULT _stdcall Caption([out, retval] BSTR * Value );
    [
    propput, 
    id(0xFFFFFDFA)
    ]
    HRESULT _stdcall Caption([in] BSTR Value );
    [
    propget, 
    id(0xFFFFFE0B)
    ]
    HRESULT _stdcall Color([out, retval] OLE_COLOR * Value /*Warning: unable to validate structure name: */ );
    [
    propput, 
    id(0xFFFFFE0B)
    ]
    HRESULT _stdcall Color([in] OLE_COLOR Value /*Warning: unable to validate structure name: */ );
    [
    propget, 
    id(0xFFFFFE00)
    ]
    HRESULT _stdcall Font([out, retval] IFontDisp ** Value /*Warning: unable to validate structure name: */ );
    [
    propput, 
    id(0xFFFFFE00)
    ]
    HRESULT _stdcall Font([in] IFontDisp * Value /*Warning: unable to validate structure name: */ );
    [
    propputref, 
    id(0xFFFFFE00)
    ]
    HRESULT _stdcall Font([in] IFontDisp ** Value /*Warning: unable to validate structure name: */ );
    [
    propget, 
    id(0x000000CD)
    ]
    HRESULT _stdcall KeyPreview([out, retval] VARIANT_BOOL * Value );
    [
    propput, 
    id(0x000000CD)
    ]
    HRESULT _stdcall KeyPreview([in] VARIANT_BOOL Value );
    [
    propget, 
    id(0x000000CE)
    ]
    HRESULT _stdcall PixelsPerInch([out, retval] long * Value );
    [
    propput, 
    id(0x000000CE)
    ]
    HRESULT _stdcall PixelsPerInch([in] long Value );
    [
    propget, 
    id(0x000000CF)
    ]
    HRESULT _stdcall PrintScale([out, retval] TxPrintScale * Value /*Warning: unable to validate structure name: */ );
    [
    propput, 
    id(0x000000CF)
    ]
    HRESULT _stdcall PrintScale([in] TxPrintScale Value /*Warning: unable to validate structure name: */ );
    [
    propget, 
    id(0x000000D0)
    ]
    HRESULT _stdcall Scaled([out, retval] VARIANT_BOOL * Value );
    [
    propput, 
    id(0x000000D0)
    ]
    HRESULT _stdcall Scaled([in] VARIANT_BOOL Value );
    [
    propget, 
    id(0x000000D1), 
    hidden
    ]
    HRESULT _stdcall Active([out, retval] VARIANT_BOOL * Value );
    [
    propget, 
    id(0x000000D2), 
    hidden
    ]
    HRESULT _stdcall DropTarget([out, retval] VARIANT_BOOL * Value );
    [
    propput, 
    id(0x000000D2), 
    hidden
    ]
    HRESULT _stdcall DropTarget([in] VARIANT_BOOL Value );
    [
    propget, 
    id(0x000000D3), 
    hidden
    ]
    HRESULT _stdcall HelpFile([out, retval] BSTR * Value );
    [
    propput, 
    id(0x000000D3), 
    hidden
    ]
    HRESULT _stdcall HelpFile([in] BSTR Value );
    [
    propget, 
    id(0x000000D4), 
    hidden
    ]
    HRESULT _stdcall ScreenSnap([out, retval] VARIANT_BOOL * Value );
    [
    propput, 
    id(0x000000D4), 
    hidden
    ]
    HRESULT _stdcall ScreenSnap([in] VARIANT_BOOL Value );
    [
    propget, 
    id(0x000000D5), 
    hidden
    ]
    HRESULT _stdcall SnapBuffer([out, retval] long * Value );
    [
    propput, 
    id(0x000000D5), 
    hidden
    ]
    HRESULT _stdcall SnapBuffer([in] long Value );
    [
    propget, 
    id(0x000000D6), 
    hidden
    ]
    HRESULT _stdcall DoubleBuffered([out, retval] VARIANT_BOOL * Value );
    [
    propput, 
    id(0x000000D6), 
    hidden
    ]
    HRESULT _stdcall DoubleBuffered([in] VARIANT_BOOL Value );
    [
    propget, 
    id(0x000000D7), 
    hidden
    ]
    HRESULT _stdcall AlignDisabled([out, retval] VARIANT_BOOL * Value );
    [