ezdicomax_tlb.pas

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

    procedure Set_DCMshowHeader(Value: WordBool); safecall;
    function Get_DCMcopyImage2Clipboard: WordBool; safecall;
    function Get_DCMcopyHeader2Clipboard: WordBool; safecall;
    procedure Set_DCMunloadImages(Param1: Integer); safecall;
    function Get_DCMopenBtnEnabled: WordBool; safecall;
    procedure Set_DCMopenBtnEnabled(Value: WordBool); safecall;
    function Get_DCMvertScrollPosition: Integer; safecall;
    function Get_DCMhorzScrollPosition: Integer; safecall;
    function Get_DCMfilename: WideString; safecall;
    procedure Set_DCMfilename(const Value: WideString); safecall;
    function Get_DCMfilenameSilentErrors(const Filename: WideString): Integer; safecall;
    function Get_DCMwriteHeader2String(const DICOMinput: WideString): WideString; safecall;
    property Visible: WordBool read Get_Visible write Set_Visible;
    property AutoScroll: WordBool read Get_AutoScroll write Set_AutoScroll;
    property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
    property AxBorderStyle: TxActiveFormBorderStyle read Get_AxBorderStyle write Set_AxBorderStyle;
    property Caption: WideString read Get_Caption write Set_Caption;
    property Color: OLE_COLOR read Get_Color write Set_Color;
    property Font: IFontDisp read Get_Font write Set_Font;
    property KeyPreview: WordBool read Get_KeyPreview write Set_KeyPreview;
    property PixelsPerInch: Integer read Get_PixelsPerInch write Set_PixelsPerInch;
    property PrintScale: TxPrintScale read Get_PrintScale write Set_PrintScale;
    property Scaled: WordBool read Get_Scaled write Set_Scaled;
    property Active: WordBool read Get_Active;
    property DropTarget: WordBool read Get_DropTarget write Set_DropTarget;
    property HelpFile: WideString read Get_HelpFile write Set_HelpFile;
    property ScreenSnap: WordBool read Get_ScreenSnap write Set_ScreenSnap;
    property SnapBuffer: Integer read Get_SnapBuffer write Set_SnapBuffer;
    property DoubleBuffered: WordBool read Get_DoubleBuffered write Set_DoubleBuffered;
    property AlignDisabled: WordBool read Get_AlignDisabled;
    property VisibleDockClientCount: Integer read Get_VisibleDockClientCount;
    property Enabled: WordBool read Get_Enabled write Set_Enabled;
    property DCMslice: Integer read Get_DCMslice write Set_DCMslice;
    property DCMzoomPct: Integer read Get_DCMzoomPct write Set_DCMzoomPct;
    property DCMsmoothOn: WordBool read Get_DCMsmoothOn write Set_DCMsmoothOn;
    property DCMfilenameOld: WideString read Get_DCMfilenameOld write Set_DCMfilenameOld;
    property DCMwinCenter: Double read Get_DCMwinCenter write Set_DCMwinCenter;
    property DCMwinWidth: Double read Get_DCMwinWidth write Set_DCMwinWidth;
    property DCMoverlayOn: WordBool read Get_DCMoverlayOn write Set_DCMoverlayOn;
    property DCMimageWid: Integer read Get_DCMimageWid;
    property DCMimageHt: Integer read Get_DCMimageHt;
    property DCMimageSlices: Integer read Get_DCMimageSlices;
    property DCMsliceMinBright: Integer read Get_DCMsliceMinBright;
    property DCMsliceMaxBright: Integer read Get_DCMsliceMaxBright;
    property DCMmmHt: Double read Get_DCMmmHt;
    property DCMmmWid: Double read Get_DCMmmWid;
    property DCMmmSlices: Double read Get_DCMmmSlices;
    property DCMslope: Double read Get_DCMslope;
    property DCMintercept: Double read Get_DCMintercept;
    property DCMrecWinCenter: Integer read Get_DCMrecWinCenter;
    property DCMrecWinWidth: Integer read Get_DCMrecWinWidth;
    property DCMoverlayColor: Integer read Get_DCMoverlayColor write Set_DCMoverlayColor;
    property DCMmosaicX[Row: Integer; Col: Integer; FirstSlice: Integer]: Integer write Set_DCMmosaicX;
    property DCMmosaicFirstSlice: Integer read Get_DCMmosaicFirstSlice write Set_DCMmosaicFirstSlice;
    property DCMmosaicLastSlice: Integer read Get_DCMmosaicLastSlice write Set_DCMmosaicLastSlice;
    property DCMcolorScheme: Integer read Get_DCMcolorScheme write Set_DCMcolorScheme;
    property DCMtool: Integer read Get_DCMtool write Set_DCMtool;
    property DCMtoolbar: WordBool read Get_DCMtoolbar write Set_DCMtoolbar;
    property DCMlineMM: Double read Get_DCMlineMM;
    property DCMbestFitZoom: WordBool read Get_DCMbestFitZoom write Set_DCMbestFitZoom;
    property DCMwriteHeader2Text[const DICOMinput: WideString]: WideString write Set_DCMwriteHeader2Text;
    property DCMloadMultipleFiles: WordBool read Get_DCMloadMultipleFiles write Set_DCMloadMultipleFiles;
    property DCMuseRecommendedContrast: WordBool read Get_DCMuseRecommendedContrast write Set_DCMuseRecommendedContrast;
    property DCMversionInfo: WideString read Get_DCMversionInfo;
    property DCMmosaicRows: Integer read Get_DCMmosaicRows write Set_DCMmosaicRows;
    property DCMmosaicCols: Integer read Get_DCMmosaicCols write Set_DCMmosaicCols;
    property DCMsaveToFile: WideString write Set_DCMsaveToFile;
    property DCMshowHeader: WordBool read Get_DCMshowHeader write Set_DCMshowHeader;
    property DCMcopyImage2Clipboard: WordBool read Get_DCMcopyImage2Clipboard;
    property DCMcopyHeader2Clipboard: WordBool read Get_DCMcopyHeader2Clipboard;
    property DCMunloadImages: Integer write Set_DCMunloadImages;
    property DCMopenBtnEnabled: WordBool read Get_DCMopenBtnEnabled write Set_DCMopenBtnEnabled;
    property DCMvertScrollPosition: Integer read Get_DCMvertScrollPosition;
    property DCMhorzScrollPosition: Integer read Get_DCMhorzScrollPosition;
    property DCMfilename: WideString read Get_DCMfilename write Set_DCMfilename;
    property DCMfilenameSilentErrors[const Filename: WideString]: Integer read Get_DCMfilenameSilentErrors;
    property DCMwriteHeader2String[const DICOMinput: WideString]: WideString read Get_DCMwriteHeader2String;
  end;

