From dc36f0b09caa3029e312179398f18d7a69d594cd Mon Sep 17 00:00:00 2001 From: Andreas Schneider Date: Sun, 22 May 2022 15:51:56 +0200 Subject: [PATCH] =?UTF-8?q?=F0=9F=92=84=20Fix=20more=20form=20layouts?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Client/Tools/UfrmBoundaries.lfm | 57 ++++--- Client/Tools/UfrmDrawSettings.lfm | 20 ++- Client/UdmNetwork.lfm | 17 +- Client/UfrmLargeScaleCommand.lfm | 21 ++- Client/UfrmLargeScaleCommand.pas | 1 + Client/UfrmLogin.lfm | 268 +++++++++++++++--------------- Client/UfrmMain.lfm | 96 ++++++----- 7 files changed, 261 insertions(+), 219 deletions(-) diff --git a/Client/Tools/UfrmBoundaries.lfm b/Client/Tools/UfrmBoundaries.lfm index 0a7ce52..6a9e9df 100644 --- a/Client/Tools/UfrmBoundaries.lfm +++ b/Client/Tools/UfrmBoundaries.lfm @@ -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 diff --git a/Client/Tools/UfrmDrawSettings.lfm b/Client/Tools/UfrmDrawSettings.lfm index 59f36cf..a81cd75 100644 --- a/Client/Tools/UfrmDrawSettings.lfm +++ b/Client/Tools/UfrmDrawSettings.lfm @@ -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 diff --git a/Client/UdmNetwork.lfm b/Client/UdmNetwork.lfm index e80b362..b446b10 100644 --- a/Client/UdmNetwork.lfm +++ b/Client/UdmNetwork.lfm @@ -2,10 +2,11 @@ object dmNetwork: TdmNetwork OnCreate = DataModuleCreate OnDestroy = DataModuleDestroy OldCreateOrder = False - Height = 300 - HorizontalOffset = 290 - VerticalOffset = 171 - Width = 400 + Height = 375 + HorizontalOffset = 363 + VerticalOffset = 214 + Width = 500 + PPI = 120 object TCPClient: TLTCPComponent Port = 0 OnReceive = TCPClientReceive @@ -14,15 +15,15 @@ object dmNetwork: TdmNetwork OnConnect = TCPClientConnect Timeout = 0 ReuseAddress = False - left = 40 - top = 24 + Left = 50 + Top = 30 end object tmNoOp: TTimer Enabled = False Interval = 30000 OnTimer = tmNoOpTimer OnStartTimer = tmNoOpStartTimer - left = 112 - top = 24 + Left = 140 + Top = 30 end end diff --git a/Client/UfrmLargeScaleCommand.lfm b/Client/UfrmLargeScaleCommand.lfm index ac2a6f8..5f0d30e 100644 --- a/Client/UfrmLargeScaleCommand.lfm +++ b/Client/UfrmLargeScaleCommand.lfm @@ -1,7 +1,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand - Left = 290 + Left = 320 Height = 610 - Top = 171 + Top = 195 Width = 969 ActiveControl = vstActions Caption = 'Large Scale Commands' @@ -14,8 +14,8 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow - Position = poOwnerFormCenter ShowInTaskBar = stAlways + LCLVersion = '2.2.3.0' object nbActions: TNotebook AnchorSideLeft.Control = vstActions AnchorSideLeft.Side = asrBottom @@ -107,6 +107,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand Caption = 'X:' Color = clDefault ParentColor = False + Transparent = False end object Label10: TLabel AnchorSideLeft.Control = Label9 @@ -119,6 +120,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand Caption = 'Y:' Color = clDefault ParentColor = False + Transparent = False end object seCMOffsetX: TSpinEdit AnchorSideLeft.Control = Label9 @@ -231,6 +233,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand Constraints.MaxWidth = 265 Enabled = False ParentColor = False + Transparent = False WordWrap = True end object Label3: TLabel @@ -243,6 +246,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand Color = clDefault Constraints.MaxWidth = 344 ParentColor = False + Transparent = False WordWrap = True end object Label4: TLabel @@ -258,6 +262,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand Caption = 'to' Color = clDefault ParentColor = False + Transparent = False end object rbSetTerrainAltitude: TRadioButton AnchorSideLeft.Control = pgModifyAltitude @@ -356,6 +361,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand Caption = 'Drag terrain tiles from the main window and drop them on the list. For each cell in the target area, one of these (random) will be used.' Color = clDefault ParentColor = False + Transparent = False WordWrap = True end object vdtTerrainTiles: TLazVirtualDrawTree @@ -543,6 +549,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand Caption = 'Drag statics tiles from the main window and drop them on the list. Only statics matching these tiles will be deleted. If the list is empty, every static will be deleted.' Color = clDefault ParentColor = False + Transparent = False WordWrap = True end object vdtDeleteStaticsTiles: TLazVirtualDrawTree @@ -726,6 +733,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand Caption = 'Only statics within this Z range will be deleted.' Color = clDefault ParentColor = False + Transparent = False WordWrap = True end object Label8: TLabel @@ -740,6 +748,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand Caption = 'to' Color = clDefault ParentColor = False + Transparent = False end object seDeleteStaticsZ1: TSpinEdit AnchorSideTop.Control = Label7 @@ -802,6 +811,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand Caption = 'Drag statics tiles from the main window and drop them on the list. For each cell in the target area, one of these (random) will be used.' Color = clDefault ParentColor = False + Transparent = False WordWrap = True end object vdtInsertStaticsTiles: TLazVirtualDrawTree @@ -982,6 +992,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand Caption = 'A tile will only be placed with this probability:' Color = clDefault ParentColor = False + Transparent = False WordWrap = True end object Label6: TLabel @@ -997,6 +1008,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand Caption = '%' Color = clDefault ParentColor = False + Transparent = False end object seStaticsProbability: TSpinEdit AnchorSideLeft.Control = Label5 @@ -1164,6 +1176,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand Caption = 'Area:' Color = clDefault ParentColor = False + Transparent = False end object vstActions: TLazVirtualStringTree AnchorSideLeft.Control = Owner @@ -1358,6 +1371,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand Color = clDefault Enabled = False ParentColor = False + Transparent = False end object seX1: TSpinEdit AnchorSideLeft.Control = seY1 @@ -1400,6 +1414,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand Color = clDefault Enabled = False ParentColor = False + Transparent = False end object seY1: TSpinEdit AnchorSideLeft.Control = lblY diff --git a/Client/UfrmLargeScaleCommand.pas b/Client/UfrmLargeScaleCommand.pas index 6745b1b..6fe66a4 100644 --- a/Client/UfrmLargeScaleCommand.pas +++ b/Client/UfrmLargeScaleCommand.pas @@ -331,6 +331,7 @@ end; procedure TfrmLargeScaleCommand.FormShow(Sender: TObject); begin SetWindowParent(Handle, frmMain.Handle); + Position := poOwnerFormCenter; end; procedure TfrmLargeScaleCommand.btnGrab1Click(Sender: TObject); diff --git a/Client/UfrmLogin.lfm b/Client/UfrmLogin.lfm index 5f36632..d6e56ad 100644 --- a/Client/UfrmLogin.lfm +++ b/Client/UfrmLogin.lfm @@ -1,15 +1,16 @@ object frmLogin: TfrmLogin Left = 290 - Height = 331 + Height = 414 Top = 201 - Width = 604 + Width = 755 ActiveControl = btnOK BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'UO CentrED' - ClientHeight = 331 - ClientWidth = 604 - Font.Height = -14 + ClientHeight = 414 + ClientWidth = 755 + DesignTimePPI = 120 + Font.Height = -18 OnClose = FormClose OnCreate = FormCreate Position = poScreenCenter @@ -23,87 +24,91 @@ object frmLogin: TfrmLogin AnchorSideBottom.Control = Owner AnchorSideBottom.Side = asrBottom Left = 0 - Height = 20 - Top = 311 - Width = 604 + Height = 26 + Top = 388 + Width = 755 Alignment = taCenter Anchors = [akTop, akLeft, akRight] - BorderSpacing.Top = 10 + BorderSpacing.Top = 12 Caption = ' ' Color = clDefault ParentColor = False + Transparent = False end object gbConnection: TGroupBox AnchorSideLeft.Control = Owner AnchorSideTop.Control = Owner AnchorSideRight.Control = gbActions AnchorSideBottom.Side = asrCenter - Left = 10 - Height = 172 - Top = 5 - Width = 395 + Left = 12 + Height = 215 + Top = 6 + Width = 495 Anchors = [akTop, akLeft, akRight] - BorderSpacing.Left = 10 - BorderSpacing.Top = 5 - BorderSpacing.Right = 10 + BorderSpacing.Left = 12 + BorderSpacing.Top = 6 + BorderSpacing.Right = 12 Caption = 'Connection' - ClientHeight = 151 - ClientWidth = 393 + ClientHeight = 177 + ClientWidth = 491 TabOrder = 0 object lblHost: TLabel AnchorSideLeft.Control = imgHost AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edHost AnchorSideTop.Side = asrCenter - Left = 36 - Height = 20 - Top = 16 - Width = 34 - BorderSpacing.Left = 10 + Left = 40 + Height = 26 + Top = 19 + Width = 45 + BorderSpacing.Left = 12 Caption = 'Host:' Color = clDefault - Font.Height = -14 + Font.Height = -18 ParentColor = False ParentFont = False + Transparent = False end object lblUsername: TLabel AnchorSideLeft.Control = imgUsername AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edUsername AnchorSideTop.Side = asrCenter - Left = 36 - Height = 20 - Top = 69 - Width = 73 - BorderSpacing.Left = 10 + Left = 40 + Height = 26 + Top = 85 + Width = 93 + BorderSpacing.Left = 12 Caption = 'Username:' Color = clDefault ParentColor = False + Transparent = False end object lblPassword: TLabel AnchorSideLeft.Control = imgPassword AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edPassword AnchorSideTop.Side = asrCenter - Left = 36 - Height = 20 - Top = 121 - Width = 68 - BorderSpacing.Left = 10 + Left = 40 + Height = 26 + Top = 150 + Width = 87 + BorderSpacing.Left = 12 Caption = 'Password:' Color = clDefault ParentColor = False + Transparent = False end object imgHost: TImage AnchorSideLeft.Control = gbConnection AnchorSideTop.Control = lblHost AnchorSideTop.Side = asrCenter - Left = 10 + Left = 12 Height = 16 - Top = 18 + Top = 24 Width = 16 AutoSize = True - BorderSpacing.Left = 10 + BorderSpacing.Left = 12 Picture.Data = { 07545069786D61702E0A00002F2A2058504D202A2F0A73746174696320636861 72202A64756D6D795B5D3D7B0A223136203136203132342032222C0A22517420 @@ -194,9 +199,9 @@ object frmLogin: TfrmLogin AnchorSideLeft.Control = imgHost AnchorSideTop.Control = lblUsername AnchorSideTop.Side = asrCenter - Left = 10 + Left = 12 Height = 16 - Top = 71 + Top = 90 Width = 16 AutoSize = True Picture.Data = { @@ -289,9 +294,9 @@ object frmLogin: TfrmLogin AnchorSideLeft.Control = imgUsername AnchorSideTop.Control = lblPassword AnchorSideTop.Side = asrCenter - Left = 10 + Left = 12 Height = 16 - Top = 123 + Top = 155 Width = 16 AutoSize = True Picture.Data = { @@ -375,13 +380,13 @@ object frmLogin: TfrmLogin AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = gbConnection AnchorSideRight.Control = edPort - Left = 119 - Height = 32 - Top = 10 - Width = 185 + Left = 145 + Height = 40 + Top = 12 + Width = 236 Anchors = [akTop, akLeft, akRight] - BorderSpacing.Left = 10 - BorderSpacing.Top = 10 + BorderSpacing.Left = 12 + BorderSpacing.Top = 12 TabOrder = 0 Text = 'localhost' end @@ -391,12 +396,12 @@ object frmLogin: TfrmLogin AnchorSideTop.Side = asrBottom AnchorSideRight.Control = edPort AnchorSideRight.Side = asrBottom - Left = 119 - Height = 32 - Top = 63 - Width = 264 + Left = 145 + Height = 40 + Top = 78 + Width = 334 Anchors = [akTop, akLeft, akRight] - BorderSpacing.Top = 21 + BorderSpacing.Top = 26 TabOrder = 2 end object edPassword: TEdit @@ -405,13 +410,13 @@ object frmLogin: TfrmLogin AnchorSideTop.Side = asrBottom AnchorSideRight.Control = edUsername AnchorSideRight.Side = asrBottom - Left = 119 - Height = 32 - Top = 115 - Width = 264 + Left = 145 + Height = 40 + Top = 143 + Width = 334 Anchors = [akTop, akLeft, akRight] - BorderSpacing.Top = 20 - BorderSpacing.Bottom = 20 + BorderSpacing.Top = 25 + BorderSpacing.Bottom = 25 EchoMode = emPassword PasswordChar = '*' TabOrder = 3 @@ -424,13 +429,13 @@ object frmLogin: TfrmLogin AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = edHost AnchorSideBottom.Side = asrBottom - Left = 314 - Height = 32 - Top = 10 - Width = 69 + Left = 393 + Height = 40 + Top = 12 + Width = 86 Anchors = [akTop, akRight, akBottom] - BorderSpacing.Left = 10 - BorderSpacing.Right = 10 + BorderSpacing.Left = 12 + BorderSpacing.Right = 12 MaxValue = 65565 MinValue = 1024 TabOrder = 1 @@ -443,28 +448,28 @@ object frmLogin: TfrmLogin AnchorSideTop.Control = gbConnection AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom - Left = 415 - Height = 115 - Top = 5 - Width = 179 + Left = 519 + Height = 144 + Top = 6 + Width = 224 Anchors = [akTop, akRight] - BorderSpacing.Left = 10 - BorderSpacing.Right = 10 - ClientHeight = 113 - ClientWidth = 177 + BorderSpacing.Left = 12 + BorderSpacing.Right = 12 + ClientHeight = 140 + ClientWidth = 220 TabOrder = 2 object btnOK: TButton AnchorSideLeft.Control = gbActions AnchorSideTop.Control = gbActions AnchorSideRight.Control = gbActions AnchorSideRight.Side = asrBottom - Left = 10 - Height = 31 - Top = 10 - Width = 157 + Left = 12 + Height = 39 + Top = 12 + Width = 196 Anchors = [akTop, akLeft, akRight] - BorderSpacing.Around = 10 - BorderSpacing.InnerBorder = 5 + BorderSpacing.Around = 12 + BorderSpacing.InnerBorder = 6 Caption = '&OK' Default = True OnClick = btnOKClick @@ -476,13 +481,13 @@ object frmLogin: TfrmLogin AnchorSideTop.Side = asrBottom AnchorSideRight.Control = btnOK AnchorSideRight.Side = asrBottom - Left = 10 - Height = 31 - Top = 51 - Width = 157 + Left = 12 + Height = 39 + Top = 63 + Width = 196 Anchors = [akTop, akLeft, akRight] - BorderSpacing.Bottom = 10 - BorderSpacing.InnerBorder = 5 + BorderSpacing.Bottom = 12 + BorderSpacing.InnerBorder = 6 Caption = '&Cancel' ModalResult = 2 OnClick = btnCancelClick @@ -495,48 +500,49 @@ object frmLogin: TfrmLogin AnchorSideTop.Side = asrBottom AnchorSideRight.Control = gbConnection AnchorSideRight.Side = asrBottom - Left = 10 - Height = 119 - Top = 182 - Width = 395 + Left = 12 + Height = 149 + Top = 227 + Width = 495 Anchors = [akTop, akLeft, akRight] - BorderSpacing.Top = 5 + BorderSpacing.Top = 6 Caption = 'Data files' - ClientHeight = 98 - ClientWidth = 393 + ClientHeight = 111 + ClientWidth = 491 TabOrder = 1 object lblData: TLabel AnchorSideLeft.Control = gbData AnchorSideTop.Control = gbData AnchorSideRight.Control = gbData AnchorSideRight.Side = asrBottom - Left = 10 - Height = 60 - Top = 5 - Width = 373 + Left = 12 + Height = 76 + Top = 6 + Width = 467 Anchors = [akTop, akLeft, akRight] - BorderSpacing.Left = 10 - BorderSpacing.Top = 5 - BorderSpacing.Right = 10 + BorderSpacing.Left = 12 + BorderSpacing.Top = 6 + BorderSpacing.Right = 12 Caption = 'Select the directory containing art.mul, artidx.mul, hues.mul, tiledata.mul, animdata.mul, texmaps.mul, texidx.mul, light.mul and lightidx.mul.' Color = clDefault ParentColor = False + Transparent = False WordWrap = True end object edData: TDirectoryEdit AnchorSideLeft.Control = lblData AnchorSideTop.Control = lblData AnchorSideTop.Side = asrBottom - Left = 10 - Height = 26 - Top = 70 - Width = 340 + Left = 12 + Height = 32 + Top = 88 + Width = 425 ShowHidden = False - ButtonWidth = 29 + ButtonWidth = 36 NumGlyphs = 1 AutoSize = False - BorderSpacing.Top = 5 - BorderSpacing.Bottom = 10 + BorderSpacing.Top = 6 + BorderSpacing.Bottom = 12 MaxLength = 0 TabOrder = 0 end @@ -547,26 +553,26 @@ object frmLogin: TfrmLogin AnchorSideTop.Side = asrBottom AnchorSideRight.Control = gbActions AnchorSideRight.Side = asrBottom - Left = 415 - Height = 101 - Top = 130 - Width = 179 + Left = 519 + Height = 126 + Top = 162 + Width = 224 Anchors = [akTop, akLeft, akRight] - BorderSpacing.Top = 10 + BorderSpacing.Top = 12 Caption = 'Profiles' - ClientHeight = 80 - ClientWidth = 177 + ClientHeight = 88 + ClientWidth = 220 TabOrder = 3 object btnSaveProfile: TSpeedButton AnchorSideTop.Control = btnDeleteProfile AnchorSideRight.Control = btnDeleteProfile - Left = 101 - Height = 28 + Left = 126 + Height = 35 Hint = 'Save profile' - Top = 51 - Width = 28 + Top = 58 + Width = 35 Anchors = [akTop, akRight] - BorderSpacing.Right = 10 + BorderSpacing.Right = 12 Glyph.Data = { 36040000424D3604000000000000360000002800000010000000100000000100 2000000000000004000064000000640000000000000000000000BA6A36FFB969 @@ -613,14 +619,14 @@ object frmLogin: TfrmLogin AnchorSideTop.Side = asrBottom AnchorSideRight.Control = cbProfile AnchorSideRight.Side = asrBottom - Left = 139 - Height = 28 + Left = 173 + Height = 35 Hint = 'Delete profile' - Top = 51 - Width = 28 + Top = 58 + Width = 35 Anchors = [akTop, akRight] - BorderSpacing.Top = 10 - BorderSpacing.Bottom = 10 + BorderSpacing.Top = 12 + BorderSpacing.Bottom = 12 Glyph.Data = { 36040000424D3604000000000000360000002800000010000000100000000100 2000000000000004000064000000640000000000000000000000000000000000 @@ -667,15 +673,15 @@ object frmLogin: TfrmLogin AnchorSideTop.Control = gbProfiles AnchorSideRight.Control = gbProfiles AnchorSideRight.Side = asrBottom - Left = 10 - Height = 36 - Top = 5 - Width = 157 + Left = 12 + Height = 40 + Top = 6 + Width = 196 Anchors = [akTop, akLeft, akRight] - BorderSpacing.Left = 10 - BorderSpacing.Top = 5 - BorderSpacing.Right = 10 - ItemHeight = 0 + BorderSpacing.Left = 12 + BorderSpacing.Top = 6 + BorderSpacing.Right = 12 + ItemHeight = 26 OnChange = cbProfileChange Style = csDropDownList TabOrder = 0 diff --git a/Client/UfrmMain.lfm b/Client/UfrmMain.lfm index ecf1481..1bef31e 100644 --- a/Client/UfrmMain.lfm +++ b/Client/UfrmMain.lfm @@ -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]