unit8.~dfm

Dicom Delphi code 看DICOM图像

object frmSetting: TfrmSetting
  Left = 746
  Top = 106
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Setting'
  ClientHeight = 415
  ClientWidth = 376
  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 Button1: TButton
    Left = 208
    Top = 384
    Width = 75
    Height = 25
    Caption = 'OK'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 296
    Top = 384
    Width = 75
    Height = 25
    Caption = 'Cancel'
    TabOrder = 1
    OnClick = Button2Click
  end
  object PageControl1: TPageControl
    Left = 8
    Top = 8
    Width = 361
    Height = 369
    ActivePage = TabSheet1
    TabOrder = 2
    object TabSheet1: TTabSheet
      Caption = 'General'
      object GroupBox1: TGroupBox
        Left = 8
        Top = 168
        Width = 337
        Height = 89
        Caption = 'Overlay'
        TabOrder = 0
        object rgTLanguage: TRadioGroup
          Left = 16
          Top = 16
          Width = 89
          Height = 65
          Caption = 'Text Language'
          Items.Strings = (
            'English'
            'CHS')
          TabOrder = 0
        end
        object rgTColor: TRadioGroup
          Left = 128
          Top = 16
          Width = 89
          Height = 65
          Caption = 'Text Color'
          Items.Strings = (
            'White'
            'Black')
          TabOrder = 1
        end
        object rgShowRuler: TRadioGroup
          Left = 232
          Top = 16
          Width = 89
          Height = 65
          Caption = 'Ruler'
          Items.Strings = (
            'Visible'
            'Invisible')
          TabOrder = 2
        end
      end
      object GroupBox2: TGroupBox
        Left = 8
        Top = 56
        Width = 337
        Height = 41
        Caption = 'ActiveX Prompt Message Language Type'
        TabOrder = 1
        object Panel1: TPanel
          Left = 8
          Top = 16
          Width = 321
          Height = 17
          BevelOuter = bvNone
          TabOrder = 0
          object rbPML1: TRadioButton
            Left = 40
            Top = 0
            Width = 113
            Height = 17
            Caption = 'English'
            TabOrder = 0
          end
          object rbPML2: TRadioButton
            Left = 200
            Top = 0
            Width = 113
            Height = 17
            Caption = 'CHS'
            TabOrder = 1
          end
        end
      end
      object GroupBox3: TGroupBox
        Left = 8
        Top = 104
        Width = 337
        Height = 57
        Caption = 'Magnification'
        TabOrder = 2
        object Label1: TLabel
          Left = 24
          Top = 27
          Width = 42
          Height = 13
          Caption = 'Radious:'
        end
        object Label2: TLabel
          Left = 176
          Top = 27
          Width = 48
          Height = 13
          Caption = 'Area Size:'
        end
        object cbMRadious: TComboBox
          Left = 72
          Top = 24
          Width = 81
          Height = 21
          ItemHeight = 13
          TabOrder = 0
          Items.Strings = (
            '2 X'
            '4 X'
            '6 X')
        end
        object cbMASize: TComboBox
          Left = 232
          Top = 24
          Width = 81
          Height = 21
          ItemHeight = 13
          TabOrder = 1
          Items.Strings = (
            '60 px'
            '80 px'
            '100 px'
            '120 px')
        end
      end
      object GroupBox4: TGroupBox
        Left = 8
        Top = 8
        Width = 337
        Height = 41
        Caption = 'Show Error Message while Failed to Open File'
        TabOrder = 3
        object Panel2: TPanel
          Left = 8
          Top = 16
          Width = 321
          Height = 17
          BevelOuter = bvNone
          TabOrder = 0
          object rbEREnable: TRadioButton
            Left = 40
            Top = 0
            Width = 113
            Height = 17
            Caption = 'Enable'
            TabOrder = 0
          end
          object rbERDisable: TRadioButton
            Left = 200
            Top = 0
            Width = 113
            Height = 17
            Caption = 'Disable'
            TabOrder = 1
          end
        end
      end
      object rgMouseScroll: TRadioGroup
        Left = 8
        Top = 264
        Width = 161
        Height = 65
        Caption = 'MouseWheel for MultiSlice'
        Items.Strings = (
          'Enable'
          'Disable')
        TabOrder = 4
      end
      object rgSmoothImage: TRadioGroup
        Left = 184
        Top = 264
        Width = 161
        Height = 65
        Caption = 'Smooth Image'
        Items.Strings = (
          'Enable'
          'Disable')
        TabOrder = 5
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Measurement'
      ImageIndex = 1
      object GroupBox5: TGroupBox
        Left = 8
        Top = 200
        Width = 337
        Height = 129
        Caption = 'Other'
        TabOrder = 0
        object GroupBox8: TGroupBox
          Left = 16
          Top = 24
          Width = 145
          Height = 89
          Caption = 'Pixel Space'
          TabOrder = 0
          object Label5: TLabel
            Left = 16
            Top = 28
            Width = 54
            Height = 13
            Caption = 'Calibrate X:'
          end
          object Label9: TLabel
            Left = 16
            Top = 60
            Width = 54
            Height = 13
            Caption = 'Calibrate Y:'
          end
          object edtCXRatio: TEdit
            Left = 72
            Top = 25
            Width = 57
            Height = 21
            TabOrder = 0
          end
          object edtCYRatio: TEdit
            Left = 72
            Top = 57
            Width = 57
            Height = 21
            TabOrder = 1
          end
        end
        object GroupBox10: TGroupBox
          Left = 176
          Top = 24
          Width = 145
          Height = 89
          Caption = 'Measurement Item Count'
          TabOrder = 1
          object Label10: TLabel
            Left = 16
            Top = 28
            Width = 54
            Height = 13
            Caption = 'Item Count:'
          end
          object edtMItemCount: TEdit
            Left = 72
            Top = 25
            Width = 57
            Height = 21
            TabOrder = 0
          end
        end
      end
      object GroupBox6: TGroupBox
        Left = 8
        Top = 8
        Width = 337
        Height = 57
        Caption = 'Annotation Text'
        TabOrder = 1
        object Label3: TLabel
          Left = 24
          Top = 27
          Width = 27
          Height = 13
          Caption = 'Color:'
        end
        object Label6: TLabel
          Left = 176
          Top = 27
          Width = 47
          Height = 13
          Caption = 'Font Size:'
        end
        object cbATColor: TComboBox
          Left = 56
          Top = 24
          Width = 81
          Height = 21
          ItemHeight = 13
          TabOrder = 0
          Items.Strings = (
            'Red'
            'Green'
            'Blue'
            'Yellow'
            'White'
            'Black')
        end
        object cbATSize: TComboBox
          Left = 227
          Top = 24
          Width = 81
          Height = 21
          ItemHeight = 13
          TabOrder = 1
          Items.Strings = (
            '8'
            '9'
            '10'
            '12'
            '14'
            '16'
            '18')
        end
      end
      object GroupBox7: TGroupBox
        Left = 8
        Top = 136
        Width = 337
        Height = 57
        Caption = 'Line'
        TabOrder = 2
        object Label4: TLabel
          Left = 24
          Top = 27
          Width = 27
          Height = 13
          Caption = 'Color:'
        end
        object cbLineColor: TComboBox
          Left = 56
          Top = 24
          Width = 81
          Height = 21
          ItemHeight = 13
          TabOrder = 0
          Items.Strings = (
            'Red'
            'Green'
            'Blue'
            'Yellow'
            'White'
            'Black')
        end
      end
      object GroupBox9: TGroupBox
        Left = 8
        Top = 72
        Width = 337
        Height = 57
        Caption = 'Result Text'
        TabOrder = 3
        object Label7: TLabel
          Left = 24
          Top = 27
          Width = 27
          Height = 13
          Caption = 'Color:'
        end
        object Label8: TLabel
          Left = 176
          Top = 27
          Width = 47
          Height = 13
          Caption = 'Font Size:'
        end
        object cbRTColor: TComboBox
          Left = 56
          Top = 24
          Width = 81
          Height = 21
          ItemHeight = 13
          TabOrder = 0
          Items.Strings = (
            'Red'
            'Green'
            'Blue'
            'Yellow'
            'White'
            'Black')
        end
        object cbRTSize: TComboBox
          Left = 227
          Top = 24
          Width = 81
          Height = 21
          ItemHeight = 13
          TabOrder = 1
          Items.Strings = (
            '8'
            '9'
            '10'
            '12'
            '14'
            '16'
            '18')
        end
      end
    end
  end
  object cbAssociaFile: TCheckBox
    Left = 8
    Top = 387
    Width = 193
    Height = 17
    Caption = 'Associate file with extension '#39'dcm'#39
    TabOrder = 3
  end
end