aksdb
/
CentrED
1
0
Fork 0
Code Issues 2 Pull Requests Releases Wiki Activity

💄 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
Client/Tools/UfrmBoundaries.lfm
View File

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

20
Client/Tools/UfrmDrawSettings.lfm
View File

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

17
Client/UdmNetwork.lfm
View File

@ -2,10 +2,11 @@ object dmNetwork: TdmNetwork
OnCreate = DataModuleCreate OnCreate = DataModuleCreate
OnDestroy = DataModuleDestroy OnDestroy = DataModuleDestroy
OldCreateOrder = False OldCreateOrder = False
Height = 300 Height = 375
HorizontalOffset = 290 HorizontalOffset = 363
VerticalOffset = 171 VerticalOffset = 214
Width = 400 Width = 500
PPI = 120
object TCPClient: TLTCPComponent object TCPClient: TLTCPComponent
Port = 0 Port = 0
OnReceive = TCPClientReceive OnReceive = TCPClientReceive
@ -14,15 +15,15 @@ object dmNetwork: TdmNetwork
OnConnect = TCPClientConnect OnConnect = TCPClientConnect
Timeout = 0 Timeout = 0
ReuseAddress = False ReuseAddress = False
left = 40 Left = 50
top = 24 Top = 30
end end
object tmNoOp: TTimer object tmNoOp: TTimer
Enabled = False Enabled = False
Interval = 30000 Interval = 30000
OnTimer = tmNoOpTimer OnTimer = tmNoOpTimer
OnStartTimer = tmNoOpStartTimer OnStartTimer = tmNoOpStartTimer
left = 112 Left = 140
top = 24 Top = 30
end end
end end

21
Client/UfrmLargeScaleCommand.lfm
View File

