object frFieldsForm: TfrFieldsForm Left = 337 Height = 351 Top = 123 Width = 307 ActiveControl = ValList BorderStyle = bsDialog Caption = 'Insert DB field' ClientHeight = 351 ClientWidth = 307 KeyPreview = True OnActivate = FormActivate OnCreate = FormCreate OnDeactivate = FormDeactivate OnKeyDown = FormKeyDown Position = poScreenCenter LCLVersion = '0.9.29' object Label1: TLabel AnchorSideLeft.Control = Owner AnchorSideTop.Control = Owner Left = 6 Height = 18 Top = 6 Width = 90 BorderSpacing.Around = 6 Caption = '&Available DB''s' FocusControl = ValCombo ParentColor = False end object ValCombo: TComboBox AnchorSideLeft.Control = Owner AnchorSideTop.Control = Label1 AnchorSideTop.Side = asrBottom AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom Left = 6 Height = 31 Top = 30 Width = 295 HelpContext = 10 Anchors = [akTop, akLeft, akRight] AutoSelect = False BorderSpacing.Around = 6 ItemHeight = 0 OnChange = ValComboClick Style = csDropDownList TabOrder = 0 end object ValList: TListBox AnchorSideLeft.Control = Owner AnchorSideTop.Control = ValCombo AnchorSideTop.Side = asrBottom AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = Owner AnchorSideBottom.Side = asrBottom Left = 6 Height = 278 Top = 67 Width = 295 HelpContext = 23 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Around = 6 ClickOnSelChange = False ItemHeight = 0 OnDblClick = ValListDblClick OnKeyDown = ValListKeyDown OnSelectionChange = ValListSelectionChange TabOrder = 1 TopIndex = -1 end end