fix: missing control anchors on create-database dialog

ansgarbecker · ansgarbecker · commit d26f1282406b · 2025-12-20T16:09:38.000+01:00
diff --git a/source/createdatabase.lfm b/source/createdatabase.lfm
@@ -8,13 +8,14 @@ object CreateDatabaseForm: TCreateDatabaseForm
   ClientWidth = 396
   Color = clBtnFace
   DesignTimePPI = 120
+  Position = poOwnerFormCenter
   OnClose = FormClose
   OnCreate = FormCreate
   OnShow = FormShow
-  Position = poOwnerFormCenter
   object lblDBName: TLabel
+    AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = Owner
-    Left = 10
+    Left = 6
     Height = 20
     Top = 6
     Width = 43
@@ -23,9 +24,10 @@ object CreateDatabaseForm: TCreateDatabaseForm
     FocusControl = editDBName
   end
   object lblCollation: TLabel
+    AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = editDBName
     AnchorSideTop.Side = asrBottom
-    Left = 10
+    Left = 6
     Height = 20
     Top = 40
     Width = 63
@@ -34,15 +36,15 @@ object CreateDatabaseForm: TCreateDatabaseForm
     FocusControl = comboCollation
   end
   object lblCreateCode: TLabel
+    AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = btnOK
     AnchorSideTop.Side = asrBottom
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
-    Left = 10
+    Left = 6
     Height = 20
-    Top = 137
-    Width = 380
-    Anchors = [akTop, akLeft, akRight]
+    Top = 136
+    Width = 88
     BorderSpacing.Around = 6
     Caption = 'CREATE code'
   end
@@ -54,17 +56,18 @@ object CreateDatabaseForm: TCreateDatabaseForm
     Left = 120
     Height = 20
     Top = 74
-    Width = 270
-    Anchors = [akTop, akLeft, akRight]
+    Width = 101
     BorderSpacing.Around = 6
     Caption = 'Servers default:'
   end
   object editDBName: TEdit
     AnchorSideTop.Control = Owner
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
     Left = 120
     Height = 28
     Top = 6
-    Width = 266
+    Width = 270
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Around = 6
     TabOrder = 0
@@ -74,38 +77,47 @@ object CreateDatabaseForm: TCreateDatabaseForm
   object btnOK: TButton
     AnchorSideTop.Control = lblServerDefaultCollation
     AnchorSideTop.Side = asrBottom
-    Left = 191
-    Height = 31
+    AnchorSideRight.Control = btnCancel
+    Left = 184
+    Height = 30
     Top = 100
-    Width = 94
+    Width = 100
     Anchors = [akTop, akRight]
+    AutoSize = True
     BorderSpacing.Around = 6
     Caption = 'OK'
+    Constraints.MinWidth = 100
     Default = True
     TabOrder = 2
     OnClick = btnOKClick
   end
   object btnCancel: TButton
     AnchorSideTop.Control = lblServerDefaultCollation
     AnchorSideTop.Side = asrBottom
-    Left = 292
-    Height = 31
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    Left = 290
+    Height = 30
     Top = 100
-    Width = 94
+    Width = 100
     Anchors = [akTop, akRight]
+    AutoSize = True
     BorderSpacing.Around = 6
     Cancel = True
     Caption = 'Cancel'
+    Constraints.MinWidth = 100
     ModalResult = 2
     TabOrder = 3
   end
   object comboCollation: TComboBox
     AnchorSideTop.Control = editDBName
     AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
     Left = 120
     Height = 28
     Top = 40
-    Width = 266
+    Width = 270
     Anchors = [akTop, akLeft, akRight]
     BorderSpacing.Around = 6
     DropDownCount = 16
@@ -116,12 +128,17 @@ object CreateDatabaseForm: TCreateDatabaseForm
     OnChange = Modified
   end
   inline SynMemoCreateCode: TSynEdit
+    AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = lblCreateCode
     AnchorSideTop.Side = asrBottom
-    Left = 10
-    Height = 111
-    Top = 163
-    Width = 376
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    AnchorSideBottom.Control = Owner
+    AnchorSideBottom.Side = asrBottom
+    Left = 6
+    Height = 116
+    Top = 162
+    Width = 384
     BorderSpacing.Around = 6
     Anchors = [akTop, akLeft, akRight, akBottom]
     Font.Color = clWindowText
