object MainFrm: TMainFrm Left = 603 Height = 297 Top = 302 Width = 559 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'JSON Font Demo' 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 Position = poScreenCenter LCLVersion = '1.6.4.0' 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 ExitBtn: TButton Left = 432 Height = 25 Top = 256 Width = 112 Caption = 'В&ыход' Default = True OnClick = ExitBtnClick TabOrder = 2 end object WriteBtn: TButton Left = 296 Height = 25 Top = 256 Width = 131 Caption = '&Записать' OnClick = WriteBtnClick TabOrder = 3 end object FontDemoLbl: TLabel Left = 16 Height = 56 Top = 136 Width = 528 AutoSize = False Caption = 'Это пример шрифта' ParentColor = False end object ReadBtn: TButton Left = 160 Height = 25 Top = 256 Width = 131 Caption = '&Прочитать' OnClick = ReadBtnClick TabOrder = 4 end object SelectFontBtn: TButton Left = 16 Height = 25 Top = 203 Width = 528 Caption = 'В&ыбрать шрифт' OnClick = SelectFontBtnClick TabOrder = 5 end object FontDialog: TFontDialog MinFontSize = 0 MaxFontSize = 0 left = 440 top = 8 end end