object MainFrm: TMainFrm Left = 603 Height = 221 Top = 302 Width = 559 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'JSON Reader' ClientHeight = 221 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 = ( 'Строка' 'Число' 'Правда/Ложь' ) TabOrder = 2 end object ExitBtn: TButton Left = 432 Height = 25 Top = 184 Width = 112 Caption = 'В&ыход' Default = True OnClick = ExitBtnClick TabOrder = 3 end object ReadBtn: TButton Left = 296 Height = 25 Top = 184 Width = 131 Caption = '&Прочитать' OnClick = ReadBtnClick TabOrder = 4 end end