object CalcFieldsListForm: TCalcFieldsListForm Left = 458 Top = 251 BorderIcons = [] BorderStyle = bsDialog Caption = 'User-defined fields' ClientHeight = 412 ClientWidth = 376 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] PixelsPerInch = 96 Position = poScreenCenter Scaled = False TextHeight = 13 object Bevel1: TBevel Left = 16 Top = 16 Width = 345 Height = 73 end object Label2: TLabel Tag = 1000 Left = 32 Top = 28 Width = 185 Height = 21 AutoSize = False Caption = 'Current table:' end object Bevel2: TBevel Left = 16 Top = 104 Width = 345 Height = 249 end object Label1: TLabel Tag = 1001 Left = 32 Top = 120 Width = 313 Height = 17 AutoSize = False Caption = 'Available user-defined fields for table:' end object ComboBox1: TComboBox Left = 32 Top = 52 Width = 313 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 0 OnChange = ComboBox1Change end object ListBox1: TListBox Left = 32 Top = 144 Width = 313 Height = 153 ItemHeight = 13 TabOrder = 1 end object EditBitBtn: TBitBtn Tag = 1004 Left = 31 Top = 309 Width = 100 Height = 33 Caption = 'Edit' TabOrder = 2 OnClick = EditBitBtnClick end object AddBitBtn: TBitBtn Tag = 1002 Left = 138 Top = 309 Width = 100 Height = 33 Caption = 'New' TabOrder = 3 OnClick = AddBitBtnClick end object DeleteBitBtn: TBitBtn Tag = 1003 Left = 245 Top = 309 Width = 100 Height = 33 Caption = 'Delete' TabOrder = 4 OnClick = DeleteBitBtnClick end object OkButton: TBitBtn Tag = 1005 Left = 143 Top = 368 Width = 89 Height = 33 TabOrder = 5 Kind = bkOK end end