From 6ad9a1111148d51519424b5cac4171a0128a22d0 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sun, 25 Oct 2020 08:08:33 +0000
Subject: [PATCH] IdeIntf: Fix anchors in TFieldsListFrm. Issue #37276.

git-svn-id: trunk@64071 -
---
 components/ideintf/fieldslist.lfm | 42 +++++++++++++++++++------------
 1 file changed, 26 insertions(+), 16 deletions(-)

diff --git a/components/ideintf/fieldslist.lfm b/components/ideintf/fieldslist.lfm
index 6a6ba67e34..46fdd84d98 100644
--- a/components/ideintf/fieldslist.lfm
+++ b/components/ideintf/fieldslist.lfm
@@ -1,21 +1,24 @@
 object FieldsListFrm: TFieldsListFrm
-  Left = 358
-  Height = 271
-  Top = 99
-  Width = 173
+  Left = 414
+  Height = 280
+  Top = 116
+  Width = 195
   ActiveControl = BitBtnOk
   Caption = 'FieldsListFrm'
-  ClientHeight = 271
-  ClientWidth = 173
+  ClientHeight = 280
+  ClientWidth = 195
   OnClose = FormClose
   OnCreate = FormCreate
-  LCLVersion = '1.9.0.0'
+  LCLVersion = '2.1.0.0'
   object BitBtnOk: TBitBtn
+    AnchorSideBottom.Side = asrBottom
     Left = 9
-    Height = 25
+    Height = 34
     Top = 241
-    Width = 75
+    Width = 77
     Anchors = [akLeft, akBottom]
+    AutoSize = True
+    BorderSpacing.Around = 6
     Caption = '&Create'
     Default = True
     Kind = bkOK
@@ -24,11 +27,16 @@ object FieldsListFrm: TFieldsListFrm
     TabOrder = 0
   end
   object BitBtnCancel: TBitBtn
-    Left = 89
-    Height = 25
+    AnchorSideLeft.Control = BitBtnOk
+    AnchorSideLeft.Side = asrBottom
+    AnchorSideTop.Control = BitBtnOk
+    AnchorSideTop.Side = asrCenter
+    Left = 92
+    Height = 34
     Top = 241
-    Width = 75
-    Anchors = [akLeft, akBottom]
+    Width = 76
+    AutoSize = True
+    BorderSpacing.Around = 6
     Cancel = True
     Caption = 'Cancel'
     Kind = bkCancel
@@ -36,14 +44,16 @@ object FieldsListFrm: TFieldsListFrm
     TabOrder = 1
   end
   object ListBox1: TListBox
+    AnchorSideBottom.Control = BitBtnOk
     Left = 0
-    Height = 232
+    Height = 235
     Top = 0
-    Width = 173
-    Align = alTop
+    Width = 192
     Anchors = [akTop, akLeft, akRight, akBottom]
     ItemHeight = 0
     MultiSelect = True
+    ScrollWidth = 190
     TabOrder = 2
+    TopIndex = -1
   end
 end