unit6.dfm

Dicom Delphi code 看DICOM图像

object frmSaveDICOM: TfrmSaveDICOM
  Left = 668
  Top = 109
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Save as DICOM File'
  ClientHeight = 721
  ClientWidth = 497
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 13
    Width = 91
    Height = 13
    Caption = 'Source Image File :'
  end
  object Label2: TLabel
    Left = 8
    Top = 42
    Width = 87
    Height = 13
    Caption = 'Target File Name :'
  end
  object edtSrcImageFile: TEdit
    Left = 104
    Top = 8
    Width = 305
    Height = 21
    ReadOnly = True
    TabOrder = 0
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 72
    Width = 481
    Height = 609
    Caption = 'DICOM Data Fields'
    TabOrder = 1
    object Bevel1: TBevel
      Left = 0
      Top = 232
      Width = 481
      Height = 1
    end
    object Bevel2: TBevel
      Left = 280
      Top = 232
      Width = 1
      Height = 377
    end
    object leSOPCUID: TLabeledEdit
      Left = 16
      Top = 40
      Width = 449
      Height = 21
      EditLabel.Width = 207
      EditLabel.Height = 13
      EditLabel.Caption = '[0002,0002] Media Storage SOP Class UID:'
      TabOrder = 0
    end
    object leSOPIUID: TLabeledEdit
      Left = 16
      Top = 80
      Width = 449
      Height = 21
      EditLabel.Width = 223
      EditLabel.Height = 13
      EditLabel.Caption = '[0002,0003] Media Storage SOP Instance UID:'
      TabOrder = 1
    end
    object leICUID: TLabeledEdit
      Left = 16
      Top = 120
      Width = 449
      Height = 21
      EditLabel.Width = 184
      EditLabel.Height = 13
      EditLabel.Caption = '[0002,0012] Implementation Class UID:'
      TabOrder = 2
    end
    object leIVName: TLabeledEdit
      Left = 16
      Top = 160
      Width = 449
      Height = 21
      EditLabel.Width = 203
      EditLabel.Height = 13
      EditLabel.Caption = '[0002,0013] Implementation Version Name:'
      TabOrder = 3
    end
    object leSAET: TLabeledEdit
      Left = 16
      Top = 200
      Width = 449
      Height = 21
      EditLabel.Width = 204
      EditLabel.Height = 13
      EditLabel.Caption = '[0002,0016] Source Application Entity Title:'
      TabOrder = 4
    end
    object leStudyDate: TLabeledEdit
      Left = 16
      Top = 256
      Width = 121
      Height = 21
      EditLabel.Width = 116
      EditLabel.Height = 13
      EditLabel.Caption = '[0008,0020] Study Date:'
      TabOrder = 5
    end
    object leSeriesDate: TLabeledEdit
      Left = 16
      Top = 296
      Width = 121
      Height = 21
      EditLabel.Width = 118
      EditLabel.Height = 13
      EditLabel.Caption = '[0008,0021] Series Date:'
      TabOrder = 6
    end
    object leImageDate: TLabeledEdit
      Left = 16
      Top = 336
      Width = 121
      Height = 21
      EditLabel.Width = 118
      EditLabel.Height = 13
      EditLabel.Caption = '[0008,0023] Image Date:'
      TabOrder = 7
    end
    object leImageTime: TLabeledEdit
      Left = 144
      Top = 336
      Width = 121
      Height = 21
      EditLabel.Width = 118
      EditLabel.Height = 13
      EditLabel.Caption = '[0008,0033] Image Time:'
      TabOrder = 8
    end
    object leSeriesTime: TLabeledEdit
      Left = 144
      Top = 296
      Width = 121
      Height = 21
      EditLabel.Width = 118
      EditLabel.Height = 13
      EditLabel.Caption = '[0008,0031] Series Time:'
      TabOrder = 9
    end
    object leStudyTime: TLabeledEdit
      Left = 144
      Top = 256
      Width = 121
      Height = 21
      EditLabel.Width = 116
      EditLabel.Height = 13
      EditLabel.Caption = '[0008,0030] Study Time:'
      TabOrder = 10
    end
    object leModality: TLabeledEdit
      Left = 16
      Top = 376
      Width = 249
      Height = 21
      EditLabel.Width = 102
      EditLabel.Height = 13
      EditLabel.Caption = '[0008,0060] Modality:'
      TabOrder = 11
    end
    object leManufacturer: TLabeledEdit
      Left = 16
      Top = 416
      Width = 249
      Height = 21
      EditLabel.Width = 126
      EditLabel.Height = 13
      EditLabel.Caption = '[0008,0070] Manufacturer:'
      TabOrder = 12
    end
    object leInstitutionName: TLabeledEdit
      Left = 16
      Top = 456
      Width = 249
      Height = 21
      EditLabel.Width = 139
      EditLabel.Height = 13
      EditLabel.Caption = '[0008,0080] Institution Name:'
      TabOrder = 13
    end
    object leCityName: TLabeledEdit
      Left = 16
      Top = 496
      Width = 249
      Height = 21
      EditLabel.Width = 111
      EditLabel.Height = 13
      EditLabel.Caption = '[0008,0081] City Name:'
      TabOrder = 14
    end
    object leRPName: TLabeledEdit
      Left = 16
      Top = 536
      Width = 249
      Height = 21
      EditLabel.Width = 192
      EditLabel.Height = 13
      EditLabel.Caption = '[0008,0090] Referring Physician'#39's Name:'
      TabOrder = 15
    end
    object leStudyDescription: TLabeledEdit
      Left = 16
      Top = 576
      Width = 249
      Height = 21
      EditLabel.Width = 146
      EditLabel.Height = 13
      EditLabel.Caption = '[0008,1030] Study Description:'
      TabOrder = 16
    end
    object lePName: TLabeledEdit
      Left = 296
      Top = 256
      Width = 169
      Height = 21
      EditLabel.Width = 134
      EditLabel.Height = 13
      EditLabel.Caption = '[0010,0010] Patient'#39's Name:'
      TabOrder = 17
    end
    object lePID: TLabeledEdit
      Left = 296
      Top = 296
      Width = 169
      Height = 21
      EditLabel.Width = 110
      EditLabel.Height = 13
      EditLabel.Caption = '[0010,0020] Patient ID:'
      TabOrder = 18
    end
    object lePDOB: TLabeledEdit
      Left = 296
      Top = 336
      Width = 169
      Height = 21
      EditLabel.Width = 158
      EditLabel.Height = 13
      EditLabel.Caption = '[0010,0030] Patient Date of Birth:'
      TabOrder = 19
    end
    object lePSex: TLabeledEdit
      Left = 296
      Top = 376
      Width = 169
      Height = 21
      EditLabel.Width = 117
      EditLabel.Height = 13
      EditLabel.Caption = '[0010,0040] Patient Sex:'
      TabOrder = 20
    end
    object leStudyIUID: TLabeledEdit
      Left = 296
      Top = 416
      Width = 169
      Height = 21
      EditLabel.Width = 158
      EditLabel.Height = 13
      EditLabel.Caption = '[0020,000D] Study Instance UID:'
      TabOrder = 21
    end
    object leSeriesIUID: TLabeledEdit
      Left = 296
      Top = 456
      Width = 169
      Height = 21
      EditLabel.Width = 159
      EditLabel.Height = 13
      EditLabel.Caption = '[0020,000E] Series Instance UID:'
      TabOrder = 22
    end
    object leStudyID: TLabeledEdit
      Left = 296
      Top = 496
      Width = 169
      Height = 21
      EditLabel.Width = 104
      EditLabel.Height = 13
      EditLabel.Caption = '[0020,0010] Study ID:'
      TabOrder = 23
    end
    object leSeriesNumber: TLabeledEdit
      Left = 296
      Top = 536
      Width = 169
      Height = 21
      EditLabel.Width = 132
      EditLabel.Height = 13
      EditLabel.Caption = '[0020,0011] Series Number:'
      TabOrder = 24
    end
    object leImageNumber: TLabeledEdit
      Left = 296
      Top = 576
      Width = 169
      Height = 21
      EditLabel.Width = 132
      EditLabel.Height = 13
      EditLabel.Caption = '[0020,0013] Image Number:'
      TabOrder = 25
    end
  end
  object Button1: TButton
    Left = 328
    Top = 688
    Width = 75
    Height = 25
    Caption = 'Save'
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 416
    Top = 688
    Width = 75
    Height = 25
    Caption = 'Cancel'
    TabOrder = 3
    OnClick = Button2Click
  end
  object edtSaveFileName: TEdit
    Left = 104
    Top = 40
    Width = 385
    Height = 21
    ReadOnly = True
    TabOrder = 4
  end
  object cbGrayScale: TCheckBox
    Left = 8
    Top = 696
    Width = 113
    Height = 17
    Caption = 'GrayScale Image '
    Checked = True
    State = cbChecked
    TabOrder = 5
  end
  object btnAddFile: TButton
    Left = 416
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Add File'
    Enabled = False
    TabOrder = 6
    OnClick = btnAddFileClick
  end
end