dcmtest.xfm

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

object Form1: TForm1
  Left = 242
  Top = 163
  Width = 659
  Height = 334
  VertScrollBar.Range = 151
  HorzScrollBar.Range = 100
  ActiveControl = ColorBox
  Caption = 'CLX DICOM viewer'
  Color = clBackground
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  TextWidth = 6
  object DCMclx1: TDCMImage
    Left = 0
    Top = 32
    Width = 100
    Height = 100
    Stretch = True
    DCMbestfitzoom = False
    DCMcolorScheme = 1
    DCMoverlayColor = 0
    DCMOverlayOn = False
    DCMslice = 0
    DCMsmoothOn = False
    DCMtool = 1
    DCMzoomPct = 100
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 315
    Width = 659
    Height = 19
    Panels = <>
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 659
    Height = 29
    Caption = 'ToolBar1'
    EdgeBorders = [ebBottom]
    TabOrder = 0
    object OpenBtn: TSpeedButton
      Left = 1
      Top = 2
      Width = 23
      Height = 22
      Hint = 'Show DICOM image'
      Glyph.Data = {
        7A010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000010000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5555555555555555555555555555555555555555555555555555555555555555
        555555555555555555555555555555555555555FFFFFFFFFF555550000000000
        55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
        B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
        000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
        555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
        55555575FFF75555555555700007555555555557777555555555555555555555
        5555555555555555555555555555555555555555555555555555}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = OpenBtnClick
    end
    object SpeedButton2: TSpeedButton
      Left = 47
      Top = 2
      Width = 23
      Height = 22
      Glyph.Data = {
        7A010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000010000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
        33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
        FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
        FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
        FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
        FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
        FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
        3333333773FFFF77333333333FBFBF3333333333377777333333}
      NumGlyphs = 2
      OnClick = SpeedButton2Click
    end
    object nextbtn: TSpeedButton
      Left = 580
      Top = 2
      Width = 23
      Height = 22
      Glyph.Data = {
        7A010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000010000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333999999999999999333FFFFFFFFFFFFF3900000000000
        009337777777777777F390F777777777709337F33333333337F390F333333333
        709337F3333F333337F390F333033333709337F3337FF33337F390F333003333
        709337F33377FF3337F390F333000333709337F333777FF337F390F333000033
        709337F33377773337F390F333000333709337F33377733337F390F333003333
        709337F33377333337F390F333033333709337F33373333337F390F333333333
        709337F33333333337F390FFFFFFFFFFF09337FFFFFFFFFFF7F3900000000000
        0093377777777777773399999999999999933333333333333333}
      NumGlyphs = 2
      Visible = False
      OnClick = nextbtnClick
    end
    object PrevBtn: TSpeedButton
      Left = 557
      Top = 2
      Width = 23
      Height = 22
      Glyph.Data = {
        7A010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000010000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333399999999999999933FFFFFFFFFFFFF33900000000000
        00933F77777777777773907777777777F0933F73333333333F73907333333333
        F0933F733333F3333F73907333330333F0933F73333FF7333F73907333300333
        F0933F7333FF77333F73907333000333F0933F733FF777333F73907330000333
        F0933F73337777333F73907333000333F0933F73333777333F73907333300333
        F0933F73333377333F73907333330333F0933F73333337333F73907333333333
        F0933F73333333333F7390FFFFFFFFFFF0933F7FFFFFFFFFFF73900000000000
        0093337777777777777399999999999999933333333333333333}
      NumGlyphs = 2
      Visible = False
      OnClick = PrevBtnClick
    end
    object SaveBtn: TSpeedButton
      Left = 24
      Top = 2
      Width = 23
      Height = 22
      Hint = 'Save image as bitmap image'
      Glyph.Data = {
        7A010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000010000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
        00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
        00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
        00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
        0003737FFFFFFFFF7F7330099999999900333777777777777733}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SaveBtnClick
    end
    object ColorBox: TComboBox
      Left = 233
      Top = 2
      Width = 96
      Height = 21
      Style = csDropDownList
      ItemHeight = 15
      Items.Strings = (
        'Black/White'
        'Metal'
        'Invert Black/White'
        'Invert Metal')
      ItemIndex = 0
      TabOrder = 0
      Text = 'Black/White'
      OnChange = ColorBoxChange
    end
    object ToolBox: TComboBox
      Left = 129
      Top = 2
      Width = 104
      Height = 21
      Style = csDropDownList
      ItemHeight = 15
      Items.Strings = (
        'Tool: Contrast'
        'Tool: Region Contrast'
        'Tool: Magnify'
        ' Tool: Line')
      ItemIndex = 0
      TabOrder = 1
      Text = 'Tool: Contrast'
      OnChange = ToolBoxChange
    end
    object ZoomBox: TComboBox
      Left = 70
      Top = 2
      Width = 59
      Height = 21
      Style = csDropDownList
      ItemHeight = 15
      Items.Strings = (
        '100%'
        '200%'
        '300%'
        '400%')
      ItemIndex = 0
      TabOrder = 2
      Text = '100%'
      OnChange = ZoomBoxChange
    end
    object SmoothCheck: TCheckBox
      Left = 425
      Top = 2
      Width = 77
      Height = 22
      Caption = 'Smooth'
      TabOrder = 3
      OnClick = SmoothCheckClick
    end
    object OverlayBox: TComboBox
      Left = 329
      Top = 2
      Width = 96
      Height = 21
      Style = csDropDownList
      ItemHeight = 15
      Items.Strings = (
        'White'
        'Black'
        'None')
      ItemIndex = 0
      TabOrder = 4
      Text = 'White'
      OnChange = OverlayBoxChange
    end
    object MosaicBox: TComboBox
      Left = 502
      Top = 2
      Width = 55
      Height = 21
      Style = csDropDownList
      ItemHeight = 15
      Items.Strings = (
        '1x1'
        '2x2'
        '2x3'
        '4x4')
      ItemIndex = 0
      TabOrder = 5
      Text = '1x1'
      Visible = False
      OnChange = MosaicBoxChange
    end
  end
  object OpenDialog1: TOpenDialog
    FilterIndex = 0
    Height = 0
    Title = 'Open'
    Width = 0
    Left = 144
    Top = 32
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '*.bmp'
    FilterIndex = 0
    Options = [ofExtensionDifferent, ofEnableSizing]
    Height = 0
    Title = 'Save As'
    Width = 0
    Left = 112
    Top = 32
  end
end