unit9.dfm

Dicom Delphi code 看DICOM图像

object frmAddImageFile: TfrmAddImageFile
  Left = 277
  Top = 104
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Add Image File to MultiSlice List'
  ClientHeight = 553
  ClientWidth = 650
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 217
    Height = 537
    Caption = 'Local File List'
    TabOrder = 0
    object Image1: TImage
      Left = 8
      Top = 416
      Width = 113
      Height = 113
      Stretch = True
    end
    object Label1: TLabel
      Left = 136
      Top = 416
      Width = 37
      Height = 13
      Caption = 'Width:0'
    end
    object Label2: TLabel
      Left = 136
      Top = 440
      Width = 40
      Height = 13
      Caption = 'Height:0'
    end
    object DriveComboBox1: TDriveComboBox
      Left = 8
      Top = 24
      Width = 97
      Height = 19
      DirList = DirectoryListBox1
      TabOrder = 0
    end
    object DirectoryListBox1: TDirectoryListBox
      Left = 8
      Top = 48
      Width = 201
      Height = 121
      FileList = FileListBox1
      ItemHeight = 16
      TabOrder = 1
    end
    object FileListBox1: TFileListBox
      Left = 8
      Top = 176
      Width = 201
      Height = 233
      ItemHeight = 13
      Mask = '*.BMP;*.JPG'
      TabOrder = 2
      OnClick = FileListBox1Click
      OnDblClick = FileListBox1DblClick
    end
    object FilterComboBox1: TFilterComboBox
      Left = 112
      Top = 24
      Width = 97
      Height = 21
      FileList = FileListBox1
      Filter = 'BMP/JPG Files|*.BMP;*.JPG|BMP Files|*.BMP|JPG Files|*.JPG'
      TabOrder = 3
    end
    object Button1: TButton
      Left = 128
      Top = 504
      Width = 81
      Height = 25
      Caption = 'Add To List >>'
      TabOrder = 4
      OnClick = Button1Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 232
    Top = 8
    Width = 409
    Height = 537
    Caption = 'DICOM Image Slice List'
    TabOrder = 1
    object Image2: TImage
      Left = 8
      Top = 16
      Width = 393
      Height = 393
      Stretch = True
    end
    object Label3: TLabel
      Left = 328
      Top = 416
      Width = 37
      Height = 13
      Caption = 'Width:0'
    end
    object Label4: TLabel
      Left = 328
      Top = 432
      Width = 40
      Height = 13
      Caption = 'Height:0'
    end
    object Label5: TLabel
      Left = 328
      Top = 448
      Width = 17
      Height = 13
      Caption = '0/0'
    end
    object lstSlice: TListBox
      Left = 8
      Top = 416
      Width = 313
      Height = 113
      ItemHeight = 13
      TabOrder = 0
      OnClick = lstSliceClick
    end
    object Button2: TButton
      Left = 328
      Top = 504
      Width = 75
      Height = 25
      Caption = 'Done'
      TabOrder = 1
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 328
      Top = 472
      Width = 75
      Height = 25
      Caption = 'Clear List'
      TabOrder = 2
      OnClick = Button3Click
    end
  end
end