// *********************************************************************//
// DispIntf:  IezDICOMXDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {D7447852-AE72-47E4-B1FB-8F588176643F}
// *********************************************************************//
  IezDICOMXDisp = dispinterface
    ['{D7447852-AE72-47E4-B1FB-8F588176643F}']
    property Visible: WordBool dispid 201;
    property AutoScroll: WordBool dispid 202;
    property AutoSize: WordBool dispid 203;
    property AxBorderStyle: TxActiveFormBorderStyle dispid 204;
    property Caption: WideString dispid -518;
    property Color: OLE_COLOR dispid -501;
    property Font: IFontDisp dispid -512;
    property KeyPreview: WordBool dispid 205;
    property PixelsPerInch: Integer dispid 206;
    property PrintScale: TxPrintScale dispid 207;
    property Scaled: WordBool dispid 208;
    property Active: WordBool readonly dispid 209;
    property DropTarget: WordBool dispid 210;
    property HelpFile: WideString dispid 211;
    property ScreenSnap: WordBool dispid 212;
    property SnapBuffer: Integer dispid 213;
    property DoubleBuffered: WordBool dispid 214;
    property AlignDisabled: WordBool readonly dispid 215;
    property VisibleDockClientCount: Integer readonly dispid 216;
    property Enabled: WordBool dispid -514;
    property DCMslice: Integer dispid 217;
    property DCMzoomPct: Integer dispid 218;
    property DCMsmoothOn: WordBool dispid 219;
    property DCMfilenameOld: WideString dispid 220;
    property DCMwinCenter: Double dispid 221;
    property DCMwinWidth: Double dispid 222;
    property DCMoverlayOn: WordBool dispid 223;
    property DCMimageWid: Integer readonly dispid 224;
    property DCMimageHt: Integer readonly dispid 225;
    property DCMimageSlices: Integer readonly dispid 226;
    property DCMsliceMinBright: Integer readonly dispid 227;
    property DCMsliceMaxBright: Integer readonly dispid 228;
    property DCMmmHt: Double readonly dispid 229;
    property DCMmmWid: Double readonly dispid 230;
    property DCMmmSlices: Double readonly dispid 231;
    property DCMslope: Double readonly dispid 232;
    property DCMintercept: Double readonly dispid 233;
    property DCMrecWinCenter: Integer readonly dispid 234;
    property DCMrecWinWidth: Integer readonly dispid 235;
    property DCMoverlayColor: Integer dispid 236;
    property DCMmosaicX[Row: Integer; Col: Integer; FirstSlice: Integer]: Integer writeonly dispid 237;
    property DCMmosaicFirstSlice: Integer dispid 238;
    property DCMmosaicLastSlice: Integer dispid 239;
    property DCMcolorScheme: Integer dispid 240;
    property DCMtool: Integer dispid 241;
    property DCMtoolbar: WordBool dispid 242;
    property DCMlineMM: Double readonly dispid 243;
    property DCMbestFitZoom: WordBool dispid 244;
    property DCMwriteHeader2Text[const DICOMinput: WideString]: WideString writeonly dispid 245;
    property DCMloadMultipleFiles: WordBool dispid 246;
    property DCMuseRecommendedContrast: WordBool dispid 247;
    property DCMversionInfo: WideString readonly dispid 248;
    property DCMmosaicRows: Integer dispid 249;
    property DCMmosaicCols: Integer dispid 250;
    property DCMsaveToFile: WideString writeonly dispid 251;
    property DCMshowHeader: WordBool dispid 252;
    property DCMcopyImage2Clipboard: WordBool readonly dispid 253;
    property DCMcopyHeader2Clipboard: WordBool readonly dispid 254;
    property DCMunloadImages: Integer writeonly dispid 255;
    property DCMopenBtnEnabled: WordBool dispid 256;
    property DCMvertScrollPosition: Integer readonly dispid 257;
    property DCMhorzScrollPosition: Integer readonly dispid 258;
    property DCMfilename: WideString dispid 259;
    property DCMfilenameSilentErrors[const Filename: WideString]: Integer readonly dispid 260;
    property DCMwriteHeader2String[const DICOMinput: WideString]: WideString readonly dispid 261;
  end;

