unit1.dfm

Dicom Delphi code 看DICOM图像

      Left = 9
      Top = 0
      Width = 907
      Height = 40
      Align = alClient
      Constraints.MaxHeight = 40
      Constraints.MinHeight = 40
      Constraints.MinWidth = 350
      Control = tbMain
      TabOrder = 0
      object tbMain: TToolBar
        Left = 0
        Top = 0
        Width = 811
        Height = 40
        Align = alNone
        AutoSize = True
        BorderWidth = 1
        ButtonHeight = 36
        ButtonWidth = 46
        EdgeBorders = []
        Flat = True
        Images = ImageList1
        ShowCaptions = True
        TabOrder = 0
        Wrapable = False
        object ToolButton1: TToolButton
          Left = 0
          Top = 0
          Caption = 'Open'
          ImageIndex = 0
          OnClick = O2Click
        end
        object ToolButton2: TToolButton
          Left = 46
          Top = 0
          Caption = 'SaveAs'
          ImageIndex = 1
          OnClick = S1Click
        end
        object ToolButton37: TToolButton
          Left = 92
          Top = 0
          Width = 5
          Caption = 'ToolButton37'
          ImageIndex = 26
          Style = tbsSeparator
        end
        object ToolButton36: TToolButton
          Left = 97
          Top = 0
          Caption = 'Copy'
          ImageIndex = 2
          OnClick = ToolButton36Click
        end
        object ToolButton34: TToolButton
          Left = 143
          Top = 0
          Width = 5
          Caption = 'ToolButton34'
          ImageIndex = 26
          Style = tbsSeparator
        end
        object ToolButton5: TToolButton
          Tag = 201
          Left = 148
          Top = 0
          Caption = 'W/ L'
          ImageIndex = 3
          OnClick = ToolBtnDICOMToolClick
        end
        object ToolButton20: TToolButton
          Tag = 202
          Left = 194
          Top = 0
          Caption = 'W/L A'
          ImageIndex = 4
          OnClick = ToolBtnDICOMToolClick
        end
        object ToolButton6: TToolButton
          Tag = 204
          Left = 240
          Top = 0
          Caption = 'Pan'
          ImageIndex = 5
          OnClick = ToolBtnDICOMToolClick
        end
        object ToolButton7: TToolButton
          Tag = 203
          Left = 286
          Top = 0
          Caption = 'Magnify'
          ImageIndex = 6
          OnClick = ToolBtnDICOMToolClick
        end
        object ToolButton26: TToolButton
          Left = 332
          Top = 0
          Width = 5
          Caption = 'ToolButton26'
          ImageIndex = 25
          Style = tbsSeparator
        end
        object ToolButton13: TToolButton
          Left = 337
          Top = 0
          Caption = 'Zoom'
          DropdownMenu = pmZoom
          ImageIndex = 7
          Style = tbsDropDown
          OnClick = ToolButton13Click
        end
        object ToolButton17: TToolButton
          Left = 396
          Top = 0
          Width = 5
          Caption = 'ToolButton17'
          ImageIndex = 25
          Style = tbsSeparator
        end
        object ToolButton35: TToolButton
          Left = 401
          Top = 0
          Caption = 'Smooth'
          ImageIndex = 8
          OnClick = N22Click
        end
        object ToolButton33: TToolButton
          Left = 447
          Top = 0
          Caption = 'Overlay'
          ImageIndex = 9
          OnClick = N23Click
        end
        object ToolButton29: TToolButton
          Left = 493
          Top = 0
          Width = 5
          Caption = 'ToolButton29'
          ImageIndex = 25
          Style = tbsSeparator
        end
        object ToolButton23: TToolButton
          Left = 498
          Top = 0
          Caption = 'Invert'
          ImageIndex = 10
          OnClick = ToolButton23Click
        end
        object ToolButton31: TToolButton
          Left = 544
          Top = 0
          Caption = 'Scheme'
          DropdownMenu = pmScheme
          ImageIndex = 11
          Style = tbsDropDown
          OnClick = ToolButton31Click
        end
        object ToolButton4: TToolButton
          Left = 603
          Top = 0
          Width = 5
          Caption = 'ToolButton4'
          ImageIndex = 3
          Style = tbsSeparator
        end
        object ToolButton24: TToolButton
          Left = 608
          Top = 0
          Caption = 'Reset'
          ImageIndex = 12
          OnClick = ToolButton24Click
        end
        object ToolButton19: TToolButton
          Left = 654
          Top = 0
          Width = 5
          Caption = 'ToolButton19'
          ImageIndex = 25
          Style = tbsSeparator
        end
        object ToolButton21: TToolButton
          Left = 659
          Top = 0
          Caption = 'FullScn'
          ImageIndex = 13
          OnClick = ToolButton21Click
        end
        object ToolButton22: TToolButton
          Left = 705
          Top = 0
          Width = 5
          Caption = 'ToolButton22'
          ImageIndex = 25
          Style = tbsSeparator
        end
        object ToolButton18: TToolButton
          Left = 710
          Top = 0
          Caption = 'Setting'
          ImageIndex = 14
          OnClick = ToolButton18Click
        end
        object ToolButton3: TToolButton
          Left = 756
          Top = 0
          Width = 5
          Caption = 'ToolButton3'
          ImageIndex = 2
          Style = tbsSeparator
        end
        object ToolButton25: TToolButton
          Left = 761
          Top = 0
          Caption = 'About'
          ImageIndex = 15
          OnClick = AboutApplication1Click
        end
      end
    end
    object tbOrientation: TToolBar
      Left = 9
      Top = 40
      Width = 218
      Height = 40
      Align = alNone
      AutoSize = True
      BorderWidth = 1
      ButtonHeight = 36
      ButtonWidth = 53
      Constraints.MaxHeight = 40
      Constraints.MaxWidth = 218
      Constraints.MinHeight = 40
      Constraints.MinWidth = 218
      EdgeBorders = []
      Flat = True
      Images = ImageList1
      ShowCaptions = True
      TabOrder = 1
      object ToolButton12: TToolButton
        Tag = 3
        Left = 0
        Top = 0
        Caption = 'Flip [H]'
        ImageIndex = 27
        OnClick = ToolBtnRotateClick
      end
      object ToolButton14: TToolButton
        Tag = 4
        Left = 53
        Top = 0
        Caption = 'Flip [V]'
        ImageIndex = 28
        OnClick = ToolBtnRotateClick
      end
      object ToolButton15: TToolButton
        Tag = 1
        Left = 106
        Top = 0
        Caption = 'Rotate[L]'
        ImageIndex = 29
        OnClick = ToolBtnRotateClick
      end
      object ToolButton16: TToolButton
        Tag = 2
        Left = 159
        Top = 0
        Caption = 'Rotate[R]'
        ImageIndex = 30
        OnClick = ToolBtnRotateClick
      end
    end
    object tbMultiSlice: TToolBar
      Left = 240
      Top = 40
      Width = 244
      Height = 40
      Align = alNone
      AutoSize = True
      BorderWidth = 1
      ButtonHeight = 36
      ButtonWidth = 52
      Constraints.MaxHeight = 40
      Constraints.MaxWidth = 244
      Constraints.MinHeight = 40
      Constraints.MinWidth = 244
      Customizable = True
      EdgeBorders = []
      Flat = True
      Images = ImageList1
      ShowCaptions = True
      TabOrder = 2
      object ToolButton58: TToolButton
        Left = 0
        Top = 0
        Caption = 'Mosaic'
        DropdownMenu = pmMosaic
        ImageIndex = 31
        Style = tbsDropDown
        OnClick = ToolButton58Click
      end
      object ToolButton11: TToolButton
        Left = 65
        Top = 0
        Width = 5
        Caption = 'ToolButton11'
        ImageIndex = 4
        Style = tbsSeparator
      end
      object ToolButton8: TToolButton
        Left = 70
        Top = 0
        Caption = 'PrvSlice'
        ImageIndex = 32
        OnClick = N40Click
      end
      object ToolButton9: TToolButton
        Left = 122
        Top = 0
        Caption = 'Cine'
        DropdownMenu = pmCine
        ImageIndex = 33
        Style = tbsDropDown
        OnClick = ToolButton9Click
      end
      object ToolButton10: TToolButton
        Left = 187
        Top = 0
        Caption = 'NextSlice'
        ImageIndex = 34
        OnClick = N41Click
      end
    end
  end
  object tmrPlaySlice: TTimer
    Enabled = False
    Interval = 500
    OnTimer = tmrPlaySliceTimer
    Left = 313
    Top = 96
  end
  object OpenDialog1: TOpenDialog
    Filter = 
      #25152#26377#25991#20214'(*.*)|*.*|DICOM'#25991#20214'(*.DCM)|*.DCM|JPEG'#25991#20214'(*.JPG)|*.JPG|BMP'#25991#20214'(*.B' +
      'MP)|*.BMP'
    Title = #25171#24320#22270#20687#25991#20214
    Left = 342
    Top = 96
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '.DCM'
    Filter = 
      'DICOM'#25991#20214'(*.DCM)|*.DCM|BMP'#25991#20214'(*.BMP)|*.BMP|JPEG'#25991#20214'(*.JPG)|*.JPG|TIFF' +
      #25991#20214'(*.TIF)|*.TIF'
    Title = #21478#23384#22270#20687#25991#20214
    Left = 371
    Top = 96
  end
  object MainMenu1: TMainMenu
    AutoHotkeys = maManual
    Left = 400
    Top = 96
    object F1: TMenuItem
      Caption = '&File'
      object O2: TMenuItem