unit1.dfm

Dicom Delphi code 看DICOM图像

        Caption = 'Open...'
        OnClick = O2Click
      end
      object N119: TMenuItem
        Caption = '-'
      end
      object DICOMC1: TMenuItem
        Caption = 'Open DICOM Files In Directory...'
        OnClick = DICOMC1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object DICOMDirR1: TMenuItem
        Caption = 'Open DICOMDir...'
        OnClick = DICOMDirR1Click
      end
      object N73: TMenuItem
        Caption = '-'
      end
      object S1: TMenuItem
        Caption = 'Save As BMP/JPG Image...'
        OnClick = S1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object DICOMA2: TMenuItem
        Caption = 'Save As DICOM File...'
        OnClick = DICOMA2Click
      end
      object N69: TMenuItem
        Caption = '-'
      end
      object BMPJPGDICOM1: TMenuItem
        Caption = 'Convert BMP/JPG Image To DICOM File...'
        OnClick = BMPJPGDICOM1Click
      end
      object N64: TMenuItem
        Caption = '-'
      end
      object N51: TMenuItem
        Caption = 'Multi Slice/Frame'
        object DICOM4: TMenuItem
          Caption = 'Save DICOM Images To BMP/JPG Files...'
          OnClick = DICOM4Click
        end
        object DICOM6: TMenuItem
          Caption = 'Save DICOM Images To AVI File...'
          OnClick = DICOM6Click
        end
        object N70: TMenuItem
          Caption = '-'
        end
        object DICOM3: TMenuItem
          Caption = 'Convert Image Files To Multi Slice DICOM File...'
          OnClick = DICOM3Click
        end
      end
      object N71: TMenuItem
        Caption = '-'
      end
      object X1: TMenuItem
        Caption = 'Exit'
        OnClick = X1Click
      end
    end
    object T1: TMenuItem
      Caption = '&Tools'
      object N3: TMenuItem
        Tag = 201
        Caption = 'Window/Level'
        Checked = True
        OnClick = MenuDICOMToolClick
      end
      object N4: TMenuItem
        Tag = 202
        Caption = 'Window/Level (Auto)'
        OnClick = MenuDICOMToolClick
      end
      object N5: TMenuItem
        Tag = 203
        Caption = 'Magnification'
        OnClick = MenuDICOMToolClick
      end
      object N6: TMenuItem
        Tag = 204
        Caption = 'Pan'
        OnClick = MenuDICOMToolClick
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object Measurements1: TMenuItem
        Caption = 'Measurements'
        object N8: TMenuItem
          Tag = 205
          Caption = 'Arrow'
          OnClick = MenuDICOMToolClick
        end
        object N9: TMenuItem
          Tag = 206
          Caption = 'Text'
          OnClick = MenuDICOMToolClick
        end
        object N10: TMenuItem
          Tag = 207
          Caption = 'Line'
          OnClick = MenuDICOMToolClick
        end
        object N11: TMenuItem
          Tag = 208
          Caption = 'Rectangle Area'
          OnClick = MenuDICOMToolClick
        end
        object N74: TMenuItem
          Tag = 209
          Caption = 'Rectangle Grith'
          OnClick = MenuDICOMToolClick
        end
        object N12: TMenuItem
          Tag = 210
          Caption = 'Ellipse Area'
          OnClick = MenuDICOMToolClick
        end
        object N75: TMenuItem
          Tag = 211
          Caption = 'Ellipse Grith'
          OnClick = MenuDICOMToolClick
        end
        object N14: TMenuItem
          Tag = 212
          Caption = 'Angle'
          OnClick = MenuDICOMToolClick
        end
        object N13: TMenuItem
          Caption = '-'
        end
        object N76: TMenuItem
          Tag = 213
          Caption = 'Select Measure Item'
          OnClick = MenuDICOMToolClick
        end
        object N77: TMenuItem
          Caption = '-'
        end
        object N78: TMenuItem
          Tag = 214
          Caption = 'Delete Selected Measure Item'
          OnClick = MenuDICOMToolClick
        end
        object N79: TMenuItem
          Tag = 215
          Caption = 'Delete All Measure Item'
          OnClick = MenuDICOMToolClick
        end
      end
    end
    object I1: TMenuItem
      Caption = '&Image'
      object N15: TMenuItem
        Caption = 'Set Window/Level...'
        OnClick = N15Click
      end
      object N72: TMenuItem
        Caption = 'Set Preview Size...'
        OnClick = N72Click
      end
      object WindowingPreset1: TMenuItem
        Caption = 'Windowing Presets...'
        OnClick = WindowingPreset1Click
      end
      object N16: TMenuItem
        Caption = 'Zoom'
        object N501: TMenuItem
          Tag = 50
          Caption = '50%'
          OnClick = MenuZoomIMGClick
        end
        object N1001: TMenuItem
          Tag = 100
          Caption = '100%'
          OnClick = MenuZoomIMGClick
        end
        object N1501: TMenuItem
          Tag = 150
          Caption = '150%'
          OnClick = MenuZoomIMGClick
        end
        object N2001: TMenuItem
          Tag = 200
          Caption = '200%'
          OnClick = MenuZoomIMGClick
        end
        object N4001: TMenuItem
          Caption = '400%'
        end
        object N17: TMenuItem
          Caption = '-'
        end
        object N18: TMenuItem
          Caption = 'Fit'
          Checked = True
          OnClick = MenuZoomIMGClick
        end
        object N19: TMenuItem
          Caption = '-'
        end
        object N20: TMenuItem
          Tag = 999
          Caption = 'User Defined'
          OnClick = MenuZoomIMGClick
        end
      end
      object N28: TMenuItem
        Caption = 'Orientation'
        object N34: TMenuItem
          Tag = 3
          Caption = 'Flip Horizontal'
          OnClick = MenuRotateClick
        end
        object N35: TMenuItem
          Tag = 4
          Caption = 'Flip Vertical'
          OnClick = MenuRotateClick
        end
        object N901: TMenuItem
          Tag = 1
          Caption = 'Rotate Left 90'
          OnClick = MenuRotateClick
        end
        object N902: TMenuItem
          Tag = 2
          Caption = 'Rotate Right 90'
          OnClick = MenuRotateClick
        end
      end
      object N21: TMenuItem
        Caption = 'Color Scheme'
        object N24: TMenuItem
          Tag = 1
          Caption = 'Gray'
          OnClick = MenuLUTClick
        end
        object N25: TMenuItem
          Tag = 2
          Caption = 'FireLUT'
          OnClick = MenuLUTClick
        end
        object N26: TMenuItem
          Tag = 3
          Caption = 'BlackBody'
          OnClick = MenuLUTClick
        end
        object N27: TMenuItem
          Tag = 4
          Caption = 'Bone'
          OnClick = MenuLUTClick
        end
        object Cardiac1: TMenuItem
          Tag = 5
          Caption = 'Cardiac'
          OnClick = MenuLUTClick
        end
        object Flow1: TMenuItem
          Tag = 6
          Caption = 'Flow'
          OnClick = MenuLUTClick
        end
        object GEColor1: TMenuItem
          Tag = 7
          Caption = 'GEColor'
          OnClick = MenuLUTClick
        end
        object Gold1: TMenuItem
          Tag = 8
          Caption = 'Gold'
          OnClick = MenuLUTClick
        end
        object HotIron1: TMenuItem
          Tag = 9
          Caption = 'HotIron'
          OnClick = MenuLUTClick
        end
        object NIH1: TMenuItem
          Tag = 10
          Caption = 'NIH'
          OnClick = MenuLUTClick
        end
        object NIHFire1: TMenuItem
          Tag = 11
          Caption = 'NIHFire'
          OnClick = MenuLUTClick
        end
        object NIHIce1: TMenuItem
          Tag = 12
          Caption = 'NIHIce'
          OnClick = MenuLUTClick
        end
        object RainRamp1: TMenuItem
          Tag = 13
          Caption = 'RainRamp'
          OnClick = MenuLUTClick
        end
        object Spectrum1: TMenuItem
          Tag = 14
          Caption = 'Spectrum'
          OnClick = MenuLUTClick
        end
        object XHot1: TMenuItem
          Tag = 15
          Caption = 'XHot'
          OnClick = MenuLUTClick
        end
        object XRain1: TMenuItem
          Tag = 16
          Caption = 'XRain'
          OnClick = MenuLUTClick
        end
        object N65: TMenuItem
          Caption = '-'
        end
        object N66: TMenuItem
          Tag = 20
          Caption = 'Invert'
          OnClick = MenuLUTClick
        end
        object N67: TMenuItem
          Caption = '-'
        end
        object N68: TMenuItem
          Tag = 30
          Caption = 'Load From LUT File...'
          OnClick = MenuLUTClick
        end
      end
      object Filter1: TMenuItem
        Caption = 'Filter'
        object N30: TMenuItem
          Tag = 2
          Caption = 'Blur'
          OnClick = MenuProcessIMGClick
        end
        object N32: TMenuItem
          Tag = 4
          Caption = 'Emboss'
          OnClick = MenuProcessIMGClick
        end
        object N31: TMenuItem
          Tag = 3
          Caption = 'Filter'
          OnClick = MenuProcessIMGClick
        end
        object N33: TMenuItem
          Tag = 5
          Caption = 'InvertColor'
          OnClick = MenuProcessIMGClick
        end
        object N29: TMenuItem
          Tag = 1
          Caption = 'Sharpen'
          OnClick = MenuProcessIMGClick
        end
      end
      object N23: TMenuItem