💄 Fix more form layouts

This commit is contained in:
Andreas Schneider 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

View File

@ -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

View File

@ -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

View File

@ -331,6 +331,7 @@ end;
procedure TfrmLargeScaleCommand.FormShow(Sender: TObject);
begin
SetWindowParent(Handle, frmMain.Handle);
Position := poOwnerFormCenter;
end;
procedure TfrmLargeScaleCommand.btnGrab1Click(Sender: TObject);

View File

@ -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

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]