💄 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,11 +1,11 @@
object frmMain: TfrmMain
Left = 257
Height = 905
Top = 141
Left = 283
Height = 961
Top = 179
Width = 1180
ActiveControl = oglGameWindow
Caption = 'UO CentrED'
ClientHeight = 905
ClientHeight = 928
ClientWidth = 1180
Constraints.MinHeight = 781
Constraints.MinWidth = 1172
@@ -19,11 +19,12 @@ object frmMain: TfrmMain
Position = poScreenCenter
SessionProperties = 'acFlat.Checked;acNoDraw.Checked;Height;Left;mnuFlatShowHeight.Checked;mnuSecurityQuestion.Checked;mnuShowAnimations.Checked;spTileList.Top;tbStatics.Down;tbTerrain.Down;Top;Width;WindowState;mnuWhiteBackground.Checked'
ShowInTaskBar = stAlways
LCLVersion = '2.2.3.0'
WindowState = wsMaximized
object pnlBottom: TPanel
Left = 0
Height = 49
Top = 856
Top = 879
Width = 1180
Align = alBottom
BevelOuter = bvNone
@@ -38,6 +39,7 @@ object frmMain: TfrmMain
Caption = 'X:'
Color = clDefault
ParentColor = False
Transparent = False
end
object lblY: TLabel
Left = 138
@@ -47,15 +49,17 @@ object frmMain: TfrmMain
Caption = 'Y:'
Color = clDefault
ParentColor = False
Transparent = False
end
object lblTileInfo: TLabel
Left = 375
Left = 364
Height = 26
Top = 11
Width = 5
Caption = ' '
Color = clDefault
ParentColor = False
Transparent = False
end
object lblTip: TLabel
Left = 803
@@ -69,6 +73,7 @@ object frmMain: TfrmMain
Color = clDefault
Layout = tlCenter
ParentColor = False
Transparent = False
end
object lblTipC: TLabel
Left = 767
@@ -83,6 +88,7 @@ object frmMain: TfrmMain
Layout = tlCenter
ParentColor = False
ParentFont = False
Transparent = False
end
object edX: TSpinEdit
Left = 38
@@ -113,7 +119,7 @@ object frmMain: TfrmMain
end
object pcLeft: TPageControl
Left = 0
Height = 818
Height = 841
Top = 38
Width = 350
ActivePage = tsTiles
@@ -122,7 +128,7 @@ object frmMain: TfrmMain
TabOrder = 1
object tsTiles: TTabSheet
Caption = 'Tiles'
ClientHeight = 780
ClientHeight = 803
ClientWidth = 340
object lblFilter: TLabel
AnchorSideLeft.Control = cbTerrain
@@ -136,6 +142,7 @@ object frmMain: TfrmMain
Caption = 'Filter:'
Color = clDefault
ParentColor = False
Transparent = False
end
object vdtTiles: TLazVirtualDrawTree
Tag = 1
@@ -146,7 +153,7 @@ object frmMain: TfrmMain
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = spTileList
Left = 6
Height = 437
Height = 460
Hint = '-'
Top = 74
Width = 328
@@ -207,7 +214,7 @@ object frmMain: TfrmMain
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 261
Top = 519
Top = 542
Width = 340
Anchors = [akTop, akLeft, akRight, akBottom]
Caption = 'Random pool'
@@ -546,7 +553,7 @@ object frmMain: TfrmMain
Cursor = crVSplit
Left = 0
Height = 8
Top = 511
Top = 534
Width = 340
Align = alNone
Anchors = [akLeft, akRight, akBottom]
@@ -560,7 +567,7 @@ object frmMain: TfrmMain
Left = 172
Height = 38
Hint = 'Append S or T to restrict the search to Statics or Terrain.'
Top = 461
Top = 484
Width = 150
Anchors = [akRight, akBottom]
BorderSpacing.Right = 12
@@ -621,11 +628,11 @@ object frmMain: TfrmMain
end
object tsClients: TTabSheet
Caption = 'Clients'
ClientHeight = 780
ClientHeight = 803
ClientWidth = 340
object lbClients: TListBox
Left = 0
Height = 780
Height = 803
Top = 0
Width = 340
Align = alClient
@@ -640,7 +647,7 @@ object frmMain: TfrmMain
end
object tsLocations: TTabSheet
Caption = 'Locations'
ClientHeight = 780
ClientHeight = 803
ClientWidth = 340
object btnClearLocations: TSpeedButton
AnchorSideLeft.Control = btnDeleteLocation
@@ -649,7 +656,7 @@ object frmMain: TfrmMain
Left = 194
Height = 35
Hint = 'Clear'
Top = 739
Top = 762
Width = 36
BorderSpacing.Left = 6
Glyph.Data = {
@@ -700,7 +707,7 @@ object frmMain: TfrmMain
Left = 152
Height = 35
Hint = 'Delete'
Top = 739
Top = 762
Width = 36
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 6
@@ -750,7 +757,7 @@ object frmMain: TfrmMain
Left = 110
Height = 35
Hint = 'Add'
Top = 739
Top = 762
Width = 36
Anchors = [akTop, akRight]
BorderSpacing.Right = 6
@@ -802,7 +809,7 @@ object frmMain: TfrmMain
AnchorSideBottom.Control = btnDeleteLocation
Cursor = 63
Left = 6
Height = 727
Height = 750
Top = 6
Width = 328
Anchors = [akTop, akLeft, akRight, akBottom]
@@ -865,7 +872,7 @@ object frmMain: TfrmMain
Style = tbsDivider
end
object tbSelect: TToolButton
Left = 36
Left = 35
Top = 2
Action = acSelect
Grouped = True
@@ -874,7 +881,7 @@ object frmMain: TfrmMain
Style = tbsCheck
end
object tbDrawTile: TToolButton
Left = 65
Left = 64
Top = 2
Action = acDraw
Grouped = True
@@ -883,7 +890,7 @@ object frmMain: TfrmMain
Style = tbsCheck
end
object tbMoveTile: TToolButton
Left = 94
Left = 93
Top = 2
Action = acMove
Grouped = True
@@ -892,7 +899,7 @@ object frmMain: TfrmMain
Style = tbsCheck
end
object tbElevateTile: TToolButton
Left = 123
Left = 122
Top = 2
Action = acElevate
Grouped = True
@@ -901,7 +908,7 @@ object frmMain: TfrmMain
Style = tbsCheck
end
object tbDeleteTile: TToolButton
Left = 152
Left = 151
Top = 2
Action = acDelete
Grouped = True
@@ -910,7 +917,7 @@ object frmMain: TfrmMain
Style = tbsCheck
end
object tbSetHue: TToolButton
Left = 181
Left = 180
Top = 2
Action = acHue
Grouped = True
@@ -919,28 +926,28 @@ object frmMain: TfrmMain
Style = tbsCheck
end
object tbSeparator3: TToolButton
Left = 245
Left = 243
Height = 28
Top = 2
Caption = 'tbSeparator3'
Style = tbsDivider
end
object tbBoundaries: TToolButton
Left = 251
Left = 248
Top = 2
Action = acBoundaries
ParentShowHint = False
ShowHint = True
end
object tbSeparator4: TToolButton
Left = 338
Left = 335
Height = 28
Top = 2
Caption = 'tbSeparator4'
Style = tbsDivider
end
object tbTerrain: TToolButton
Left = 344
Left = 340
Top = 2
Action = acTerrain
DropdownMenu = pmViewTerrainSettings
@@ -949,7 +956,7 @@ object frmMain: TfrmMain
Style = tbsDropDown
end
object tbStatics: TToolButton
Left = 388
Left = 384
Top = 2
Action = acStatics
DropdownMenu = pmViewStaticSettings
@@ -958,14 +965,14 @@ object frmMain: TfrmMain
Style = tbsDropDown
end
object tbSeparator5: TToolButton
Left = 563
Left = 559
Height = 28
Top = 2
Caption = 'tbSeparator5'
Style = tbsDivider
end
object tbRadarMap: TToolButton
Left = 569
Left = 564
Hint = 'Radar Map'
Top = 2
Caption = 'Radar Map'
@@ -975,49 +982,49 @@ object frmMain: TfrmMain
ShowHint = True
end
object tbVirtualLayer: TToolButton
Left = 280
Left = 277
Top = 2
Action = acVirtualLayer
end
object tbFilter: TToolButton
Left = 309
Left = 306
Top = 2
Action = acFilter
OnMouseMove = tbFilterMouseMove
Style = tbsCheck
end
object tbFlat: TToolButton
Left = 519
Left = 515
Top = 2
Action = acFlat
DropdownMenu = pmFlatViewSettings
Style = tbsDropDown
end
object tbNoDraw: TToolButton
Left = 432
Left = 428
Top = 2
Action = acNoDraw
Style = tbsCheck
end
object tbSeparator2: TToolButton
Left = 210
Left = 209
Height = 28
Top = 2
Caption = 'tbSeparator2'
Style = tbsDivider
end
object tbUndo: TToolButton
Left = 216
Left = 214
Top = 2
Action = acUndo
end
object tbLightlevel: TToolButton
Left = 490
Left = 486
Top = 2
Action = acLightlevel
end
object tbWalkable: TToolButton
Left = 461
Left = 457
Top = 2
Action = acWalkable
Style = tbsCheck
@@ -1032,7 +1039,7 @@ object frmMain: TfrmMain
AnchorSideBottom.Control = spChat
Left = 350
Height = 35
Top = 611
Top = 634
Width = 830
Anchors = [akLeft, akRight, akBottom]
BevelInner = bvRaised
@@ -1052,6 +1059,7 @@ object frmMain: TfrmMain
Color = clDefault
Layout = tlCenter
ParentColor = False
Transparent = False
OnClick = lblChatHeaderCaptionClick
OnMouseEnter = lblChatHeaderCaptionMouseEnter
OnMouseLeave = lblChatHeaderCaptionMouseLeave
@@ -1067,7 +1075,7 @@ object frmMain: TfrmMain
AnchorSideBottom.Control = pnlBottom
Left = 350
Height = 202
Top = 654
Top = 677
Width = 830
Anchors = [akTop, akLeft, akRight, akBottom]
BevelOuter = bvNone
@@ -1133,7 +1141,7 @@ object frmMain: TfrmMain
Cursor = crVSplit
Left = 350
Height = 8
Top = 646
Top = 669
Width = 830
Align = alNone
Anchors = [akLeft, akRight, akBottom]
@@ -1150,7 +1158,7 @@ object frmMain: TfrmMain
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnlChatHeader
Left = 350
Height = 573
Height = 596
Top = 38
Width = 830
Anchors = [akTop, akLeft, akRight, akBottom]