@ -1,7 +1,7 @@
object frmLargeScaleCommand: TfrmLargeScaleCommand object frmLargeScaleCommand: TfrmLargeScaleCommand
Left = 290 Left = 320
Height = 610 Height = 610
Top = 171 Top = 195
Width = 969 Width = 969
ActiveControl = vstActions ActiveControl = vstActions
Caption = 'Large Scale Commands' Caption = 'Large Scale Commands'
@ -14,8 +14,8 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
Position = poOwnerFormCenter
ShowInTaskBar = stAlways ShowInTaskBar = stAlways
LCLVersion = '2.2.3.0'
object nbActions: TNotebook object nbActions: TNotebook
AnchorSideLeft.Control = vstActions AnchorSideLeft.Control = vstActions
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
@ -107,6 +107,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Caption = 'X:' Caption = 'X:'
Color = clDefault Color = clDefault
ParentColor = False ParentColor = False
Transparent = False
end end
object Label10: TLabel object Label10: TLabel
AnchorSideLeft.Control = Label9 AnchorSideLeft.Control = Label9
@ -119,6 +120,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Caption = 'Y:' Caption = 'Y:'
Color = clDefault Color = clDefault
ParentColor = False ParentColor = False
Transparent = False
end end
object seCMOffsetX: TSpinEdit object seCMOffsetX: TSpinEdit
AnchorSideLeft.Control = Label9 AnchorSideLeft.Control = Label9
@ -231,6 +233,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Constraints.MaxWidth = 265 Constraints.MaxWidth = 265
Enabled = False Enabled = False
ParentColor = False ParentColor = False
Transparent = False
WordWrap = True WordWrap = True
end end
object Label3: TLabel object Label3: TLabel
@ -243,6 +246,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Color = clDefault Color = clDefault
Constraints.MaxWidth = 344 Constraints.MaxWidth = 344
ParentColor = False ParentColor = False
Transparent = False
WordWrap = True WordWrap = True
end end
object Label4: TLabel object Label4: TLabel
@ -258,6 +262,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Caption = 'to' Caption = 'to'
Color = clDefault Color = clDefault
ParentColor = False ParentColor = False
Transparent = False
end end
object rbSetTerrainAltitude: TRadioButton object rbSetTerrainAltitude: TRadioButton
AnchorSideLeft.Control = pgModifyAltitude 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.' 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 Color = clDefault
ParentColor = False ParentColor = False
Transparent = False
WordWrap = True WordWrap = True
end end
object vdtTerrainTiles: TLazVirtualDrawTree 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.' 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 Color = clDefault
ParentColor = False ParentColor = False
Transparent = False
WordWrap = True WordWrap = True
end end
object vdtDeleteStaticsTiles: TLazVirtualDrawTree object vdtDeleteStaticsTiles: TLazVirtualDrawTree
@ -726,6 +733,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Caption = 'Only statics within this Z range will be deleted.' Caption = 'Only statics within this Z range will be deleted.'
Color = clDefault Color = clDefault
ParentColor = False ParentColor = False
Transparent = False
WordWrap = True WordWrap = True
end end
object Label8: TLabel object Label8: TLabel
@ -740,6 +748,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Caption = 'to' Caption = 'to'
Color = clDefault Color = clDefault
ParentColor = False ParentColor = False
Transparent = False
end end
object seDeleteStaticsZ1: TSpinEdit object seDeleteStaticsZ1: TSpinEdit
AnchorSideTop.Control = Label7 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.' 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 Color = clDefault
ParentColor = False ParentColor = False
Transparent = False
WordWrap = True WordWrap = True
end end
object vdtInsertStaticsTiles: TLazVirtualDrawTree object vdtInsertStaticsTiles: TLazVirtualDrawTree
@ -982,6 +992,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Caption = 'A tile will only be placed with this probability:' Caption = 'A tile will only be placed with this probability:'
Color = clDefault Color = clDefault
ParentColor = False ParentColor = False
Transparent = False
WordWrap = True WordWrap = True
end end
object Label6: TLabel object Label6: TLabel
@ -997,6 +1008,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Caption = '%' Caption = '%'
Color = clDefault Color = clDefault
ParentColor = False ParentColor = False
Transparent = False
end end
object seStaticsProbability: TSpinEdit object seStaticsProbability: TSpinEdit
AnchorSideLeft.Control = Label5 AnchorSideLeft.Control = Label5
@ -1164,6 +1176,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Caption = 'Area:' Caption = 'Area:'
Color = clDefault Color = clDefault
ParentColor = False ParentColor = False
Transparent = False
end end
object vstActions: TLazVirtualStringTree object vstActions: TLazVirtualStringTree
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
@ -1358,6 +1371,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Color = clDefault Color = clDefault
Enabled = False Enabled = False
ParentColor = False ParentColor = False
Transparent = False
end end
object seX1: TSpinEdit object seX1: TSpinEdit
AnchorSideLeft.Control = seY1 AnchorSideLeft.Control = seY1
@ -1400,6 +1414,7 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
Color = clDefault Color = clDefault
Enabled = False Enabled = False
ParentColor = False ParentColor = False
Transparent = False
end end
object seY1: TSpinEdit object seY1: TSpinEdit
AnchorSideLeft.Control = lblY AnchorSideLeft.Control = lblY

1
Client/UfrmLargeScaleCommand.pas
View File

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

268
Client/UfrmLogin.lfm
View File

