ezdicomimpl1.dfm

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

object ezDICOMX: TezDICOMX
  Left = 476
  Top = 132
  Width = 511
  Height = 325
  Caption = 'ezDICOMX'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = ActiveFormCreate
  OnDestroy = ActiveFormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 503
    Height = 24
    AutoSize = True
    ButtonWidth = 25
    Caption = 'ToolBar1'
    EdgeBorders = []
    TabOrder = 0
    object OpenBtn: TSpeedButton
      Left = 0
      Top = 2
      Width = 25
      Height = 22
      Hint = 'Open DICOM image'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5555555555555555555555555555555555555555555555555555555555555555
        555555555555555555555555555555555555555FFFFFFFFFF555550000000000
        55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
        B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
        000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
        555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
        55555575FFF75555555555700007555555555557777555555555555555555555
        5555555555555555555555555555555555555555555555555555}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = OpenBtnClick
    end
    object ClipBtn: TSpeedButton
      Left = 25
      Top = 2
      Width = 25
      Height = 22
      Hint = 'Copy image to clipboard'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
        FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
        FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
        007077777777777777770FFFFFFFF00077B07F33333337FFFF770F877788F000
        7BB07F3FF3FFF77FF7770F770077F00090077F77377737777F770F870078F039
        99337F3FFFF3F7F777FF0F887788F09999937F7777373777777F0FFFFFFFF999
        99997F3FF3FFF77777770FFFF000003999337F773777773777F30FFFF0FF0339
        99337F3FF7F3733777F30FFFF0F0337999337F7737F73F7777330FFFF0039999
        93337FFFF7737777733300000033333333337777773333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = ClipBtnClick
    end
    object PreviousBtn: TSpeedButton
      Left = 50
      Top = 2
      Width = 25
      Height = 22
      Hint = 'Previous slice'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
        00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
        70E337F33333333337F3E0F33333333370E337F3333F3FF337F3E0F333030033
        70E337F3337F77F337F3E0F33003003370E337F3377F77F337F3E0F300030033
        70E337F3777F77F337F3E0F33003003370E337F3377F77F337F3E0F333030033
        70E337F33373773337F3E0F33333333370E337F33333333337F3E0F333333333
        70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
        00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = PreviousBtnClick
    end
    object NextBtn: TSpeedButton
      Left = 75
      Top = 2
      Width = 25
      Height = 22
      Hint = 'Next slice'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
        00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
        70E337F33333333337F3E0F33333333370E337F333FF3F3337F3E0F330030333
        70E337F3377F7FF337F3E0F33003003370E337F3377F77FF37F3E0F330030003
        70E337F3377F777337F3E0F33003003370E337F3377F773337F3E0F330030333
        70E337F33773733337F3E0F33333333370E337F33333333337F3E0F333333333
        70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
        00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = NextBtnClick
    end
    object SmoothBtn: TSpeedButton
      Left = 100
      Top = 2
      Width = 25
      Height = 22
      Hint = 'Toggle smoothing'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000C40E0000C40E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333083333
        3333333993008333333333999338083333333393333380833333999993333808
        3333399933333380833333933333333808330033333333330033003333333333
        3333330033333333393333003333333399933333003333399999333300333333
        3933333333003339993333333300333993333333333333333333}
      ParentShowHint = False
      ShowHint = True
      OnClick = SmoothBtnClick
    end
    object HdrBtn: TSpeedButton
      Left = 125
      Top = 2
      Width = 25
      Height = 22
      Hint = 'Toggle Header'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000C40E0000C40E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330000000
        0000333990777777FFF03399907777777FF03393307800888770999990780000
        8870399930F800008870339330FF7788877000000000000777700FFF8FFFFF00
        000008888888880339330FFF8FFFFF03999308888888880999990FFF8FFFFF03
        393308888888880999330FFF8FFFFF0993330000000000033333}
      ParentShowHint = False
      ShowHint = True
      OnClick = HdrBtnClick
    end
    object MosaicBtn: TSpeedButton
      Left = 150
      Top = 2
      Width = 25
      Height = 22
      Hint = 'Toggle mosaic'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000C40E0000C40E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333300000
        000033399990FFFFFFF033999990FFFFFFF033933330FFFFFFF099999330FFFF
        FFF039993330FFFFFFF033933330FFFFFFF0000000000FFFFFF00FFF0FFF0000
        00000FFF0FFF033339330FFF0FFF0333999300000000033999990FFF0FFF0333
        39330FFF0FFF099999330FFF0FFF099993330000000003333333}
      ParentShowHint = False
      ShowHint = True
      OnClick = MosaicBtnClick
    end
    object AboutBtn: TSpeedButton
      Left = 175
      Top = 2
      Width = 25
      Height = 22
      Hint = 'About ezDICOM ActiveX component'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
        33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
        FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
        FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
        FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
        FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
        FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
        3333333773FFFF77333333333FBFBF3333333333377777333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = AboutBtnClick
    end
    object ToolButton1: TToolButton
      Left = 200
      Top = 2
      Width = 8
      Caption = 'ToolButton1'
      Style = tbsSeparator
    end
    object ColorDrop: TComboBox
      Left = 208
      Top = 2
      Width = 90
      Height = 22
      Hint = 'Select color scheme'
      Style = csOwnerDrawFixed
      ItemHeight = 16
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnChange = ColorDropChange
      Items.Strings = (
        'B & W'
        'Hot'
        'B & W [Inverted]'
        'Hot [Inverted]')
    end
    object ToolButton3: TToolButton
      Left = 298
      Top = 2
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 1
      Style = tbsSeparator
    end
    object ZoomDrop: TComboBox
      Left = 306
      Top = 2
      Width = 81
      Height = 22
      Hint = 'Select zoom'
      Style = csOwnerDrawFixed
      ItemHeight = 16
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnChange = ZoomDropChange
      Items.Strings = (
        'Best fit'
        '50%'
        '100%'
        '150%'
        '200%')
    end
    object ToolButton4: TToolButton
      Left = 387
      Top = 2
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 1
      Style = tbsSeparator
    end
    object ToolDrop: TComboBox
      Left = 395
      Top = 2
      Width = 81
      Height = 22
      Hint = 'Select tool'
      Style = csOwnerDrawFixed
      ItemHeight = 16
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnChange = ToolDropChange
      Items.Strings = (
        'Contrast'
        'Area Contrast'
        'Magnifier'
        'Pan'
        'Measure')
    end
    object ToolButton2: TToolButton
      Left = 476
      Top = 2
      Width = 8
      Caption = 'ToolButton2'
      ImageIndex = 0
      Style = tbsSeparator
    end
  end
  object ScrollBox1: TScrollBox
    Left = 0
    Top = 24
    Width = 503
    Height = 274
    Align = alClient
    BorderStyle = bsNone
    Color = clBlack
    ParentColor = False
    TabOrder = 1
    object Image: TImage
      Left = 0
      Top = 0
      Width = 128
      Height = 128
      Stretch = True
      OnDblClick = ImageDblClick
      OnMouseDown = ImageMouseDown
      OnMouseMove = ImageMouseMove
      OnMouseUp = ImageMouseUp
    end
    object ValueListEditor1: TValueListEditor
      Left = 0
      Top = 0
      Width = 503
      Height = 274
      Align = alClient
      DefaultRowHeight = 16
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goEditing, goRowSelect, goThumbTracking]
      ParentFont = False
      Strings.Strings = (
        'N/A=No Header Loaded')
      TabOrder = 0
      TitleCaptions.Strings = (
        'Group:Element'
        'Value')
      Visible = False
      ColWidths = (
        201
        296)
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 440
    Top = 40
  end
end