From 7567ec9f59a5cb3dcd4be93614f58d924e932b5a Mon Sep 17 00:00:00 2001 From: Ansgar Becker Date: Mon, 31 Mar 2025 21:27:34 +0200 Subject: [PATCH] Issue #1482: fix anchor siblings --- source/loaddata.lfm | 77 +++++++++++++++++++++++++++------------------ 1 file changed, 47 insertions(+), 30 deletions(-) diff --git a/source/loaddata.lfm b/source/loaddata.lfm index 8492bb68..374dca88 100644 --- a/source/loaddata.lfm +++ b/source/loaddata.lfm @@ -17,12 +17,16 @@ object loaddataform: Tloaddataform OnShow = FormShow Position = poMainFormCenter object btnImport: TButton + AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom - Left = 448 + AnchorSideBottom.Control = Owner + AnchorSideBottom.Side = asrBottom + Left = 556 Height = 31 - Top = 645 + Top = 651 Width = 94 Anchors = [akRight, akBottom] + BorderSpacing.Around = 6 Caption = 'Import!' Enabled = False ModalResult = 1 @@ -30,28 +34,33 @@ object loaddataform: Tloaddataform OnClick = btnImportClick end object btnCancel: TButton - AnchorSideRight.Side = asrBottom - Left = 548 + AnchorSideRight.Control = btnImport + AnchorSideBottom.Control = Owner + AnchorSideBottom.Side = asrBottom + Left = 456 Height = 31 - Top = 645 + Top = 651 Width = 94 Anchors = [akRight, akBottom] + BorderSpacing.Around = 6 Caption = 'Cancel' ModalResult = 2 TabOrder = 7 end object grpFilename: TGroupBox + AnchorSideLeft.Control = Owner + AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom - Left = 10 + Left = 6 Height = 99 Top = 10 - Width = 632 + Width = 644 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Around = 6 Caption = 'Input file' ClientHeight = 74 - ClientWidth = 628 + ClientWidth = 640 ParentBackground = False TabOrder = 0 object lblFilename: TLabel @@ -77,7 +86,7 @@ object loaddataform: Tloaddataform Left = 104 Height = 28 Top = 6 - Width = 512 + Width = 524 Anchors = [akTop, akLeft, akRight] BorderSpacing.Around = 6 ButtonWidth = 29 @@ -98,7 +107,7 @@ object loaddataform: Tloaddataform Left = 104 Height = 28 Top = 40 - Width = 512 + Width = 524 Anchors = [akTop, akLeft, akRight] BorderSpacing.Around = 6 DropDownCount = 16 @@ -111,8 +120,9 @@ object loaddataform: Tloaddataform object grpChars: TGroupBox AnchorSideTop.Control = grpFilename AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom - Left = 278 + Left = 286 Height = 169 Top = 115 Width = 364 @@ -219,17 +229,18 @@ object loaddataform: Tloaddataform end end object grpOptions: TGroupBox + AnchorSideLeft.Control = Owner AnchorSideTop.Control = grpFilename AnchorSideTop.Side = asrBottom - Left = 10 + Left = 6 Height = 219 Top = 115 - Width = 261 + Width = 265 Anchors = [akTop, akLeft, akRight] BorderSpacing.Around = 6 Caption = 'Options' ClientHeight = 194 - ClientWidth = 257 + ClientWidth = 261 ParentBackground = False TabOrder = 1 object lblIgnoreLinesCount: TLabel @@ -264,7 +275,7 @@ object loaddataform: Tloaddataform Left = 12 Height = 24 Top = 43 - Width = 241 + Width = 245 Anchors = [akTop, akLeft, akRight] BorderSpacing.Around = 6 Caption = 'Low priority, avoid high server load' @@ -278,7 +289,7 @@ object loaddataform: Tloaddataform Left = 12 Height = 24 Top = 73 - Width = 241 + Width = 245 Anchors = [akTop, akLeft, akRight] BorderSpacing.Around = 6 Caption = 'Input file contains local formatted numbers, e.g. 1.234,56 in Germany' @@ -290,7 +301,7 @@ object loaddataform: Tloaddataform Left = 12 Height = 24 Top = 103 - Width = 241 + Width = 245 Anchors = [akTop, akLeft, akRight] BorderSpacing.Around = 6 Caption = 'Truncate destination table before import' @@ -302,7 +313,7 @@ object loaddataform: Tloaddataform Left = 12 Height = 24 Top = 133 - Width = 241 + Width = 245 Anchors = [akTop, akLeft, akRight] BorderSpacing.Around = 6 Caption = 'Keep dialog open after import' @@ -310,12 +321,13 @@ object loaddataform: Tloaddataform end end object grpDuplicates: TRadioGroup + AnchorSideLeft.Control = Owner AnchorSideTop.Control = grpOptions AnchorSideTop.Side = asrBottom - Left = 10 + Left = 6 Height = 154 Top = 340 - Width = 261 + Width = 265 Anchors = [akTop, akLeft, akRight] AutoFill = True BorderSpacing.Around = 6 @@ -328,7 +340,7 @@ object loaddataform: Tloaddataform ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 ClientHeight = 129 - ClientWidth = 257 + ClientWidth = 261 ItemIndex = 2 Items.Strings = ( 'INSERT (may throw errors)' @@ -339,12 +351,14 @@ object loaddataform: Tloaddataform TabOrder = 3 end object grpParseMethod: TRadioGroup + AnchorSideLeft.Control = Owner AnchorSideTop.Control = grpDuplicates AnchorSideTop.Side = asrBottom - Left = 10 - Height = 137 + AnchorSideBottom.Control = btnImport + Left = 6 + Height = 145 Top = 500 - Width = 261 + Width = 265 Anchors = [akTop, akLeft, akRight, akBottom] AutoFill = True BorderSpacing.Around = 6 @@ -356,8 +370,8 @@ object loaddataform: Tloaddataform ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 112 - ClientWidth = 257 + ClientHeight = 120 + ClientWidth = 261 ItemIndex = 0 Items.Strings = ( 'Server parses file contents (LOAD DATA)' @@ -370,14 +384,17 @@ object loaddataform: Tloaddataform object grpDestination: TGroupBox AnchorSideTop.Control = grpChars AnchorSideTop.Side = asrBottom - Left = 278 - Height = 347 + AnchorSideRight.Control = Owner + AnchorSideRight.Side = asrBottom + AnchorSideBottom.Control = btnImport + Left = 286 + Height = 355 Top = 290 Width = 364 Anchors = [akTop, akRight, akBottom] BorderSpacing.Around = 6 Caption = 'Destination' - ClientHeight = 322 + ClientHeight = 330 ClientWidth = 360 ParentBackground = False TabOrder = 5 @@ -439,7 +456,7 @@ object loaddataform: Tloaddataform AnchorSideTop.Control = comboTable AnchorSideTop.Side = asrBottom Left = 140 - Height = 236 + Height = 244 Top = 75 Width = 204 Anchors = [akTop, akLeft, akRight, akBottom]