@ -1,15 +1,16 @@
object frmLogin: TfrmLogin object frmLogin: TfrmLogin
Left = 290 Left = 290
Height = 331 Height = 414
Top = 201 Top = 201
Width = 604 Width = 755
ActiveControl = btnOK ActiveControl = btnOK
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'UO CentrED' Caption = 'UO CentrED'
ClientHeight = 331 ClientHeight = 414
ClientWidth = 604 ClientWidth = 755
Font.Height = -14 DesignTimePPI = 120
Font.Height = -18
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
@ -23,87 +24,91 @@ object frmLogin: TfrmLogin
AnchorSideBottom.Control = Owner AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 20 Height = 26
Top = 311 Top = 388
Width = 604 Width = 755
Alignment = taCenter Alignment = taCenter
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 10 BorderSpacing.Top = 12
Caption = ' ' Caption = ' '
Color = clDefault Color = clDefault
ParentColor = False ParentColor = False
Transparent = False
end end
object gbConnection: TGroupBox object gbConnection: TGroupBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
AnchorSideRight.Control = gbActions AnchorSideRight.Control = gbActions
AnchorSideBottom.Side = asrCenter AnchorSideBottom.Side = asrCenter
Left = 10 Left = 12
Height = 172 Height = 215
Top = 5 Top = 6
Width = 395 Width = 495
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10 BorderSpacing.Left = 12
BorderSpacing.Top = 5 BorderSpacing.Top = 6
BorderSpacing.Right = 10 BorderSpacing.Right = 12
Caption = 'Connection' Caption = 'Connection'
ClientHeight = 151 ClientHeight = 177
ClientWidth = 393 ClientWidth = 491
TabOrder = 0 TabOrder = 0
object lblHost: TLabel object lblHost: TLabel
AnchorSideLeft.Control = imgHost AnchorSideLeft.Control = imgHost
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edHost AnchorSideTop.Control = edHost
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 36 Left = 40
Height = 20 Height = 26
Top = 16 Top = 19
Width = 34 Width = 45
BorderSpacing.Left = 10 BorderSpacing.Left = 12
Caption = 'Host:' Caption = 'Host:'
Color = clDefault Color = clDefault
Font.Height = -14 Font.Height = -18
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
Transparent = False
end end
object lblUsername: TLabel object lblUsername: TLabel
AnchorSideLeft.Control = imgUsername AnchorSideLeft.Control = imgUsername
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edUsername AnchorSideTop.Control = edUsername
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 36 Left = 40
Height = 20 Height = 26
Top = 69 Top = 85
Width = 73 Width = 93
BorderSpacing.Left = 10 BorderSpacing.Left = 12
Caption = 'Username:' Caption = 'Username:'
Color = clDefault Color = clDefault
ParentColor = False ParentColor = False
Transparent = False
end end
object lblPassword: TLabel object lblPassword: TLabel
AnchorSideLeft.Control = imgPassword AnchorSideLeft.Control = imgPassword
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edPassword AnchorSideTop.Control = edPassword
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 36 Left = 40
Height = 20 Height = 26
Top = 121 Top = 150
Width = 68 Width = 87
BorderSpacing.Left = 10 BorderSpacing.Left = 12
Caption = 'Password:' Caption = 'Password:'
Color = clDefault Color = clDefault
ParentColor = False ParentColor = False
Transparent = False
end end
object imgHost: TImage object imgHost: TImage
AnchorSideLeft.Control = gbConnection AnchorSideLeft.Control = gbConnection
AnchorSideTop.Control = lblHost AnchorSideTop.Control = lblHost
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 10 Left = 12
Height = 16 Height = 16
Top = 18 Top = 24
Width = 16 Width = 16
AutoSize = True AutoSize = True
BorderSpacing.Left = 10 BorderSpacing.Left = 12
Picture.Data = { Picture.Data = {
07545069786D61702E0A00002F2A2058504D202A2F0A73746174696320636861 07545069786D61702E0A00002F2A2058504D202A2F0A73746174696320636861
72202A64756D6D795B5D3D7B0A223136203136203132342032222C0A22517420 72202A64756D6D795B5D3D7B0A223136203136203132342032222C0A22517420
@ -194,9 +199,9 @@ object frmLogin: TfrmLogin
AnchorSideLeft.Control = imgHost AnchorSideLeft.Control = imgHost
AnchorSideTop.Control = lblUsername AnchorSideTop.Control = lblUsername
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 10 Left = 12
Height = 16 Height = 16
Top = 71 Top = 90
Width = 16 Width = 16
AutoSize = True AutoSize = True
Picture.Data = { Picture.Data = {
@ -289,9 +294,9 @@ object frmLogin: TfrmLogin
AnchorSideLeft.Control = imgUsername AnchorSideLeft.Control = imgUsername
AnchorSideTop.Control = lblPassword AnchorSideTop.Control = lblPassword
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 10 Left = 12
Height = 16 Height = 16
Top = 123 Top = 155
Width = 16 Width = 16
AutoSize = True AutoSize = True
Picture.Data = { Picture.Data = {
@ -375,13 +380,13 @@ object frmLogin: TfrmLogin
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbConnection AnchorSideTop.Control = gbConnection
AnchorSideRight.Control = edPort AnchorSideRight.Control = edPort
Left = 119 Left = 145
Height = 32 Height = 40
Top = 10 Top = 12
Width = 185 Width = 236
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10 BorderSpacing.Left = 12
BorderSpacing.Top = 10 BorderSpacing.Top = 12
TabOrder = 0 TabOrder = 0
Text = 'localhost' Text = 'localhost'
end end
@ -391,12 +396,12 @@ object frmLogin: TfrmLogin
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edPort AnchorSideRight.Control = edPort
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 119 Left = 145
Height = 32 Height = 40
Top = 63 Top = 78
Width = 264 Width = 334
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 21 BorderSpacing.Top = 26
TabOrder = 2 TabOrder = 2
end end
object edPassword: TEdit object edPassword: TEdit
@ -405,13 +410,13 @@ object frmLogin: TfrmLogin
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edUsername AnchorSideRight.Control = edUsername
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 119 Left = 145
Height = 32 Height = 40
Top = 115 Top = 143
Width = 264 Width = 334
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 20 BorderSpacing.Top = 25
BorderSpacing.Bottom = 20 BorderSpacing.Bottom = 25
EchoMode = emPassword EchoMode = emPassword
PasswordChar = '*' PasswordChar = '*'
TabOrder = 3 TabOrder = 3
@ -424,13 +429,13 @@ object frmLogin: TfrmLogin
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = edHost AnchorSideBottom.Control = edHost
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 314 Left = 393
Height = 32 Height = 40
Top = 10 Top = 12
Width = 69 Width = 86
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
BorderSpacing.Left = 10 BorderSpacing.Left = 12
BorderSpacing.Right = 10 BorderSpacing.Right = 12
MaxValue = 65565 MaxValue = 65565
MinValue = 1024 MinValue = 1024
TabOrder = 1 TabOrder = 1
@ -443,28 +448,28 @@ object frmLogin: TfrmLogin
AnchorSideTop.Control = gbConnection AnchorSideTop.Control = gbConnection
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 415 Left = 519
Height = 115 Height = 144
Top = 5 Top = 6
Width = 179 Width = 224
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Left = 10 BorderSpacing.Left = 12
BorderSpacing.Right = 10 BorderSpacing.Right = 12
ClientHeight = 113 ClientHeight = 140
ClientWidth = 177 ClientWidth = 220
TabOrder = 2 TabOrder = 2
object btnOK: TButton object btnOK: TButton
AnchorSideLeft.Control = gbActions AnchorSideLeft.Control = gbActions
AnchorSideTop.Control = gbActions AnchorSideTop.Control = gbActions
AnchorSideRight.Control = gbActions AnchorSideRight.Control = gbActions
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 10 Left = 12
Height = 31 Height = 39
Top = 10 Top = 12
Width = 157 Width = 196
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 10 BorderSpacing.Around = 12
BorderSpacing.InnerBorder = 5 BorderSpacing.InnerBorder = 6
Caption = '&OK' Caption = '&OK'
Default = True Default = True
OnClick = btnOKClick OnClick = btnOKClick
@ -476,13 +481,13 @@ object frmLogin: TfrmLogin
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnOK AnchorSideRight.Control = btnOK
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 10 Left = 12
Height = 31 Height = 39
Top = 51 Top = 63
Width = 157 Width = 196
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 10 BorderSpacing.Bottom = 12
BorderSpacing.InnerBorder = 5 BorderSpacing.InnerBorder = 6
Caption = '&Cancel' Caption = '&Cancel'
ModalResult = 2 ModalResult = 2
OnClick = btnCancelClick OnClick = btnCancelClick
@ -495,48 +500,49 @@ object frmLogin: TfrmLogin
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbConnection AnchorSideRight.Control = gbConnection
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 10 Left = 12
Height = 119 Height = 149
Top = 182 Top = 227
Width = 395 Width = 495
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 5 BorderSpacing.Top = 6
Caption = 'Data files' Caption = 'Data files'
ClientHeight = 98 ClientHeight = 111
ClientWidth = 393 ClientWidth = 491
TabOrder = 1 TabOrder = 1
object lblData: TLabel object lblData: TLabel
AnchorSideLeft.Control = gbData AnchorSideLeft.Control = gbData
AnchorSideTop.Control = gbData AnchorSideTop.Control = gbData
AnchorSideRight.Control = gbData AnchorSideRight.Control = gbData
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 10 Left = 12
Height = 60 Height = 76
Top = 5 Top = 6
Width = 373 Width = 467
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10 BorderSpacing.Left = 12
BorderSpacing.Top = 5 BorderSpacing.Top = 6
BorderSpacing.Right = 10 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.' 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 Color = clDefault
ParentColor = False ParentColor = False
Transparent = False
WordWrap = True WordWrap = True
end end
object edData: TDirectoryEdit object edData: TDirectoryEdit
AnchorSideLeft.Control = lblData AnchorSideLeft.Control = lblData
AnchorSideTop.Control = lblData AnchorSideTop.Control = lblData
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 10 Left = 12
Height = 26 Height = 32
Top = 70 Top = 88
Width = 340 Width = 425
ShowHidden = False ShowHidden = False
ButtonWidth = 29 ButtonWidth = 36
NumGlyphs = 1 NumGlyphs = 1
AutoSize = False AutoSize = False
BorderSpacing.Top = 5 BorderSpacing.Top = 6
BorderSpacing.Bottom = 10 BorderSpacing.Bottom = 12
MaxLength = 0 MaxLength = 0
TabOrder = 0 TabOrder = 0
end end
@ -547,26 +553,26 @@ object frmLogin: TfrmLogin
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbActions AnchorSideRight.Control = gbActions
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 415 Left = 519
Height = 101 Height = 126
Top = 130 Top = 162
Width = 179 Width = 224
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 10 BorderSpacing.Top = 12
Caption = 'Profiles' Caption = 'Profiles'
ClientHeight = 80 ClientHeight = 88
ClientWidth = 177 ClientWidth = 220
TabOrder = 3 TabOrder = 3
object btnSaveProfile: TSpeedButton object btnSaveProfile: TSpeedButton
AnchorSideTop.Control = btnDeleteProfile AnchorSideTop.Control = btnDeleteProfile
AnchorSideRight.Control = btnDeleteProfile AnchorSideRight.Control = btnDeleteProfile
Left = 101 Left = 126
Height = 28 Height = 35
Hint = 'Save profile' Hint = 'Save profile'
Top = 51 Top = 58
Width = 28 Width = 35
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 10 BorderSpacing.Right = 12
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000BA6A36FFB969 2000000000000004000064000000640000000000000000000000BA6A36FFB969
@ -613,14 +619,14 @@ object frmLogin: TfrmLogin
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cbProfile AnchorSideRight.Control = cbProfile
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 139 Left = 173
Height = 28 Height = 35
Hint = 'Delete profile' Hint = 'Delete profile'
Top = 51 Top = 58
Width = 28 Width = 35
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Top = 10 BorderSpacing.Top = 12
BorderSpacing.Bottom = 10 BorderSpacing.Bottom = 12
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000 2000000000000004000064000000640000000000000000000000000000000000
@ -667,15 +673,15 @@ object frmLogin: TfrmLogin
AnchorSideTop.Control = gbProfiles AnchorSideTop.Control = gbProfiles
AnchorSideRight.Control = gbProfiles AnchorSideRight.Control = gbProfiles
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 10 Left = 12
Height = 36 Height = 40
Top = 5 Top = 6
Width = 157 Width = 196
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10 BorderSpacing.Left = 12
BorderSpacing.Top = 5 BorderSpacing.Top = 6
BorderSpacing.Right = 10 BorderSpacing.Right = 12
ItemHeight = 0 ItemHeight = 26
OnChange = cbProfileChange OnChange = cbProfileChange
Style = csDropDownList Style = csDropDownList
TabOrder = 0 TabOrder = 0

96
Client/UfrmMain.lfm
View File

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