L2_dfm
object FldDlgFr: TFldDlgFr
Left = 301
Top = 184
BorderIcons = []
BorderStyle = bsDialog
Caption = 'Новый реквизит (поле БД)'
ClientHeight = 116
ClientWidth = 457
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnActivate = FormActivate
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object FldNameLbl: TLabel
Left = 4
Top = 7
Width = 94
Height = 13
Caption = 'Идентификатор'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object FldCaptionLbl: TLabel
Left = 4
Top = 28
Width = 89
Height = 13
Caption = 'Наименование'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object FldDescrLbl: TLabel
Left = 4
Top = 49
Width = 59
Height = 13
Caption = 'Описание'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object FldDataTypeLbl: TLabel
Left = 4
Top = 70
Width = 70
Height = 13
Caption = 'Тип данных'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 372
Top = 70
Width = 46
Height = 13
Caption = 'Размер'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label1: TLabel
Left = 299
Top = 7
Width = 89
Height = 13
Caption = 'Группа данных'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object FldNameEdit: TEdit
Left = 100
Top = 3
Width = 190
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = ' MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
Text = 'FldNameEdit'
OnKeyUp = FldNameEditKeyUp
end
object FldCaptionEdit: TEdit
Left = 100
Top = 24
Width = 190
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
Text = 'FldCaptionEdit'
OnKeyUp = FldNameEditKeyUp
end
object FldDescrEdit: TEdit
Left = 100
Top = 45
Width = 354
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
Text = 'FldDescrEdit'
OnKeyUp = FldNameEditKeyUp
end
object OkBtn: TButton
Left = 147
Top = 92
Width = 75
Height = 20
Caption = 'Ok'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = OkBtnClick
end
object CancelBtn: TButton
Left = 227
Top = 92
Width = 75
Height = 20
Caption = 'Отмена'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = CancelBtnClick
end
object FldSizeEdit: TEdit
Left = 419
Top = 66
Width = 35
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
Text = 'FldSizeEdit'
Visible = False
OnKeyPress = FldSizeEditKeyPress
end
object TypeGroupCmBox: TComboBox
Left = 299
Top = 24
Width = 155
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 13
ParentFont = False
TabOrder = 6
Text = 'Группа данных'
OnChange = TypeGroupCmBoxChange
end
object TypesComboBox: TComboBox
Left = 100
Top = 66
Width = 262
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 13
ParentFont = False
TabOrder = 7
Text = 'TypesComboBox'
OnClick = TypesComboBoxClick
OnKeyPress = TypesComboBoxKeyPress
end
end
