💄 Fix more form layouts

This commit is contained in:
2022-05-22 15:51:56 +02:00
parent 97c8270b38
commit dc36f0b09c
7 changed files with 261 additions and 219 deletions

View File

@@ -1,24 +1,27 @@
inherited frmBoundaries: TfrmBoundaries
Left = 445
Height = 162
Height = 208
Top = 332
Width = 410
Width = 406
AutoSize = True
Caption = 'Boundaries'
ClientHeight = 162
ClientWidth = 410
ClientHeight = 208
ClientWidth = 406
OnCreate = FormCreate
object gbZRestriction: TGroupBox[0]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 4
Height = 156
Height = 204
Top = 4
Width = 196
Width = 200
AutoSize = True
BorderSpacing.Left = 4
BorderSpacing.Top = 4
Caption = 'Restrict Height'
ClientHeight = 132
ClientWidth = 194
ClientHeight = 180
ClientWidth = 198
Constraints.MinWidth = 200
TabOrder = 0
object lblMinZ: TLabel
AnchorSideLeft.Control = tbMinZ
@@ -32,12 +35,13 @@ inherited frmBoundaries: TfrmBoundaries
Color = clDefault
Layout = tlCenter
ParentColor = False
Transparent = False
end
object seMinZ: TSpinEdit
AnchorSideTop.Control = gbZRestriction
AnchorSideRight.Control = gbZRestriction
AnchorSideRight.Side = asrBottom
Left = 128
Left = 132
Height = 33
Top = 4
Width = 62
@@ -59,7 +63,7 @@ inherited frmBoundaries: TfrmBoundaries
Left = 4
Height = 47
Top = 41
Width = 186
Width = 190
Frequency = 10
Max = 127
Min = -128
@@ -82,13 +86,14 @@ inherited frmBoundaries: TfrmBoundaries
Color = clDefault
Layout = tlCenter
ParentColor = False
Transparent = False
end
object seMaxZ: TSpinEdit
AnchorSideTop.Control = tbMinZ
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = seMinZ
AnchorSideRight.Side = asrBottom
Left = 128
Left = 132
Height = 33
Top = 92
Width = 62
@@ -108,7 +113,7 @@ inherited frmBoundaries: TfrmBoundaries
Left = 4
Height = 47
Top = 129
Width = 186
Width = 190
Frequency = 10
Max = 127
Min = -128
@@ -126,17 +131,17 @@ inherited frmBoundaries: TfrmBoundaries
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Control = gbZRestriction
AnchorSideBottom.Side = asrBottom
Left = 204
Height = 154
Left = 208
Height = 200
Top = 4
Width = 202
Width = 194
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 4
Caption = 'Restrict View Range'
ClientHeight = 130
ClientWidth = 200
ClientHeight = 176
ClientWidth = 192
TabOrder = 1
object seMinX: TSpinEdit
AnchorSideLeft.Control = lblX
@@ -154,7 +159,7 @@ inherited frmBoundaries: TfrmBoundaries
AnchorSideTop.Control = gbViewRestriction
AnchorSideRight.Control = gbViewRestriction
AnchorSideRight.Side = asrBottom
Left = 122
Left = 114
Height = 33
Top = 4
Width = 74
@@ -184,7 +189,7 @@ inherited frmBoundaries: TfrmBoundaries
AnchorSideTop.Control = seMinY
AnchorSideRight.Control = seMaxX
AnchorSideRight.Side = asrBottom
Left = 122
Left = 114
Height = 33
Top = 45
Width = 74
@@ -204,6 +209,7 @@ inherited frmBoundaries: TfrmBoundaries
Caption = 'X:'
Color = clDefault
ParentColor = False
Transparent = False
end
object lblY: TLabel
AnchorSideLeft.Control = lblX
@@ -216,6 +222,7 @@ inherited frmBoundaries: TfrmBoundaries
Caption = 'Y:'
Color = clDefault
ParentColor = False
Transparent = False
end
object lblXSep: TLabel
AnchorSideLeft.Control = seMinX
@@ -230,6 +237,7 @@ inherited frmBoundaries: TfrmBoundaries
Caption = '—'
Color = clDefault
ParentColor = False
Transparent = False
end
object lblYSep: TLabel
AnchorSideLeft.Control = lblXSep
@@ -242,9 +250,10 @@ inherited frmBoundaries: TfrmBoundaries
Caption = '—'
Color = clDefault
ParentColor = False
Transparent = False
end
object btnSelectArea: TButton
Left = 5
Left = 0
Height = 25
Top = 95
Width = 112
@@ -253,7 +262,7 @@ inherited frmBoundaries: TfrmBoundaries
TabOrder = 4
end
object btnClear: TButton
Left = 122
Left = 117
Height = 25
Top = 95
Width = 75
@@ -263,7 +272,7 @@ inherited frmBoundaries: TfrmBoundaries
end
end
inherited tmClose: TTimer[2]
Left = 24
Top = 24
Left = 200
Top = 176
end
end

View File

@@ -1,12 +1,14 @@
inherited frmDrawSettings: TfrmDrawSettings
Left = 268
Height = 195
Height = 194
Top = 165
Width = 363
Width = 375
ActiveControl = rbTileList
AutoSize = True
Caption = 'Draw settings'
ClientHeight = 195
ClientWidth = 363
ClientHeight = 194
ClientWidth = 375
Constraints.MinWidth = 375
OnCreate = FormCreate
object rbTileList: TRadioButton[0]
AnchorSideLeft.Control = Owner
@@ -44,19 +46,19 @@ inherited frmDrawSettings: TfrmDrawSettings
Left = 8
Height = 38
Top = 148
Width = 347
Width = 359
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 8
Caption = 'Hue (Statics only)'
ClientHeight = 14
ClientWidth = 345
ClientWidth = 357
TabOrder = 2
object pbHue: TPaintBox
Cursor = crHandPoint
Left = 4
Height = 10
Top = 0
Width = 337
Width = 349
Align = alClient
BorderSpacing.Left = 4
BorderSpacing.Right = 4
@@ -84,7 +86,7 @@ inherited frmDrawSettings: TfrmDrawSettings
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 305
Left = 317
Height = 33
Top = 107
Width = 50
@@ -109,7 +111,7 @@ inherited frmDrawSettings: TfrmDrawSettings
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 305
Left = 317
Height = 33
Top = 70
Width = 50