unit1.~dfm

Dicom Delphi code 看DICOM图像

object Form1: TForm1
  Left = 446
  Top = 154
  AutoScroll = False
  Caption = 'DICOM Image Viewer'
  ClientHeight = 645
  ClientWidth = 920
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010002002020000001000800A80800002600000010100000010008006805
    0000CE0800002800000020000000400000000100080000000000800400000000
    00000000000000000000000000000000000066666600FDD2BF00923F00000099
    000099180000FEF7F100FEF3EA0079615B00FEF9F400FFFBF700FEF5EE00AA7F
    7900FEF1E700FDEFE500D17111009A6A6800FDEEE200FDEDDF00FEF4EC00FFFF
    FC00EB850000FDEADB006D6D6D00FCE7D600FFFFD900FFFFE200F7F8F700FFEE
    BB00FFF8C500F3F4F400EBECEB00E7E8E800FFFDFC00FFFFED00F1D3AC00FFE5
    BB00FFFFFF00E2E4E300E1BA9F00FFFCCC0004950200FFFED200FFFFD700FCFC
    FC00EFF0F000FFFFDE0079574C00FBDFC800FDF2E80001980000FEF7EE00FAE4
    B400D3AF9C00C18F8B00CCAC9200FFDEAC00FFF3C000FBE3CE00FFF0BF00F3D5
    BB00FADAC1007576A5009784A100AE827900FDF1D30033CB6600B9808000FFFE
    CB00FFFFCE00FFF3CA000298010038C56400FFDAA900B87C7200FFFFE500EBD1
    BC008A6A7000DAB9AB00654D4B00F6DAC300DCBEA600C6A78F00BA7D73005BC1
    FF00FFDAA700F8D7BB00FFF9C6003CA2FF00AA7A770033CC6600FFFEEA00FCC9
    9800EDCEA900E5B28B003691210039B65E00A57372005D534F00FFE5B200FFF6
    CD00B29B8200F7CE9F0041414100FFFFCC00C6AB9400FFFCC900FFFAC700F6CC
    B900FFFFD500D7B89900FFFDCF00FFFFDC00FFE9B600FFDEB100A6756D00E7D4
    BA00D5A28300EDB99000CB9B970062626200B27F7000D7E9ED0059464600C996
    7D00D1B19600FFFFF700CFA28D00A6736A00B68884009F5F56009C7F68007776
    7600785A5A009D817100FCD0BE00DDA98700E1C7B200A5653600FFF9EB0054A0
    E100966361005B5B5B000E8F070066545300BB897200296DCD0069524D00C2A3
    8C00FFDCA900FFE2B500A87E7800A0797100417ACE00D09C6800984D1600F2BF
    93006DC87D00FFFBE500B08E7400B5520800FFBD6000FFA931008C4D2200FCA2
    2200B8817300D8EAEF00CB8F5300B1807E0097867C00FFF5C200DBBCA000FFE6
    B500FFD6A300AC876A00EEA14700FFE0AD006A666500FFFFF300FFECBA00AB78
    6D00D3E3E700E7953800DE8A370096594D00B0847900D5823500FFE2B000A98E
    77009E826B00D8B89C00D9B59200CAAA8C00FFEAB900BA797400B2674700A06D
    6700BA717100DDC1A900EDE3BE00786B6A008B8B8B009999990067A5CC004F99
    DC009D6B6200A26F6300C3907900F4D3B600E0CDBC006485A8005CAFF500D6B2
    9B00FFD896008579770053535300CB997300F6C39400CF9C7F00FFEFC70034CA
    6600BF8C7700C0A28E00B78F8000BA8F8500B3887D00B0857A00BB9D8A002795
    2400B0947B00FFCE850071717200FEB554005168AD0089676300000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000017EA3F3E000000000001010101010101010101010101
    01010101010101010117083FE99900000000DFE0E1E2404040400C0C0C0C0C0C
    0C0C0C0C97979898E74D3F3E9958000000008D02020202020202020202020202
    0202020202020217903F3E925854000000008D263030303D3D3D3D5656563017
    0808082F9085174F083E9258548C00000000CD263A3050503C3C3C3CD0172F86
    35D15D3536732F2F84D2D3548CD600000000C4263A504C89C6515151C8084E41
    192B2A6F46237F81C9CACBCC08000000000080203A4C69BCBD83838485741422
    2E2E192A4428C127368682C300000000000080203A058A030303037B4E142514
    224B2E2B441C462427108200000000000000B4201805040432B57859197E2514
    7E221A2B453B6357727FB800000000000000792018050404297A674E1A1AB214
    14221A19453B38B364271000000000000000791F18050447297A7B2399995B22
    2299996D991C95B099236100000000000000A51F160532298FA693749919994B
    992E192A9971995599245900000000000000911F160532295F9D4F23992A9970
    992B2A6A9999729999347300000000000000DD1F12053229E460672799996A68
    459999399949244699234D00000000000000CF2D120504475F60D7363B281C3B
    391C1C6338DB418B643562000000000000007C2D110504048F481793661D1DBB
    3895965524142514C75900000000000000007C2D0E0504044748488EA849AA1D
    ACAD49244125258B774F0000000000000000DA1E0D050404044242DC6236661C
    6B57396F9E5B41772F010000000000000000751E31050404045A5A5A428E1027
    233434345D3561084A010000000000000000751E0705151515151515151578B1
    4D81B9100808086C4A010000000000000000881E1305A00F0F0F0F0F0F0F0F0F
    1010101010A3696C4A010000000000000000881B33898A030303030303030303
    030303039B374C87530100000000000000005E1B060B0B130707310E0E111112
    1212161618181887530100000000000000005E1B0606060B131307310D0E1111
    121212161616180253010000000000000000761B090906060B0B1307070D0D0E
    111112434343C2C5CE010000000000000000762C0A09090606330B1307070D0D
    0E1111AEAFB6B7BA910100000000000000009C2C0A0A0A090906060B0B130731
    0D0E0E9FA1A2A4A701000000000000000000D92C210A0A0A09090606330B1307
    310D0EE5E6E89A01000000000000000000005C212121210A0A0A090906330B13
    07070D65D5D80100000000000000000000005C212C2C1B1B1B1E1E2D2D1F1F20
    20262665C001000000000000000000000000BFABBE6E6ED47D7D373737525252
    9494DEE3A9000000000000000000FFFFFFF0F8000000F0000000F0000000F000
    0000F0000000F0000001F0000003F0000007F0000007F0000007F0000007F000
    0007F0000007F0000007F0000007F000000FF000000FF000000FF000000FF000
    000FF000000FF000000FF000000FF000000FF000000FF000000FF000001FF000
    003FF000007FF00000FFF00001FF280000001000000020000000010008000000
    0000400100000000000000000000000000000000000000000000FFFFFF00D7E9
    EE002FAAE800319FDB0066666600699395005CB9D900DAE9E800CCD8D60048D2
    6F009DC3BB002DAD4E003B9D4600229B3C002B762A003C5A2D0033592C00545C
    3C0001980000079A0400305E3300189E0D003D4127002FB84E00B7BBB2002E67
    280054A0610034CA65003DCC690060CE7900FFFAF700FFFBF700FFFBF800FFFD
    FB00FFFEFB00FEF6F000FEF7F100FEF8F100FEF8F200FEF8F300FEF9F400FEFA
    F500FEF0E500FEF2E900FEF4EC00FEF5ED00FEF5EE00FEF6EE00FDF0E500FDF1
    E600FDF1E700FDF2E800FDF3EA00FDF3EB00FDF3EC00FDF4EC00FDF5ED00FDEA
    DA00FDECDE00FDEEE000FDEEE200FDEFE200FCE7D400FCE8D800FCEBDD00FCD3
    BC00FCE1CB00FCE2CC00FCE4CF00FCE4D000FCE6D400C28F7900CF9C8000B47C
    7200BB887500BCA37C00AE7B6E00AB857F00C0938600C4978900B4897F00BA8E
    8300BD949000C8957C00CAA588008F7A6100C59A8900CCAB9400D5A28300D2A4
    9700D6A38400D3A69800E0924100E1934100D8B39400C89C8B00E8923300EAC8
    AC00DCA98700C99E9700F5D3AA0095511400E6C1A200D9B59800704A2C006F63
    5700C3989400F6D3B400F0CBAC00DEAB8800D6A89A00713E1E006B6A3D006A65
    6500F8D6B900F2D1B600EED0B700DBBEA300C69B9500CB6F0000FAD9BD00765A
    390087865E00F7D8BF00967F6200A46D3300F7DBC300E67B0000D9AD9D00CCA1
    9900B5827200A5866D00BB966900956D6700A2864700AC733500AF8C8400FBDC
    C200FBDEC400FBDEC600FBE0C800FBE0C900FBE0CA0000000000AD897F00AE89
    7B0071514900694D4500F7DAB400FFEEBC00FFF1C400FBF4E400CBB2AC00FCE1
    B700FFF6C000FFE5B000FFE0AE00FFF5E500BB9B8E00977D6A00FFFFD000FFFC
    CD00FFF4C000FFE5B600FFF1C900F5DDBC00B5A38800FFFFDF00FFFFE500FFFF
    E400FFFFD500FFEFBB00FFE0AC00FEE7BE00755F6B0088746600FFFFEB00FFFF
    F900FFFFF300FFFFDD00FFEFBA00EECCAD0053415900EFE0D800FFFFEC00FFFF
    DA00FFFDC900FFE9BA00BF938300533C4B00523D3B00E5D1C000FFFFDC00FFFD
    CE00EED4AE00C4A19300969195005F89A800917D6D004B332F00856A60008568
    5A0072453B00773F36006B739300449DF70054A7E0007B4D4F00797BAD004198
    F100693E3600797AAC0000000000417ACE000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000505050505050505
    05050505D3D4004D816F5C5A8264776B53894ED0D1D20083438D8B8A7973C8C9
    CACBCCCDCECF004B45448E8C7CBFC0C1C2C3C4C5C6C700483F55707070B8D6B9
    BABBD6BDBE00005440701313B0B1D6B3B4A3D6B6B700004941701313A7A8D6AA
    D6ACD6AEAF0000593C701316A0A1D6D6A3D6D6A6000000632B7013141C9AD69C
    9D9ED69F00000063357013131D94959697989905000000633958787878806191
    9293520500000063272F3834313D3B3A40475105000000631F28242D2C323E86
    8686510500000063222029252E363386425D0500000000630123212A2630374A
    5E0500000000006363636363636E5B4A050000000000C0000000800000008000
    0000800000008001000080010000800100008003000080030000800300008003
    0000800300008003000080070000800F0000801F0000}
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pnlMain: TPanel
    Left = 73
    Top = 94
    Width = 112
    Height = 99
    BevelOuter = bvNone
    TabOrder = 0
    OnResize = pnlMainResize
    object DICOMX1: TDICOMX
      Left = 8
      Top = 8
      Width = 33
      Height = 33
      TabOrder = 0
      OnDCMmouseMove = DICOMX1DCMmouseMove
      OnDCMmouseUp = DICOMX1DCMmouseUp
      ControlData = {
        5450463007544449434F4D58064449434F4D58044C656674020803546F700208
        05576964746802210648656967687402210D416374697665436F6E74726F6C07
        07706E6C4D61696E0D4178426F726465725374796C6507076166624E6F6E6507
        43617074696F6E06064449434F4D5805436F6C6F720709636C42746E46616365
        0C466F6E742E43686172736574070F44454641554C545F434841525345540A46
        6F6E742E436F6C6F72070C636C57696E646F77546578740B466F6E742E486569
        67687402F509466F6E742E4E616D65060D4D532053616E732053657269660A46
        6F6E742E5374796C650B000A4B657950726576696577090E4F6C644372656174
        654F7264657208094F6E4B6579446F776E0711416374697665466F726D4B6579
        446F776E0D506978656C73506572496E636802600A5465787448656967687402
        0D0000}
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 626
    Width = 920
    Height = 19
    Panels = <
      item
        Text = 'Width: 0, Height: 0'
        Width = 140
      end
      item
        Text = 'Window: 0, Level: 0'
        Width = 150
      end
      item
        Width = 50
      end>
  end
  object CoolBar2: TCoolBar
    Left = 0
    Top = 80
    Width = 53
    Height = 546
    Align = alLeft
    AutoSize = True
    BandBorderStyle = bsNone
    BandMaximize = bmNone
    Bands = <
      item
        Control = tbMeasurement
        ImageIndex = -1
        MinHeight = 53
        Width = 546
      end>
    EdgeInner = esNone
    EdgeOuter = esNone
    Vertical = True
    object tbMeasurement: TToolBar
      Left = 0
      Top = 9
      Width = 53
      Height = 410
      AutoSize = True
      BorderWidth = 1
      ButtonHeight = 36
      ButtonWidth = 49
      EdgeBorders = []
      Flat = True
      Images = ImageList1
      ShowCaptions = True
      TabOrder = 0
      object ToolButton45: TToolButton
        Tag = 213
        Left = 0
        Top = 0
        Caption = 'Select'
        ImageIndex = 16
        OnClick = ToolBtnDICOMToolClick
      end
      object ToolButton46: TToolButton
        Left = 0
        Top = 0
        Width = 5
        Caption = 'ToolButton46'
        ImageIndex = 1
        Wrap = True
        Style = tbsSeparator
      end
      object ToolButton47: TToolButton
        Tag = 207
        Left = 0
        Top = 41
        Caption = 'Line'
        ImageIndex = 17
        Wrap = True
        OnClick = ToolBtnDICOMToolClick
      end
      object ToolButton48: TToolButton
        Tag = 212
        Left = 0
        Top = 77
        Caption = 'Angle'
        ImageIndex = 18
        Wrap = True
        OnClick = ToolBtnDICOMToolClick
      end
      object ToolButton49: TToolButton
        Tag = 208
        Left = 0
        Top = 113
        Caption = 'Area [R]'
        ImageIndex = 19
        Wrap = True
        OnClick = ToolBtnDICOMToolClick
      end
      object ToolButton50: TToolButton
        Tag = 209
        Left = 0
        Top = 149
        Caption = 'Girth [R]'
        ImageIndex = 20
        Wrap = True
        OnClick = ToolBtnDICOMToolClick
      end
      object ToolButton51: TToolButton
        Tag = 210
        Left = 0
        Top = 185
        Caption = 'Area [E]'
        ImageIndex = 21
        Wrap = True
        OnClick = ToolBtnDICOMToolClick
      end
      object ToolButton52: TToolButton
        Tag = 211
        Left = 0
        Top = 221
        Caption = 'Girth [E]'
        ImageIndex = 22
        Wrap = True
        OnClick = ToolBtnDICOMToolClick
      end
      object ToolButton53: TToolButton
        Tag = 206
        Left = 0
        Top = 257
        Caption = 'Text'
        ImageIndex = 23
        Wrap = True
        OnClick = ToolBtnDICOMToolClick
      end
      object ToolButton54: TToolButton
        Tag = 205
        Left = 0
        Top = 293
        Caption = 'Arrow'
        ImageIndex = 24
        OnClick = ToolBtnDICOMToolClick
      end
      object ToolButton57: TToolButton
        Left = 0
        Top = 293
        Width = 5
        Caption = 'ToolButton57'
        ImageIndex = 11
        Wrap = True
        Style = tbsSeparator
      end
      object ToolButton55: TToolButton
        Tag = 214
        Left = 0
        Top = 334
        Caption = 'Delete'
        ImageIndex = 25
        Wrap = True
        OnClick = ToolBtnDICOMToolClick
      end
      object ToolButton56: TToolButton
        Tag = 215
        Left = 0
        Top = 370
        Caption = 'DeleteAll'
        ImageIndex = 26
        OnClick = ToolBtnDICOMToolClick
      end
    end
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 920
    Height = 80
    AutoSize = True
    BandBorderStyle = bsNone
    BandMaximize = bmDblClick
    Bands = <
      item
        Break = False
        Control = psMain
        ImageIndex = -1
        MinHeight = 40
        Width = 920
      end
      item
        Control = tbOrientation
        ImageIndex = -1
        MinHeight = 40
        Width = 231
      end
      item
        Break = False
        Control = tbMultiSlice
        ImageIndex = -1
        MinHeight = 40
        Width = 689
      end>
    EdgeInner = esNone
    EdgeOuter = esNone
    FixedSize = True
    object psMain: TPageScroller