object MainFrm: TMainFrm
  Left = 603
  Height = 297
  Top = 302
  Width = 559
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'JSON Writer'
  ClientHeight = 297
  ClientWidth = 559
  Font.CharSet = RUSSIAN_CHARSET
  Font.Color = clBlack
  Font.Height = -15
  Font.Name = 'Times New Roman'
  Font.Pitch = fpVariable
  Font.Quality = fqDraft
  OnCreate = FormCreate
  Position = poScreenCenter
  LCLVersion = '1.6.0.1'
  object JSONFileNameEd: TFileNameEdit
    Left = 16
    Height = 25
    Top = 32
    Width = 528
    Filter = 'JSON File (*.json)|*.json'
    FilterIndex = 0
    HideDirectories = False
    ButtonWidth = 23
    NumGlyphs = 1
    Flat = True
    FocusOnButtonClick = True
    MaxLength = 0
    TabOrder = 0
  end
  object JSONFileNameEdLbl: TLabel
    Left = 16
    Height = 17
    Top = 8
    Width = 72
    Caption = '&Имя файла:'
    ParentColor = False
  end
  object KeyEdt: TLabeledEdit
    Left = 16
    Height = 25
    Top = 88
    Width = 528
    EditLabel.AnchorSideLeft.Control = KeyEdt
    EditLabel.AnchorSideRight.Control = KeyEdt
    EditLabel.AnchorSideRight.Side = asrBottom
    EditLabel.AnchorSideBottom.Control = KeyEdt
    EditLabel.Left = 16
    EditLabel.Height = 17
    EditLabel.Top = 68
    EditLabel.Width = 528
    EditLabel.Caption = '&Ключ:'
    EditLabel.ParentColor = False
    TabOrder = 1
  end
  object RecTypeEd: TRadioGroup
    Left = 16
    Height = 48
    Top = 128
    Width = 528
    AutoFill = True
    Caption = '&Тип:'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 3
    ClientHeight = 26
    ClientWidth = 524
    Columns = 3
    ItemIndex = 0
    Items.Strings = (
      'Строка'
      'Число'
      'Правда/Ложь'
    )
    OnSelectionChanged = RecTypeEdSelectionChanged
    TabOrder = 2
  end
  object ValuePages: TPageControl
    Left = 16
    Height = 48
    Top = 200
    Width = 528
    ActivePage = StringSht
    ShowTabs = False
    TabIndex = 0
    TabOrder = 3
    object StringSht: TTabSheet
      Caption = 'StringSht'
      ClientHeight = 40
      ClientWidth = 520
      object sValueEd: TEdit
        Left = 8
        Height = 25
        Top = 8
        Width = 504
        TabOrder = 0
      end
    end
    object IntegerSht: TTabSheet
      Caption = 'IntegerSht'
      ClientHeight = 40
      ClientWidth = 520
      object iValueEd: TSpinEdit
        Left = 8
        Height = 25
        Top = 8
        Width = 498
        Alignment = taRightJustify
        MaxValue = 2147483647
        MinValue = -2147483648
        TabOrder = 0
      end
    end
    object BooleanSht: TTabSheet
      Caption = 'BooleanSht'
      ClientHeight = 40
      ClientWidth = 520
      object bValueEd: TComboBox
        Left = 8
        Height = 25
        Top = 8
        Width = 496
        ItemHeight = 17
        ItemIndex = 0
        Items.Strings = (
          'Правда'
          'Ложь'
        )
        Style = csDropDownList
        TabOrder = 0
        Text = 'Правда'
      end
    end
  end
  object ValueEdLbl: TLabel
    Left = 16
    Height = 17
    Top = 183
    Width = 115
    Caption = '&Введите значение:'
    ParentColor = False
  end
  object ExitBtn: TButton
    Left = 432
    Height = 25
    Top = 256
    Width = 112
    Caption = 'В&ыход'
    Default = True
    OnClick = ExitBtnClick
    TabOrder = 4
  end
  object WriteBtn: TButton
    Left = 296
    Height = 25
    Top = 256
    Width = 131
    Caption = '&Записать'
    OnClick = WriteBtnClick
    TabOrder = 5
  end
end