unit5.dfm

Dicom Delphi code 看DICOM图像

object frmDICOMDir: TfrmDICOMDir
  Left = 432
  Top = 189
  Width = 812
  Height = 591
  Caption = 'DICOMDir Explorer'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 257
    Height = 545
    Caption = 'DICOMDir'
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 64
      Width = 33
      Height = 13
      Caption = 'Patient'
    end
    object Label2: TLabel
      Left = 8
      Top = 136
      Width = 27
      Height = 13
      Caption = 'Study'
    end
    object Label3: TLabel
      Left = 8
      Top = 224
      Width = 29
      Height = 13
      Caption = 'Series'
    end
    object Label4: TLabel
      Left = 8
      Top = 320
      Width = 29
      Height = 13
      Caption = 'Image'
    end
    object Edit1: TEdit
      Left = 8
      Top = 24
      Width = 121
      Height = 21
      TabOrder = 0
      Text = 'I:'
    end
    object Button1: TButton
      Left = 136
      Top = 24
      Width = 105
      Height = 25
      Caption = 'Open DICOMDir'
      TabOrder = 1
      OnClick = Button1Click
    end
    object lstPatient: TListBox
      Left = 8
      Top = 80
      Width = 233
      Height = 49
      ItemHeight = 13
      TabOrder = 2
    end
    object lstStudy: TListBox
      Left = 8
      Top = 152
      Width = 233
      Height = 65
      ItemHeight = 13
      TabOrder = 3
    end
    object lstSeries: TListBox
      Left = 8
      Top = 240
      Width = 233
      Height = 73
      ItemHeight = 13
      TabOrder = 4
      OnClick = lstSeriesClick
    end
    object lstImage: TListBox
      Left = 8
      Top = 344
      Width = 233
      Height = 201
      ItemHeight = 13
      TabOrder = 5
      OnClick = lstImageClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 272
    Top = 8
    Width = 521
    Height = 545
    Caption = 'Image Preview'
    TabOrder = 1
    object DICOMX1: TDICOMX
      Left = 8
      Top = 15
      Width = 507
      Height = 522
      TabOrder = 0
      ControlData = {
        5450463007544449434F4D58064449434F4D58044C656674020803546F70020F
        05576964746803FB0106486569676874030A020D416374697665436F6E74726F
        6C0707706E6C4D61696E0D4178426F726465725374796C6507076166624E6F6E
        650743617074696F6E06064449434F4D5805436F6C6F720709636C42746E4661
        63650C466F6E742E43686172736574070F44454641554C545F43484152534554
        0A466F6E742E436F6C6F72070C636C57696E646F77546578740B466F6E742E48
        656967687402F509466F6E742E4E616D65060D4D532053616E73205365726966
        0A466F6E742E5374796C650B000A4B657950726576696577090E4F6C64437265
        6174654F7264657208094F6E4B6579446F776E0711416374697665466F726D4B
        6579446F776E0D506978656C73506572496E636802600A546578744865696768
        74020D0000}
    end
  end
end