// *********************************************************************//
// DispIntf:  IezDICOMXEvents
// Flags:     (4096) Dispatchable
// GUID:      {A2F74C5E-30A4-43BB-9BEA-A5D2EF4858D7}
// *********************************************************************//
  IezDICOMXEvents = dispinterface
    ['{A2F74C5E-30A4-43BB-9BEA-A5D2EF4858D7}']
    procedure OnActivate; dispid 201;
    procedure OnClick; dispid 202;
    procedure OnCreate; dispid 203;
    procedure OnDblClick; dispid 204;
    procedure OnDestroy; dispid 205;
    procedure OnDeactivate; dispid 206;
    procedure OnKeyPress(var Key: Smallint); dispid 207;
    procedure OnPaint; dispid 208;
    procedure DCMmouseDown(X: Integer; Y: Integer; Button: Integer; Shift: Integer); dispid 209;
    procedure DCMmouseMove(X: Integer; Y: Integer; Button: Integer; Shift: Integer); dispid 210;
    procedure DCMmouseUp(X: Integer; Y: Integer; Button: Integer; Shift: Integer); dispid 211;
    procedure DCMmouseMoveIntensity(X: Integer; Y: Integer; Button: Integer; Shift: Integer; 
                                    Intensity: Integer; RGB: WordBool); dispid 212;
  end;


// *********************************************************************//
// OLE Control Proxy class declaration
// Control Name     : TezDICOMX
// Help String      : ezDICOMX Control
// Default Interface: IezDICOMX
// Def. Intf. DISP? : No
// Event   Interface: IezDICOMXEvents
// TypeFlags        : (38) CanCreate Licensed Control
// *********************************************************************//
  TezDICOMXOnKeyPress = procedure(ASender: TObject; var Key: Smallint) of object;
  TezDICOMXDCMmouseDown = procedure(ASender: TObject; X: Integer; Y: Integer; Button: Integer; 
                                                      Shift: Integer) of object;
  TezDICOMXDCMmouseMove = procedure(ASender: TObject; X: Integer; Y: Integer; Button: Integer; 
                                                      Shift: Integer) of object;
  TezDICOMXDCMmouseUp = procedure(ASender: TObject; X: Integer; Y: Integer; Button: Integer; 
                                                    Shift: Integer) of object;
  TezDICOMXDCMmouseMoveIntensity = procedure(ASender: TObject; X: Integer; Y: Integer; 
                                                               Button: Integer; Shift: Integer; 
                                                               Intensity: Integer; RGB: WordBool) of object;

  TezDICOMX = class(TOleControl)
  private
    FOnActivate: TNotifyEvent;
    FOnClick: TNotifyEvent;
    FOnCreate: TNotifyEvent;