Issue #1482: fix some anchor siblings

This commit is contained in:
Ansgar Becker
2025-03-31 17:32:59 +02:00
parent 306b74fc96
commit b382e02f86
2 changed files with 38 additions and 24 deletions

View File

@ -17,45 +17,47 @@ object loaddataform: Tloaddataform
OnShow = FormShow OnShow = FormShow
Position = poMainFormCenter Position = poMainFormCenter
object btnImport: TButton object btnImport: TButton
AnchorSideRight.Side = asrBottom
Left = 448 Left = 448
Height = 31 Height = 31
Top = 645 Top = 645
Width = 94 Width = 94
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
Caption = 'Import!' Caption = 'Import!'
Default = True
Enabled = False Enabled = False
ModalResult = 1 ModalResult = 1
TabOrder = 6 TabOrder = 6
OnClick = btnImportClick OnClick = btnImportClick
end end
object btnCancel: TButton object btnCancel: TButton
AnchorSideRight.Side = asrBottom
Left = 548 Left = 548
Height = 31 Height = 31
Top = 645 Top = 645
Width = 94 Width = 94
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
Cancel = True
Caption = 'Cancel' Caption = 'Cancel'
ModalResult = 2 ModalResult = 2
TabOrder = 7 TabOrder = 7
end end
object grpFilename: TGroupBox object grpFilename: TGroupBox
AnchorSideRight.Side = asrBottom
Left = 10 Left = 10
Height = 97 Height = 99
Top = 10 Top = 10
Width = 632 Width = 632
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Input file' Caption = 'Input file'
ClientHeight = 72 ClientHeight = 74
ClientWidth = 628 ClientWidth = 628
ParentBackground = False ParentBackground = False
TabOrder = 0 TabOrder = 0
object lblFilename: TLabel object lblFilename: TLabel
Left = 12 Left = 6
Height = 20 Height = 20
Top = 4 Top = 10
Width = 63 Width = 63
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Filename:' Caption = 'Filename:'
@ -64,18 +66,18 @@ object loaddataform: Tloaddataform
object lblEncoding: TLabel object lblEncoding: TLabel
AnchorSideTop.Control = editFilename AnchorSideTop.Control = editFilename
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 12 Left = 6
Height = 20 Height = 20
Top = 34 Top = 40
Width = 65 Width = 65
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Encoding:' Caption = 'Encoding:'
end end
object editFilename: TEditButton object editFilename: TEditButton
Left = 110 Left = 104
Height = 28 Height = 28
Top = 0 Top = 6
Width = 506 Width = 512
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ButtonWidth = 29 ButtonWidth = 29
@ -93,10 +95,10 @@ object loaddataform: Tloaddataform
object comboEncoding: TComboBox object comboEncoding: TComboBox
AnchorSideTop.Control = editFilename AnchorSideTop.Control = editFilename
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 110 Left = 104
Height = 28 Height = 28
Top = 34 Top = 40
Width = 506 Width = 512
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
DropDownCount = 16 DropDownCount = 16
@ -107,9 +109,12 @@ object loaddataform: Tloaddataform
end end
end end
object grpChars: TGroupBox object grpChars: TGroupBox
AnchorSideTop.Control = grpFilename
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 278 Left = 278
Height = 169 Height = 169
Top = 122 Top = 115
Width = 364 Width = 364
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -214,9 +219,11 @@ object loaddataform: Tloaddataform
end end
end end
object grpOptions: TGroupBox object grpOptions: TGroupBox
AnchorSideTop.Control = grpFilename
AnchorSideTop.Side = asrBottom
Left = 10 Left = 10
Height = 219 Height = 219
Top = 122 Top = 115
Width = 261 Width = 261
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -303,9 +310,11 @@ object loaddataform: Tloaddataform
end end
end end
object grpDuplicates: TRadioGroup object grpDuplicates: TRadioGroup
AnchorSideTop.Control = grpOptions
AnchorSideTop.Side = asrBottom
Left = 10 Left = 10
Height = 154 Height = 154
Top = 349 Top = 340
Width = 261 Width = 261
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoFill = True AutoFill = True
@ -330,9 +339,11 @@ object loaddataform: Tloaddataform
TabOrder = 3 TabOrder = 3
end end
object grpParseMethod: TRadioGroup object grpParseMethod: TRadioGroup
AnchorSideTop.Control = grpDuplicates
AnchorSideTop.Side = asrBottom
Left = 10 Left = 10
Height = 127 Height = 137
Top = 510 Top = 500
Width = 261 Width = 261
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
AutoFill = True AutoFill = True
@ -345,7 +356,7 @@ object loaddataform: Tloaddataform
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 102 ClientHeight = 112
ClientWidth = 257 ClientWidth = 257
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
@ -357,14 +368,16 @@ object loaddataform: Tloaddataform
TabOrder = 4 TabOrder = 4
end end
object grpDestination: TGroupBox object grpDestination: TGroupBox
AnchorSideTop.Control = grpChars
AnchorSideTop.Side = asrBottom
Left = 278 Left = 278
Height = 338 Height = 347
Top = 299 Top = 290
Width = 364 Width = 364
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Destination' Caption = 'Destination'
ClientHeight = 313 ClientHeight = 322
ClientWidth = 360 ClientWidth = 360
ParentBackground = False ParentBackground = False
TabOrder = 5 TabOrder = 5
@ -426,7 +439,7 @@ object loaddataform: Tloaddataform
AnchorSideTop.Control = comboTable AnchorSideTop.Control = comboTable
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 140 Left = 140
Height = 227 Height = 236
Top = 75 Top = 75
Width = 204 Width = 204
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]

View File

@ -17,6 +17,7 @@ object frmPreferences: TfrmPreferences
OnShow = FormShow OnShow = FormShow
Position = poMainFormCenter Position = poMainFormCenter
object pagecontrolMain: TPageControl object pagecontrolMain: TPageControl
AnchorSideRight.Side = asrBottom
Left = 10 Left = 10
Height = 543 Height = 543
Top = 10 Top = 10