unit1.dfm

Dicom Delphi code 看DICOM图像

        Caption = 'Show Overlay'
        Checked = True
        OnClick = N23Click
      end
      object N22: TMenuItem
        Caption = 'Smooth'
        OnClick = N22Click
      end
      object N54: TMenuItem
        Caption = '-'
      end
      object N80: TMenuItem
        Caption = 'Copy Image To Clipboard'
        OnClick = N80Click
      end
      object N53: TMenuItem
        Caption = 'Get Image Stream...'
        OnClick = N53Click
      end
    end
    object M1: TMenuItem
      Caption = '&MultiSlice'
      object N37: TMenuItem
        Caption = 'Play'
        object N1FPS1: TMenuItem
          Tag = 1
          Caption = '1 FPS'
          OnClick = MenuPlaySliceClick
        end
        object N2FPS1: TMenuItem
          Tag = 2
          Caption = '2 FPS'
          OnClick = MenuPlaySliceClick
        end
        object N5FPS1: TMenuItem
          Tag = 5
          Caption = '5 FPS'
          OnClick = MenuPlaySliceClick
        end
        object N10FPS1: TMenuItem
          Tag = 10
          Caption = '10 FPS'
          OnClick = MenuPlaySliceClick
        end
        object N15FPS1: TMenuItem
          Tag = 15
          Caption = '15 FPS'
          OnClick = MenuPlaySliceClick
        end
        object N20FPS1: TMenuItem
          Tag = 20
          Caption = '20 FPS'
          OnClick = MenuPlaySliceClick
        end
        object N42: TMenuItem
          Caption = '-'
        end
        object N43: TMenuItem
          Tag = 100
          Caption = 'Stop'
          Checked = True
          OnClick = MenuPlaySliceClick
        end
      end
      object N38: TMenuItem
        Caption = 'Mosaic'
        object N2X21: TMenuItem
          Tag = 22
          Caption = '2 X 2'
          OnClick = MenuFlipSliceClick
        end
        object N2X31: TMenuItem
          Tag = 23
          Caption = '2 X 3'
          OnClick = MenuFlipSliceClick
        end
        object N3X31: TMenuItem
          Tag = 33
          Caption = '3 X 3'
          OnClick = MenuFlipSliceClick
        end
        object N3X41: TMenuItem
          Tag = 34
          Caption = '3 X 4'
          OnClick = MenuFlipSliceClick
        end
        object N4X41: TMenuItem
          Tag = 44
          Caption = '4 X 4'
          OnClick = MenuFlipSliceClick
        end
        object N44: TMenuItem
          Caption = '-'
        end
        object N45: TMenuItem
          Tag = 1
          Caption = 'User Defined'
          OnClick = MenuFlipSliceClick
        end
        object N46: TMenuItem
          Caption = '-'
        end
        object N47: TMenuItem
          Caption = 'Cancel'
          Checked = True
          OnClick = MenuFlipSliceClick
        end
      end
      object N39: TMenuItem
        Caption = '-'
      end
      object N40: TMenuItem
        Caption = 'Prv Slice'
        OnClick = N40Click
      end
      object N41: TMenuItem
        Caption = 'Next Slice'
        OnClick = N41Click
      end
    end
    object O1: TMenuItem
      Caption = '&Settings'
      object N36: TMenuItem
        Caption = 'ActiveX OCX Toolbar'
        object N48: TMenuItem
          Caption = 'Hide Toolbar'
          Checked = True
          OnClick = N48Click
        end
        object N113: TMenuItem
          Caption = 'Change Toolbar Pos'
          OnClick = N113Click
        end
      end
      object N52: TMenuItem
        Caption = 'Error Report'
        object N62: TMenuItem
          Tag = 1
          Caption = 'On'
          OnClick = MenuDICOMSEClick
        end
        object N63: TMenuItem
          Caption = 'Off'
          OnClick = MenuDICOMSEClick
        end
      end
      object N116: TMenuItem
        Caption = 'Language'
        object N117: TMenuItem
          Caption = 'CHS'
          OnClick = MenuOCXLanguageClick
        end
        object N118: TMenuItem
          Tag = 1
          Caption = 'English'
          OnClick = MenuOCXLanguageClick
        end
      end
      object MouseWheel1: TMenuItem
        Caption = 'MouseWheel'
        object EnableScrollforMultiSlice1: TMenuItem
          Tag = 1
          Caption = 'Enable Scroll for MultiSlice'
          OnClick = MenuMScrollClick
        end
        object DisableScrollforMultiSlice1: TMenuItem
          Caption = 'Disable Scroll for MultiSlice'
          OnClick = MenuMScrollClick
        end
      end
      object N121: TMenuItem
        Caption = '-'
      end
      object M50: TMenuItem
        Caption = 'Magnification Size'
        object M60: TMenuItem
          Tag = 60
          Caption = '60 px'
        end
        object M80: TMenuItem
          Tag = 80
          Caption = '80 px'
        end
        object M100: TMenuItem
          Tag = 100
          Caption = '100 px'
        end
        object M120: TMenuItem
          Tag = 120
          Caption = '120 px'
        end
      end
      object N50: TMenuItem
        Caption = 'Magnification Radious'
        object N2X1: TMenuItem
          Tag = 2
          Caption = '2X'
          OnClick = MenuDICOMMRatioClick
        end
        object N4X1: TMenuItem
          Tag = 4
          Caption = '4X'
          OnClick = MenuDICOMMRatioClick
        end
        object N6X1: TMenuItem
          Tag = 6
          Caption = '6X'
          OnClick = MenuDICOMMRatioClick
        end
      end
      object N129: TMenuItem
        Caption = '-'
      end
      object N81: TMenuItem
        Caption = 'Measurement Settings'
        object N101: TMenuItem
          Caption = 'Text Color'
          object N102: TMenuItem
            Tag = 101
            Caption = 'Red'
            OnClick = IMeasureColorClick
          end
          object N103: TMenuItem
            Tag = 102
            Caption = 'Green'
            OnClick = IMeasureColorClick
          end
          object N104: TMenuItem
            Tag = 103
            Caption = 'Blue'
            OnClick = IMeasureColorClick
          end
          object N105: TMenuItem
            Tag = 104
            Caption = 'Yellow'
            OnClick = IMeasureColorClick
          end
          object N106: TMenuItem
            Tag = 105
            Caption = 'White'
            OnClick = IMeasureColorClick
          end
          object N107: TMenuItem
            Tag = 106
            Caption = 'Black'
            OnClick = IMeasureColorClick
          end
        end
        object N82: TMenuItem
          Caption = 'Line Color'
          object N87: TMenuItem
            Tag = 201
            Caption = 'Red'
            OnClick = IMeasureColorClick
          end
          object N88: TMenuItem
            Tag = 202
            Caption = 'Green'
            OnClick = IMeasureColorClick
          end
          object N89: TMenuItem
            Tag = 203
            Caption = 'Blue'
            OnClick = IMeasureColorClick
          end
          object N90: TMenuItem
            Tag = 204
            Caption = 'Yellow'
            OnClick = IMeasureColorClick
          end
          object N91: TMenuItem
            Tag = 205
            Caption = 'White'
            OnClick = IMeasureColorClick
          end
          object N92: TMenuItem
            Tag = 206
            Caption = 'Black'
            OnClick = IMeasureColorClick
          end
        end
        object N83: TMenuItem
          Caption = 'Value Color'
          object N93: TMenuItem
            Tag = 301
            Caption = 'Red'
            OnClick = IMeasureColorClick
          end
          object N94: TMenuItem
            Tag = 302
            Caption = 'Green'
            OnClick = IMeasureColorClick
          end
          object N95: TMenuItem
            Tag = 303
            Caption = 'Blue'
            OnClick = IMeasureColorClick
          end
          object N96: TMenuItem
            Tag = 304
            Caption = 'Yellow'
            OnClick = IMeasureColorClick
          end
          object N97: TMenuItem
            Tag = 305
            Caption = 'White'
            OnClick = IMeasureColorClick
          end
          object N98: TMenuItem
            Tag = 306
            Caption = 'Black'
            OnClick = IMeasureColorClick
          end
        end
        object N84: TMenuItem
          Caption = 'Item Count'
          object N110: TMenuItem
            Caption = 'Inc 1 Item'
            OnClick = N110Click
          end
          object N111: TMenuItem
            Caption = 'Dec 1 Item'
            OnClick = N111Click
          end
          object N99: TMenuItem
            Caption = '-'
          end
          object N100: TMenuItem
            Caption = 'Get Current Measure Item Count'
            OnClick = N100Click
          end
        end
        object N108: TMenuItem
          Caption = '-'
        end
        object N109: TMenuItem
          Caption = 'Value Font Size'
          OnClick = N109Click
        end
        object N112: TMenuItem
          Caption = 'Text Font Size'
          OnClick = N112Click
        end
        object N123: TMenuItem
          Caption = '-'
        end
        object N85: TMenuItem
          Caption = 'Set Pixel Width...'
          OnClick = N85Click
        end
        object N122: TMenuItem
          Caption = '-'
        end
        object N115: TMenuItem
          Caption = 'Select Measurement Item'
          OnClick = N115Click
        end
        object N86: TMenuItem
          Caption = 'Get Measure Values'
          OnClick = N86Click
        end
      end
      object N124: TMenuItem
        Caption = '-'
      end