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

💄 Enable UI scaling

This commit is contained in:
Andreas Schneider 2022-05-07 11:59:04 +02:00
parent 900603dd00
commit 5e47564252
21 changed files with 1367 additions and 1288 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Client/CentrED.lpi
View File

@ -9,6 +9,7 @@
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="CentrED"/>
<Scaled Value="True"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
@ -19,7 +20,7 @@
<AutoIncrementBuild Value="True"/>
<MinorVersionNr Value="7"/>
<BuildNr Value="262"/>
<StringTable CompanyName="AKS DataBasis" FileDescription="UO CentrED" InternalName="CentrED" LegalCopyright="(c) 2015 Andreas Schneider and StaticZ" OriginalFilename="CentrED.exe" ProductName="CentrED" ProductVersion="0.7.0"/>
<StringTable CompanyName="AKS DataBasis" FileDescription="UO CentrED" InternalName="CentrED" LegalCopyright="(c) 2022 Andreas Schneider and StaticZ" OriginalFilename="CentrED.exe" ProductName="CentrED" ProductVersion="0.7.0"/>
</VersionInfo>
<BuildModes Count="7">
<Item1 Name="default" Default="True"/>
@ -354,6 +355,7 @@
<Filename Value="UfrmInitialize.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmInitialize"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit4>
<Unit5>
@ -374,6 +376,7 @@
<Filename Value="Tools/UfrmDrawSettings.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmDrawSettings"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit7>
<Unit8>
@ -387,6 +390,7 @@
<Filename Value="Tools/UfrmElevateSettings.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmElevateSettings"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit9>
<Unit10>
@ -397,30 +401,35 @@
<Filename Value="Tools/UfrmConfirmation.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmConfirmation"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit11>
<Unit12>
<Filename Value="Tools/UfrmMoveSettings.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmMoveSettings"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit12>
<Unit13>
<Filename Value="UfrmAbout.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmAbout"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit13>
<Unit14>
<Filename Value="Tools/UfrmHueSettings.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmHueSettings"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit14>
<Unit15>
<Filename Value="UfrmRadar.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmRadarMap"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit15>
<Unit16>
@ -434,12 +443,14 @@
<Filename Value="Tools/UfrmVirtualLayer.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmVirtualLayer"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit17>
<Unit18>
<Filename Value="Tools/UfrmFilter.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmFilter"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit18>
<Unit19>
@ -552,6 +563,7 @@
<Filename Value="Tools/UfrmLightlevel.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmLightlevel"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit44>
<Unit45>

1
Client/CentrED.lpr
View File

@ -52,6 +52,7 @@ begin
OnGetApplicationName := @GetApplicationName;
Application.Scaled := True;
Application.Initialize;
Application.CreateForm(TdmNetwork, dmNetwork);
Application.Run;

122
Client/Tools/UfrmBoundaries.lfm
View File

@ -1,11 +1,11 @@
inherited frmBoundaries: TfrmBoundaries
Left = 445
Height = 164
Height = 162
Top = 332
Width = 402
Width = 410
Caption = 'Boundaries'
ClientHeight = 164
ClientWidth = 402
ClientHeight = 162
ClientWidth = 410
OnCreate = FormCreate
object gbZRestriction: TGroupBox[0]
AnchorSideLeft.Control = Owner
@ -17,18 +17,19 @@ inherited frmBoundaries: TfrmBoundaries
BorderSpacing.Left = 4
BorderSpacing.Top = 4
Caption = 'Restrict Height'
ClientHeight = 139
ClientWidth = 192
ClientHeight = 132
ClientWidth = 194
TabOrder = 0
object lblMinZ: TLabel
AnchorSideLeft.Control = tbMinZ
AnchorSideTop.Control = seMinZ
AnchorSideTop.Side = asrCenter
Left = 4
Height = 15
Top = 10
Width = 77
Height = 23
Top = 9
Width = 93
Caption = 'Minimum Z:'
Color = clDefault
Layout = tlCenter
ParentColor = False
end
@ -36,10 +37,10 @@ inherited frmBoundaries: TfrmBoundaries
AnchorSideTop.Control = gbZRestriction
AnchorSideRight.Control = gbZRestriction
AnchorSideRight.Side = asrBottom
Left = 136
Height = 27
Left = 128
Height = 33
Top = 4
Width = 52
Width = 62
Anchors = [akTop, akRight]
BorderSpacing.Top = 4
BorderSpacing.Right = 4
@ -56,9 +57,9 @@ inherited frmBoundaries: TfrmBoundaries
AnchorSideRight.Control = gbZRestriction
AnchorSideRight.Side = asrBottom
Left = 4
Height = 37
Top = 35
Width = 184
Height = 47
Top = 41
Width = 186
Frequency = 10
Max = 127
Min = -128
@ -74,10 +75,11 @@ inherited frmBoundaries: TfrmBoundaries
AnchorSideTop.Control = seMaxZ
AnchorSideTop.Side = asrCenter
Left = 4
Height = 15
Top = 82
Width = 81
Height = 23
Top = 97
Width = 97
Caption = 'Maximum Z:'
Color = clDefault
Layout = tlCenter
ParentColor = False
end
@ -86,10 +88,10 @@ inherited frmBoundaries: TfrmBoundaries
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = seMinZ
AnchorSideRight.Side = asrBottom
Left = 136
Height = 27
Top = 76
Width = 52
Left = 128
Height = 33
Top = 92
Width = 62
Anchors = [akTop, akRight]
MaxValue = 127
MinValue = -128
@ -104,9 +106,9 @@ inherited frmBoundaries: TfrmBoundaries
AnchorSideRight.Control = gbZRestriction
AnchorSideRight.Side = asrBottom
Left = 4
Height = 37
Top = 107
Width = 184
Height = 47
Top = 129
Width = 186
Frequency = 10
Max = 127
Min = -128
@ -127,21 +129,21 @@ inherited frmBoundaries: TfrmBoundaries
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 204
Height = 156
Height = 154
Top = 4
Width = 194
Width = 202
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 4
Caption = 'Restrict View Range'
ClientHeight = 139
ClientWidth = 190
ClientHeight = 130
ClientWidth = 200
TabOrder = 1
object seMinX: TSpinEdit
AnchorSideLeft.Control = lblX
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = seMaxX
Left = 20
Height = 27
Left = 22
Height = 33
Top = 4
Width = 74
BorderSpacing.Left = 4
@ -152,8 +154,8 @@ inherited frmBoundaries: TfrmBoundaries
AnchorSideTop.Control = gbViewRestriction
AnchorSideRight.Control = gbViewRestriction
AnchorSideRight.Side = asrBottom
Left = 112
Height = 27
Left = 122
Height = 33
Top = 4
Width = 74
Anchors = [akTop, akRight]
@ -168,9 +170,9 @@ inherited frmBoundaries: TfrmBoundaries
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = seMinX
AnchorSideRight.Side = asrBottom
Left = 20
Height = 27
Top = 39
Left = 22
Height = 33
Top = 45
Width = 74
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
@ -182,9 +184,9 @@ inherited frmBoundaries: TfrmBoundaries
AnchorSideTop.Control = seMinY
AnchorSideRight.Control = seMaxX
AnchorSideRight.Side = asrBottom
Left = 112
Height = 27
Top = 39
Left = 122
Height = 33
Top = 45
Width = 74
Anchors = [akTop, akLeft, akRight]
OnChange = seMaxYChange
@ -195,11 +197,12 @@ inherited frmBoundaries: TfrmBoundaries
AnchorSideTop.Control = seMinX
AnchorSideTop.Side = asrCenter
Left = 4
Height = 15
Top = 10
Width = 12
Height = 23
Top = 9
Width = 14
BorderSpacing.Left = 4
Caption = 'X:'
Color = clDefault
ParentColor = False
end
object lblY: TLabel
@ -207,10 +210,11 @@ inherited frmBoundaries: TfrmBoundaries
AnchorSideTop.Control = seMinY
AnchorSideTop.Side = asrCenter
Left = 4
Height = 15
Top = 45
Width = 9
Height = 23
Top = 50
Width = 13
Caption = 'Y:'
Color = clDefault
ParentColor = False
end
object lblXSep: TLabel
@ -218,38 +222,40 @@ inherited frmBoundaries: TfrmBoundaries
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = seMaxX
AnchorSideTop.Side = asrCenter
Left = 98
Height = 15
Top = 10
Width = 13
Left = 100
Height = 23
Top = 9
Width = 17
BorderSpacing.Left = 4
Caption = '—'
Color = clDefault
ParentColor = False
end
object lblYSep: TLabel
AnchorSideLeft.Control = lblXSep
AnchorSideTop.Control = seMinY
AnchorSideTop.Side = asrCenter
Left = 98
Height = 15
Top = 45
Width = 13
Left = 100
Height = 23
Top = 50
Width = 17
Caption = '—'
Color = clDefault
ParentColor = False
end
object btnSelectArea: TButton
Left = 74
Left = 5
Height = 25
Top = 76
Top = 95
Width = 112
Caption = 'Select Area'
OnClick = btnSelectAreaClick
TabOrder = 4
end
object btnClear: TButton
Left = 111
Left = 122
Height = 25
Top = 107
Top = 95
Width = 75
Caption = 'Clear'
OnClick = btnClearClick
@ -257,5 +263,7 @@ inherited frmBoundaries: TfrmBoundaries
end
end
inherited tmClose: TTimer[2]
Left = 24
Top = 24
end
end

33
Client/Tools/UfrmConfirmation.lfm
View File

@ -1,37 +1,34 @@
object frmConfirmation: TfrmConfirmation
Left = 290
Height = 43
Height = 54
Top = 171
Width = 108
Width = 135
BorderIcons = []
BorderStyle = bsToolWindow
Caption = 'Apply?'
ClientHeight = 43
ClientWidth = 108
Font.Height = -11
LCLVersion = '0.9.25'
ClientHeight = 54
ClientWidth = 135
Font.Height = -14
object btnYes: TButton
Left = 8
Height = 25
Top = 8
Width = 40
BorderSpacing.InnerBorder = 4
Left = 10
Height = 31
Top = 10
Width = 50
BorderSpacing.InnerBorder = 5
Caption = 'Yes'
Default = True
ModalResult = 6
ParentFont = True
TabOrder = 0
end
object btnNo: TButton
Left = 56
Height = 25
Top = 8
Width = 40
BorderSpacing.InnerBorder = 4
Left = 70
Height = 31
Top = 10
Width = 50
BorderSpacing.InnerBorder = 5
Cancel = True
Caption = 'No'
ModalResult = 7
ParentFont = True
TabOrder = 1
end
end

55
Client/Tools/UfrmDrawSettings.lfm
View File

@ -1,20 +1,20 @@
inherited frmDrawSettings: TfrmDrawSettings
Left = 268
Height = 166
Height = 195
Top = 165
Width = 242
Width = 363
ActiveControl = rbTileList
Caption = 'Draw settings'
ClientHeight = 166
ClientWidth = 242
ClientHeight = 195
ClientWidth = 363
OnCreate = FormCreate
object rbTileList: TRadioButton[0]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 8
Height = 19
Height = 25
Top = 8
Width = 125
Width = 178
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Bottom = 4
@ -28,9 +28,9 @@ inherited frmDrawSettings: TfrmDrawSettings
AnchorSideTop.Control = rbTileList
AnchorSideTop.Side = asrBottom
Left = 8
Height = 19
Top = 31
Width = 184
Height = 25
Top = 37
Width = 264
BorderSpacing.Top = 4
Caption = 'Use tiles from the random pool'
TabOrder = 1
@ -43,20 +43,20 @@ inherited frmDrawSettings: TfrmDrawSettings
AnchorSideRight.Side = asrBottom
Left = 8
Height = 38
Top = 122
Width = 226
Top = 148
Width = 347
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 8
Caption = 'Hue (Statics only)'
ClientHeight = 20
ClientWidth = 222
ClientHeight = 14
ClientWidth = 345
TabOrder = 2
object pbHue: TPaintBox
Cursor = crHandPoint
Left = 4
Height = 16
Height = 10
Top = 0
Width = 214
Width = 337
Align = alClient
BorderSpacing.Left = 4
BorderSpacing.Right = 4
@ -72,9 +72,9 @@ inherited frmDrawSettings: TfrmDrawSettings
AnchorSideTop.Control = cbForceAltitude
AnchorSideTop.Side = asrBottom
Left = 8
Height = 19
Top = 93
Width = 135
Height = 25
Top = 111
Width = 188
BorderSpacing.Top = 12
Caption = 'Add Random Altitude'
TabOrder = 3
@ -84,9 +84,9 @@ inherited frmDrawSettings: TfrmDrawSettings
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 184
Height = 23
Top = 91
Left = 305
Height = 33
Top = 107
Width = 50
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
@ -97,9 +97,9 @@ inherited frmDrawSettings: TfrmDrawSettings
AnchorSideTop.Control = rbRandom
AnchorSideTop.Side = asrBottom
Left = 8
Height = 19
Top = 62
Width = 95
Height = 25
Top = 74
Width = 133
BorderSpacing.Top = 12
Caption = 'Force altitude:'
TabOrder = 5
@ -109,9 +109,9 @@ inherited frmDrawSettings: TfrmDrawSettings
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 184
Height = 23
Top = 60
Left = 305
Height = 33
Top = 70
Width = 50
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
@ -120,5 +120,6 @@ inherited frmDrawSettings: TfrmDrawSettings
TabOrder = 6
end
inherited tmClose: TTimer[7]
Left = 312
end
end

50
Client/Tools/UfrmElevateSettings.lfm
View File

@ -1,57 +1,55 @@
inherited frmElevateSettings: TfrmElevateSettings
Left = 290
Height = 114
Height = 141
Top = 171
Width = 250
Width = 297
Caption = 'Elevate'
ClientHeight = 114
ClientWidth = 250
ClientHeight = 141
ClientWidth = 297
object rbRaise: TRadioButton[0]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 8
Height = 19
Height = 25
Top = 8
Width = 47
Width = 64
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Caption = 'Raise'
Checked = True
State = cbChecked
TabOrder = 2
TabStop = True
end
object rbLower: TRadioButton[1]
AnchorSideLeft.Control = rbRaise
AnchorSideTop.Control = rbRaise
AnchorSideTop.Side = asrBottom
Left = 8
Height = 19
Top = 27
Width = 52
Height = 25
Top = 33
Width = 72
Caption = 'Lower'
TabOrder = 0
TabStop = False
end
object rbSet: TRadioButton[2]
AnchorSideLeft.Control = rbLower
AnchorSideTop.Control = rbLower
AnchorSideTop.Side = asrBottom
Left = 8
Height = 19
Top = 46
Width = 36
Height = 25
Top = 58
Width = 48
Caption = 'Set'
TabOrder = 1
TabStop = False
end
object cbRandomHeight: TCheckBox[3]
AnchorSideLeft.Control = rbSet
AnchorSideTop.Control = rbSet
AnchorSideTop.Side = asrBottom
Left = 8
Height = 19
Top = 81
Width = 135
Height = 25
Top = 99
Width = 188
BorderSpacing.Top = 16
Caption = 'Add Random Altitude'
TabOrder = 3
@ -62,9 +60,9 @@ inherited frmElevateSettings: TfrmElevateSettings
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 197
Height = 25
Top = 78
Left = 244
Height = 33
Top = 95
Width = 45
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 8
@ -78,9 +76,9 @@ inherited frmElevateSettings: TfrmElevateSettings
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 197
Height = 25
Top = 24
Left = 244
Height = 33
Top = 29
Width = 45
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
@ -89,4 +87,8 @@ inherited frmElevateSettings: TfrmElevateSettings
TabOrder = 5
Value = 1
end
inherited tmClose: TTimer[6]
Left = 144
Top = 16
end
end

150
Client/Tools/UfrmFilter.lfm
View File

@ -1,27 +1,26 @@
object frmFilter: TfrmFilter
Left = 290
Height = 492
Height = 615
Top = 171
Width = 232
Width = 290
ActiveControl = rgFilterType.RadioButton0
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsToolWindow
Caption = 'Filter'
ClientHeight = 492
ClientWidth = 232
Font.Height = -11
ClientHeight = 615
ClientWidth = 290
Font.Height = -14
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
LCLVersion = '0.9.29'
object rgFilterType: TRadioGroup
Left = 4
Height = 40
Top = 4
Width = 224
Left = 5
Height = 50
Top = 5
Width = 280
Align = alTop
AutoFill = True
BorderSpacing.Around = 4
BorderSpacing.Around = 5
Caption = 'Filter rule'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
@ -31,8 +30,8 @@ object frmFilter: TfrmFilter
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2
ClientHeight = 26
ClientWidth = 222
ClientHeight = 29
ClientWidth = 278
Columns = 2
ItemIndex = 0
Items.Strings = (
@ -43,15 +42,15 @@ object frmFilter: TfrmFilter
TabOrder = 0
end
object GroupBox1: TGroupBox
Left = 4
Height = 259
Top = 48
Width = 224
Left = 5
Height = 324
Top = 60
Width = 280
Align = alClient
BorderSpacing.Around = 4
BorderSpacing.Around = 5
Caption = 'Tile filter'
ClientHeight = 245
ClientWidth = 222
ClientHeight = 303
ClientWidth = 278
TabOrder = 1
object Label1: TLabel
AnchorSideLeft.Control = GroupBox1
@ -59,13 +58,14 @@ object frmFilter: TfrmFilter
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 4
Height = 30
Top = 30
Width = 214
Left = 5
Height = 40
Top = 32
Width = 268
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 4
BorderSpacing.Around = 5
Caption = 'Drag and Drop static tiles from the tile list on this list to add them to the filter.'
Color = clDefault
ParentColor = False
WordWrap = True
end
@ -76,13 +76,12 @@ object frmFilter: TfrmFilter
AnchorSideRight.Side = asrCenter
AnchorSideBottom.Control = btnDelete
AnchorSideBottom.Side = asrBottom
Left = 30
Height = 22
Left = 38
Height = 28
Hint = 'Clear'
Top = 219
Width = 22
Top = 270
Width = 28
Anchors = [akLeft, akBottom]
Color = clBtnFace
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
20000000000000040000640000006400000000000000000000003ADCFE004800
@ -119,7 +118,6 @@ object frmFilter: TfrmFilter
DE00D86FDF00D86FDF00E0A223004AC6080000000000580000005870DF000C70
DF000000000000000000000000002070DF000000000000000000
}
NumGlyphs = 0
OnClick = btnClearClick
ShowHint = True
ParentShowHint = False
@ -128,14 +126,13 @@ object frmFilter: TfrmFilter
AnchorSideLeft.Control = GroupBox1
AnchorSideBottom.Control = GroupBox1
AnchorSideBottom.Side = asrBottom
Left = 4
Height = 22
Left = 5
Height = 28
Hint = 'Delete'
Top = 219
Width = 22
Top = 270
Width = 28
Anchors = [akLeft, akBottom]
BorderSpacing.Around = 4
Color = clBtnFace
BorderSpacing.Around = 5
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
20000000000000040000640000006400000000000000000000004F91AB005588
@ -172,7 +169,6 @@ object frmFilter: TfrmFilter
DE0068B0E00068B0E0000E049300F8049500F2009500070102000F049500F804
0200F2000200080104000E040200F8040400F200040009010500
}
NumGlyphs = 0
OnClick = btnDeleteClick
ShowHint = True
ParentShowHint = False
@ -186,13 +182,13 @@ object frmFilter: TfrmFilter
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnDelete
Cursor = 63
Left = 4
Height = 151
Top = 64
Width = 214
Left = 5
Height = 188
Top = 77
Width = 268
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 4
DefaultNodeHeight = 44
BorderSpacing.Around = 5
DefaultNodeHeight = 55
DragType = dtVCL
Header.AutoSizeIndex = 0
Header.Columns = <
@ -203,14 +199,15 @@ object frmFilter: TfrmFilter
item
Position = 1
Text = 'Tile'
Width = 44
Width = 55
end
item
Position = 2
Text = 'Name'
Width = 100
Width = 125
end>
Header.DefaultHeight = 17
Header.DefaultHeight = 21
Header.Height = 36
Header.Options = [hoColumnResize, hoDrag, hoVisible]
Header.ParentFont = True
Header.Style = hsFlatButtons
@ -224,63 +221,64 @@ object frmFilter: TfrmFilter
object cbTileFilter: TCheckBox
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = GroupBox1
Left = 4
Left = 5
Height = 22
Top = 4
Width = 85
BorderSpacing.Around = 4
Top = 5
Width = 101
BorderSpacing.Around = 5
Caption = 'Filter active'
OnChange = cbTileFilterChange
TabOrder = 1
end
end
object GroupBox2: TGroupBox
Left = 4
Height = 168
Top = 320
Width = 224
Left = 5
Height = 210
Top = 400
Width = 280
Align = alBottom
BorderSpacing.Around = 4
BorderSpacing.Around = 5
Caption = 'Hue filter'
ClientHeight = 154
ClientWidth = 222
ClientHeight = 189
ClientWidth = 278
TabOrder = 2
object cbHueFilter: TCheckBox
Left = 4
Left = 5
Height = 22
Top = 4
Width = 214
Top = 5
Width = 268
Align = alTop
BorderSpacing.Around = 4
BorderSpacing.Around = 5
Caption = 'Filter active'
OnChange = cbHueFilterChange
TabOrder = 0
end
object vdtHues: TLazVirtualDrawTree
Cursor = 63
Left = 4
Height = 120
Top = 30
Width = 214
Left = 5
Height = 152
Top = 32
Width = 268
Align = alClient
BorderSpacing.Around = 4
BorderSpacing.Around = 5
Header.AutoSizeIndex = 2
Header.Columns = <
item
Position = 0
Width = 20
Width = 25
end
item
Position = 1
Text = 'Hue'
Width = 38
Width = 48
end
item
Position = 2
Text = 'Name'
Width = 154
Width = 193
end>
Header.DefaultHeight = 17
Header.DefaultHeight = 21
Header.Height = 36
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible]
Header.ParentFont = True
Header.Style = hsFlatButtons
@ -296,15 +294,15 @@ object frmFilter: TfrmFilter
object Splitter1: TSplitter
Cursor = crVSplit
Left = 0
Height = 5
Top = 311
Width = 232
Height = 6
Top = 389
Width = 290
Align = alBottom
ResizeAnchor = akBottom
end
object pmHues: TPopupMenu
left = 148
top = 404
Left = 185
Top = 505
object mnuCheckHues: TMenuItem
Caption = 'Check all hues'
OnClick = mnuCheckHuesClick

72
Client/Tools/UfrmHueSettings.lfm
View File

@ -1,13 +1,13 @@
inherited frmHueSettings: TfrmHueSettings
Left = 290
Height = 426
Height = 389
Top = 171
Width = 225
Width = 255
AutoSize = True
Caption = 'Hue Settings'
ClientHeight = 426
ClientWidth = 225
Constraints.MinWidth = 225
ClientHeight = 389
ClientWidth = 255
Constraints.MinWidth = 255
OnCreate = FormCreate
OnDestroy = FormDestroy
object lblHue: TLabel[0]
@ -15,19 +15,20 @@ inherited frmHueSettings: TfrmHueSettings
AnchorSideTop.Control = edHue
AnchorSideTop.Side = asrCenter
Left = 8
Height = 16
Top = 11
Width = 26
Height = 23
Top = 14
Width = 35
BorderSpacing.Left = 8
Caption = 'Hue:'
Color = clDefault
ParentColor = False
end
object edHue: TEdit[1]
AnchorSideLeft.Control = lblHue
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
Left = 42
Height = 23
Left = 51
Height = 35
Top = 8
Width = 80
BorderSpacing.Left = 8
@ -45,8 +46,8 @@ inherited frmHueSettings: TfrmHueSettings
AnchorSideBottom.Side = asrBottom
Left = 8
Height = 139
Top = 39
Width = 209
Top = 51
Width = 239
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 8
DragMode = dmAutomatic
@ -57,6 +58,7 @@ inherited frmHueSettings: TfrmHueSettings
ParentFont = False
Style = lbOwnerDrawFixed
TabOrder = 1
TopIndex = -1
end
object gbRandom: TGroupBox[3]
AnchorSideLeft.Control = Owner
@ -67,16 +69,16 @@ inherited frmHueSettings: TfrmHueSettings
AnchorSideBottom.Side = asrBottom
Left = 8
Height = 183
Top = 186
Width = 209
Top = 198
Width = 239
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 4
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Caption = 'Random pool'
ClientHeight = 165
ClientWidth = 205
ClientHeight = 159
ClientWidth = 237
TabOrder = 2
Visible = False
object btnAddRandom: TSpeedButton
@ -124,7 +126,6 @@ inherited frmHueSettings: TfrmHueSettings
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
NumGlyphs = 0
OnClick = btnAddRandomClick
ShowHint = True
ParentShowHint = False
@ -175,7 +176,6 @@ inherited frmHueSettings: TfrmHueSettings
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
NumGlyphs = 0
OnClick = btnDeleteRandomClick
ShowHint = True
ParentShowHint = False
@ -226,7 +226,6 @@ inherited frmHueSettings: TfrmHueSettings
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
NumGlyphs = 0
OnClick = btnClearRandomClick
ShowHint = True
ParentShowHint = False
@ -234,10 +233,10 @@ inherited frmHueSettings: TfrmHueSettings
object btnRandomPresetSave: TSpeedButton
AnchorSideTop.Control = cbRandomPreset
AnchorSideRight.Control = btnRandomPresetDelete
Left = 153
Left = 185
Height = 22
Hint = 'Save Preset'
Top = 138
Top = 116
Width = 22
Anchors = [akTop, akRight]
BorderSpacing.Right = 4
@ -277,7 +276,6 @@ inherited frmHueSettings: TfrmHueSettings
4DFFC88C4FFFC88C4FFFC88C4FFFC88D4FFFC98C4FFFC78B4FFFC5894BFFC476
3BFF000000000000000000000000000000000000000000000000
}
NumGlyphs = 0
OnClick = btnRandomPresetSaveClick
ShowCaption = False
ShowHint = True
@ -287,10 +285,10 @@ inherited frmHueSettings: TfrmHueSettings
AnchorSideTop.Control = btnRandomPresetSave
AnchorSideRight.Control = gbRandom
AnchorSideRight.Side = asrBottom
Left = 179
Left = 211
Height = 22
Hint = 'Delete Preset'
Top = 138
Top = 116
Width = 22
Anchors = [akTop, akRight]
BorderSpacing.Right = 4
@ -330,7 +328,6 @@ inherited frmHueSettings: TfrmHueSettings
0000C88B4DFFC88C4FFFC88C4FFFC88C4FFFC88C4FFFC88D4FFFC98C4FFFC78B
4FFFC5894BFFC4763BFF00000000000000000000000000000000
}
NumGlyphs = 0
OnClick = btnRandomPresetDeleteClick
ShowCaption = False
ShowHint = True
@ -342,14 +339,14 @@ inherited frmHueSettings: TfrmHueSettings
AnchorSideBottom.Control = gbRandom
AnchorSideBottom.Side = asrBottom
Left = 4
Height = 23
Top = 138
Width = 145
Height = 39
Top = 116
Width = 177
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 4
BorderSpacing.Right = 4
BorderSpacing.Bottom = 4
ItemHeight = 15
ItemHeight = 0
OnChange = cbRandomPresetChange
Sorted = True
Style = csDropDownList
@ -363,9 +360,9 @@ inherited frmHueSettings: TfrmHueSettings
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = cbRandomPreset
Left = 4
Height = 108
Height = 86
Top = 26
Width = 197
Width = 229
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 4
ItemHeight = 0
@ -374,6 +371,7 @@ inherited frmHueSettings: TfrmHueSettings
OnDragOver = lbRandomDragOver
OnDrawItem = lbHueDrawItem
TabOrder = 1
TopIndex = -1
end
end
object cbRandom: TCheckBox[4]
@ -381,17 +379,17 @@ inherited frmHueSettings: TfrmHueSettings
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = lbHue
AnchorSideRight.Side = asrBottom
Left = 152
Height = 19
Top = 10
Width = 65
Left = 158
Height = 25
Top = 13
Width = 89
Anchors = [akTop, akRight]
Caption = 'Random'
OnChange = cbRandomChange
TabOrder = 3
end
inherited tmClose: TTimer[5]
left = 152
top = 112
Left = 152
Top = 112
end
end

42
Client/Tools/UfrmMoveSettings.lfm
View File

@ -1,21 +1,21 @@
inherited frmMoveSettings: TfrmMoveSettings
Left = 290
Height = 120
Height = 104
Top = 171
Width = 232
Width = 258
ActiveControl = cbAsk
AutoSize = True
Caption = 'Move settings'
ClientHeight = 120
ClientWidth = 232
ClientHeight = 104
ClientWidth = 258
object cbAsk: TCheckBox[0]
AnchorSideLeft.Control = gbDirection
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbDirection
Left = 121
Height = 19
Left = 119
Height = 25
Top = 20
Width = 94
Width = 131
BorderSpacing.Left = 8
BorderSpacing.Top = 16
BorderSpacing.Right = 8
@ -28,9 +28,9 @@ inherited frmMoveSettings: TfrmMoveSettings
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 8
Height = 108
Height = 92
Top = 4
Width = 105
Width = 103
AutoSize = True
BorderSpacing.Left = 4
BorderSpacing.Bottom = 4
@ -46,7 +46,6 @@ inherited frmMoveSettings: TfrmMoveSettings
Top = 0
Width = 23
BorderSpacing.Left = 8
Color = clBtnFace
Down = True
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
@ -85,7 +84,6 @@ inherited frmMoveSettings: TfrmMoveSettings
0000000000000000000000000000000000000000000000000000
}
GroupIndex = 1
NumGlyphs = 0
OnClick = btnTopLeftClick
end
object btnTop: TSpeedButton
@ -97,7 +95,6 @@ inherited frmMoveSettings: TfrmMoveSettings
Top = 0
Width = 23
BorderSpacing.Left = 8
Color = clBtnFace
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@ -135,7 +132,6 @@ inherited frmMoveSettings: TfrmMoveSettings
0000000000000000000000000000000000000000000000000000
}
GroupIndex = 1
NumGlyphs = 0
OnClick = btnTopLeftClick
end
object btnTopRight: TSpeedButton
@ -147,7 +143,6 @@ inherited frmMoveSettings: TfrmMoveSettings
Top = 0
Width = 23
BorderSpacing.Left = 8
Color = clBtnFace
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@ -185,7 +180,6 @@ inherited frmMoveSettings: TfrmMoveSettings
0000000000000000000000000000000000000000000000000000
}
GroupIndex = 1
NumGlyphs = 0
OnClick = btnTopLeftClick
end
object btnRight: TSpeedButton
@ -198,7 +192,6 @@ inherited frmMoveSettings: TfrmMoveSettings
Width = 23
BorderSpacing.Top = 8
BorderSpacing.Right = 8
Color = clBtnFace
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@ -236,7 +229,6 @@ inherited frmMoveSettings: TfrmMoveSettings
0000000000000000000000000000000000000000000000000000
}
GroupIndex = 1
NumGlyphs = 0
OnClick = btnTopLeftClick
end
object btnBottomRight: TSpeedButton
@ -248,7 +240,6 @@ inherited frmMoveSettings: TfrmMoveSettings
Top = 60
Width = 23
BorderSpacing.Top = 8
Color = clBtnFace
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@ -286,7 +277,6 @@ inherited frmMoveSettings: TfrmMoveSettings
0000000000000000000000000000000000000000000000000000
}
GroupIndex = 1
NumGlyphs = 0
OnClick = btnTopLeftClick
end
object btnBottom: TSpeedButton
@ -299,7 +289,6 @@ inherited frmMoveSettings: TfrmMoveSettings
Width = 23
BorderSpacing.Left = 8
BorderSpacing.Bottom = 8
Color = clBtnFace
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@ -337,7 +326,6 @@ inherited frmMoveSettings: TfrmMoveSettings
0000000000000000000000000000000000000000000000000000
}
GroupIndex = 1
NumGlyphs = 0
OnClick = btnTopLeftClick
end
object btnBottomLeft: TSpeedButton
@ -349,7 +337,6 @@ inherited frmMoveSettings: TfrmMoveSettings
Top = 60
Width = 23
BorderSpacing.Top = 8
Color = clBtnFace
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@ -387,7 +374,6 @@ inherited frmMoveSettings: TfrmMoveSettings
0000000000000000000000000000000000000000000000000000
}
GroupIndex = 1
NumGlyphs = 0
OnClick = btnTopLeftClick
end
object btnLeft: TSpeedButton
@ -399,7 +385,6 @@ inherited frmMoveSettings: TfrmMoveSettings
Top = 30
Width = 23
BorderSpacing.Top = 8
Color = clBtnFace
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@ -437,7 +422,6 @@ inherited frmMoveSettings: TfrmMoveSettings
0000000000000000000000000000000000000000000000000000
}
GroupIndex = 1
NumGlyphs = 0
OnClick = btnTopLeftClick
end
object seOffset: TSpinEdit
@ -446,7 +430,7 @@ inherited frmMoveSettings: TfrmMoveSettings
AnchorSideTop.Control = btnTop
AnchorSideTop.Side = asrBottom
Left = 33
Height = 25
Height = 33
Hint = 'Offset'
Top = 30
Width = 34
@ -464,9 +448,9 @@ inherited frmMoveSettings: TfrmMoveSettings
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = gbDirection
AnchorSideBottom.Side = asrBottom
Left = 121
Left = 119
Height = 25
Top = 83
Top = 67
Width = 103
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 8
@ -478,4 +462,6 @@ inherited frmMoveSettings: TfrmMoveSettings
ModalResult = 2
TabOrder = 2
end
inherited tmClose: TTimer[3]
end
end

9
Client/Tools/UfrmToolWindow.lfm
View File

@ -1,8 +1,8 @@
object frmToolWindow: TfrmToolWindow
Left = 282
Height = 300
Height = 375
Top = 157
Width = 400
Width = 500
BorderIcons = []
BorderStyle = bsToolWindow
Caption = 'ToolWindow'
@ -11,11 +11,10 @@ object frmToolWindow: TfrmToolWindow
OnDeactivate = FormDeactivate
OnShow = FormShow
ShowInTaskBar = stNever
LCLVersion = '0.9.29'
object tmClose: TTimer
Enabled = False
OnTimer = tmCloseTimer
left = 8
top = 8
Left = 10
Top = 10
end
end

22
Client/Tools/UfrmVirtualLayer.lfm
View File

@ -2,11 +2,11 @@ inherited frmVirtualLayer: TfrmVirtualLayer
Left = 290
Height = 82
Top = 171
Width = 210
Width = 231
ActiveControl = cbShowLayer
Caption = 'Virtual Layer'
ClientHeight = 82
ClientWidth = 210
ClientWidth = 231
object tbZ: TTrackBar[0]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = seZ
@ -14,9 +14,9 @@ inherited frmVirtualLayer: TfrmVirtualLayer
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 8
Height = 36
Top = 37
Width = 194
Height = 47
Top = 49
Width = 215
Frequency = 10
Max = 127
Min = -128
@ -32,9 +32,9 @@ inherited frmVirtualLayer: TfrmVirtualLayer
AnchorSideTop.Control = seZ
AnchorSideTop.Side = asrCenter
Left = 8
Height = 22
Top = 7
Width = 126
Height = 25
Top = 12
Width = 150
BorderSpacing.Left = 8
Caption = 'Show Layer at Z:'
OnChange = cbShowLayerChange
@ -44,8 +44,8 @@ inherited frmVirtualLayer: TfrmVirtualLayer
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 152
Height = 21
Left = 173
Height = 33
Top = 8
Width = 50
Anchors = [akTop, akRight]
@ -56,4 +56,6 @@ inherited frmVirtualLayer: TfrmVirtualLayer
OnChange = seZChange
TabOrder = 2
end
inherited tmClose: TTimer[3]
end
end

137
Client/UfrmAbout.lfm
View File

@ -1,144 +1,151 @@
object frmAbout: TfrmAbout
Left = 290
Height = 308
Height = 579
Top = 171
Width = 354
Width = 388
AutoSize = True
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'About CentrED'
ClientHeight = 308
ClientWidth = 354
Font.Height = -11
ClientHeight = 579
ClientWidth = 388
DesignTimePPI = 120
Font.Height = -18
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '0.9.31'
object Label3: TLabel
Left = 8
Height = 53
Top = 178
Width = 338
Left = 12
Height = 182
Top = 334
Width = 364
Align = alTop
BorderSpacing.Top = 16
BorderSpacing.Around = 8
Caption = 'Ultima(tm) Online (c) 1997 Electronic Arts Inc. Ultima, the UO logo, Are You With Us?, ORIGIN, the ORIGIN logo and We create worlds are trademarks or registered trademarks of Electronic Arts Inc. in the U.S. and/or other countries. All rights reserved.'
BorderSpacing.Top = 25
BorderSpacing.Around = 12
Caption = 'Ultima™ Online © 1997 Electronic Arts Inc. Ultima, the UO logo, Are You With Us?, ORIGIN, the ORIGIN logo and We create worlds are trademarks or registered trademarks of Electronic Arts Inc. in the U.S. and/or other countries. All rights reserved.'
Color = clDefault
ParentColor = False
WordWrap = True
end
object Label5: TLabel
Left = 8
Height = 14
Top = 87
Width = 338
Left = 12
Height = 26
Top = 167
Width = 364
Align = alTop
BorderSpacing.Left = 8
BorderSpacing.Right = 8
BorderSpacing.Left = 12
BorderSpacing.Right = 12
Caption = 'It is using the following great components:'
Color = clDefault
ParentColor = False
end
object Label6: TLabel
Left = 16
Height = 53
Top = 101
Width = 330
Left = 25
Height = 104
Top = 193
Width = 351
Align = alTop
BorderSpacing.Left = 16
BorderSpacing.Right = 8
BorderSpacing.Left = 25
BorderSpacing.Right = 12
Caption = '- Vampyre Imaging Lib by Marek Mauder'#13#10'- lNet by Ales Katona and Micha Nelissen'#13#10'- VirtualTrees by Mike Lischke'#13#10'- Silk Icons by Mark James'
Color = clDefault
ParentColor = False
end
object Label7: TLabel
Left = 8
Height = 14
Top = 73
Width = 338
Left = 12
Height = 52
Top = 115
Width = 364
Align = alTop
BorderSpacing.Left = 8
BorderSpacing.Right = 8
BorderSpacing.Left = 12
BorderSpacing.Right = 12
Caption = 'CentrED has been developed using Lazarus and FreePascal.'
Color = clDefault
ParentColor = False
WordWrap = True
end
object Panel2: TPanel
Left = 0
Height = 65
Height = 103
Top = 0
Width = 354
Width = 388
Align = alTop
AutoSize = True
BorderSpacing.Bottom = 8
BorderSpacing.Bottom = 12
BevelOuter = bvNone
ClientHeight = 65
ClientWidth = 354
ClientHeight = 103
ClientWidth = 388
TabOrder = 0
object Panel1: TPanel
Left = 0
Height = 65
Height = 103
Top = 0
Width = 190
Width = 307
AutoSize = True
BevelInner = bvRaised
BevelOuter = bvLowered
ClientHeight = 65
ClientWidth = 190
ClientHeight = 103
ClientWidth = 307
TabOrder = 0
object Label1: TLabel
Left = 2
Height = 38
Height = 60
Top = 2
Width = 186
Width = 303
Align = alTop
Alignment = taCenter
AutoSize = False
Caption = 'UO CentrED'
Font.Height = -29
Color = clDefault
Font.Height = -45
Font.Style = [fsBold]
Layout = tlCenter
ParentColor = False
ParentFont = False
end
object lblVersion: TLabel
Left = 6
Left = 8
Height = 1
Top = 40
Width = 178
Top = 62
Width = 291
Align = alTop
Alignment = taRightJustify
BorderSpacing.Left = 4
BorderSpacing.Right = 4
BorderSpacing.Left = 6
BorderSpacing.Right = 6
Color = clDefault
ParentColor = False
end
object lblCopyright: TLabel
Left = 6
Height = 14
Top = 45
Width = 178
Left = 8
Height = 26
Top = 69
Width = 291
Align = alTop
Alignment = taCenter
BorderSpacing.Around = 4
Caption = 'Copyright 2012 Andreas Schneider'
BorderSpacing.Around = 6
Caption = 'Copyright 2022 Andreas Schneider'
Color = clDefault
ParentColor = False
end
end
end
object Panel3: TPanel
Left = 8
Height = 25
Top = 239
Width = 338
Left = 12
Height = 39
Top = 528
Width = 364
Align = alTop
BorderSpacing.Around = 8
BorderSpacing.Around = 12
BevelOuter = bvNone
ClientHeight = 25
ClientWidth = 338
ClientHeight = 39
ClientWidth = 364
TabOrder = 1
object btnClose: TButton
Left = 263
Height = 25
Left = 246
Height = 39
Top = 0
Width = 75
Width = 118
Align = alRight
BorderSpacing.InnerBorder = 4
BorderSpacing.InnerBorder = 6
Caption = 'Close'
OnClick = btnCloseClick
TabOrder = 0

12
Client/UfrmAccountControl.lfm
View File

@ -9,18 +9,16 @@ object frmAccountControl: TfrmAccountControl
Caption = 'Account Management'
ClientHeight = 472
ClientWidth = 542
DesignTimePPI = 120
Font.Height = -14
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
Position = poOwnerFormCenter
LCLVersion = '2.3.0.0'
object tbMain: TToolBar
Left = 0
Top = 0
Width = 434
Width = 542
Caption = 'tbMain'
Images = ilToolbar
TabOrder = 0
@ -55,7 +53,7 @@ object frmAccountControl: TfrmAccountControl
ShowHint = True
end
object tbDeleteUser: TToolButton
Left = 92
Left = 93
Hint = 'Delete User'
Top = 2
Caption = 'Delete User'
@ -66,7 +64,7 @@ object frmAccountControl: TfrmAccountControl
end
object tbSeparator1: TToolButton
Left = 30
Height = 6
Height = 28
Top = 2
Caption = 'tbSeparator1'
Style = tbsDivider
@ -81,9 +79,9 @@ object frmAccountControl: TfrmAccountControl
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 352
Height = 440
Top = 32
Width = 434
Width = 542
Anchors = [akTop, akLeft, akRight, akBottom]
DefaultText = 'Node'
Header.AutoSizeIndex = 1

93
Client/UfrmChangePassword.lfm
View File

@ -1,59 +1,62 @@
object frmChangePassword: TfrmChangePassword
Left = 283
Height = 145
Height = 186
Top = 193
Width = 315
Width = 387
BorderStyle = bsDialog
Caption = 'Change Password'
ClientHeight = 145
ClientWidth = 315
ClientHeight = 186
ClientWidth = 387
DesignTimePPI = 120
OnShow = FormShow
Position = poMainFormCenter
LCLVersion = '1.3'
object Label1: TLabel
AnchorSideTop.Control = edOldPwd
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edOldPwd
Left = 32
Height = 15
Top = 13
Width = 88
Left = 40
Height = 23
Top = 16
Width = 110
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
BorderSpacing.Right = 10
Caption = 'Old Password:'
Color = clDefault
ParentColor = False
end
object Label2: TLabel
AnchorSideTop.Control = edNewPwd
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edNewPwd
Left = 26
Height = 15
Top = 46
Width = 94
Left = 32
Height = 23
Top = 61
Width = 118
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
BorderSpacing.Right = 10
Caption = 'New Password:'
Color = clDefault
ParentColor = False
end
object lblNewPwdRepeat: TLabel
AnchorSideTop.Control = edNewPwdRepeat
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edNewPwdRepeat
Left = 9
Height = 15
Top = 79
Width = 111
Left = 14
Height = 23
Top = 106
Width = 136
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
BorderSpacing.Right = 10
Caption = 'Repeat Password:'
Color = clDefault
ParentColor = False
end
object edOldPwd: TEdit
Left = 128
Height = 25
Top = 8
Width = 176
Left = 160
Height = 35
Top = 10
Width = 220
EchoMode = emPassword
PasswordChar = '*'
TabOrder = 0
@ -64,12 +67,12 @@ object frmChangePassword: TfrmChangePassword
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edOldPwd
AnchorSideRight.Side = asrBottom
Left = 128
Height = 25
Top = 41
Width = 176
Left = 160
Height = 35
Top = 55
Width = 220
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
BorderSpacing.Top = 10
EchoMode = emPassword
OnChange = edNewPwdChange
PasswordChar = '*'
@ -81,12 +84,12 @@ object frmChangePassword: TfrmChangePassword
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edNewPwd
AnchorSideRight.Side = asrBottom
Left = 128
Height = 25
Top = 74
Width = 176
Left = 160
Height = 35
Top = 100
Width = 220
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
BorderSpacing.Top = 10
EchoMode = emPassword
OnChange = edNewPwdChange
PasswordChar = '*'
@ -95,12 +98,12 @@ object frmChangePassword: TfrmChangePassword
object btnOK: TButton
AnchorSideTop.Control = btnCancel
AnchorSideRight.Control = btnCancel
Left = 149
Height = 25
Top = 112
Width = 75
Left = 179
Height = 32
Top = 144
Width = 94
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
BorderSpacing.Right = 10
Caption = '&OK'
Default = True
Enabled = False
@ -113,13 +116,13 @@ object frmChangePassword: TfrmChangePassword
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 232
Height = 25
Top = 112
Width = 75
Left = 283
Height = 32
Top = 144
Width = 94
Anchors = [akRight, akBottom]
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
BorderSpacing.Right = 10
BorderSpacing.Bottom = 10
Cancel = True
Caption = 'Cancel'
ModalResult = 2

182
Client/UfrmEditAccount.lfm
View File

@ -1,40 +1,45 @@
object frmEditAccount: TfrmEditAccount
Left = 290
Height = 268
Height = 335
Top = 171
Width = 326
Width = 408
ActiveControl = PageControl1
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Edit Account'
ClientHeight = 268
ClientWidth = 326
ClientHeight = 335
ClientWidth = 408
DesignTimePPI = 120
Font.Height = -14
Font.Height = -18
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
Position = poOwnerFormCenter
LCLVersion = '2.3.0.0'
object PageControl1: TPageControl
Left = 0
Height = 173
Height = 272
Top = 0
Width = 261
Width = 408
ActivePage = tsGeneral
Align = alClient
TabIndex = 0
TabOrder = 0
object tsGeneral: TTabSheet
Caption = 'General'
ClientHeight = 135
ClientWidth = 251
ClientHeight = 234
ClientWidth = 398
object lblPasswordHint: TLabel
Left = 108
Height = 35
Top = 80
Width = 200
AutoSize = False
AnchorSideLeft.Control = edPassword
AnchorSideTop.Control = edPassword
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edPassword
AnchorSideRight.Side = asrBottom
Left = 128
Height = 52
Top = 102
Width = 260
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 2
Caption = 'Leave empty to leave the password unchanged.'
Color = clDefault
Enabled = False
@ -42,55 +47,88 @@ object frmEditAccount: TfrmEditAccount
WordWrap = True
end
object lblUsername: TLabel
AnchorSideLeft.Control = tsGeneral
AnchorSideTop.Control = edUsername
AnchorSideTop.Side = asrCenter
Left = 8
Height = 14
Top = 15
Width = 58
Height = 26
Top = 14
Width = 92
BorderSpacing.Left = 8
Caption = 'Username:'
Color = clDefault
ParentColor = False
end
object lblPassword: TLabel
AnchorSideLeft.Control = lblUsername
AnchorSideTop.Control = edPassword
AnchorSideTop.Side = asrCenter
Left = 8
Height = 14
Top = 55
Width = 54
Height = 26
Top = 68
Width = 87
Caption = 'Password:'
Color = clDefault
ParentColor = False
end
object lblAccessLevel: TLabel
AnchorSideLeft.Control = lblPassword
AnchorSideTop.Control = cbAccessLevel
AnchorSideTop.Side = asrCenter
Left = 8
Height = 14
Top = 135
Width = 63
Height = 26
Top = 176
Width = 102
Caption = 'Accesslevel:'
Color = clDefault
ParentColor = False
end
object edUsername: TEdit
Left = 108
Height = 23
Top = 10
Width = 200
AnchorSideLeft.Control = lblAccessLevel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = tsGeneral
AnchorSideRight.Control = tsGeneral
AnchorSideRight.Side = asrBottom
Left = 126
Height = 38
Top = 8
Width = 264
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 16
BorderSpacing.Top = 8
BorderSpacing.Right = 8
Color = clBtnFace
ReadOnly = True
TabOrder = 0
end
object edPassword: TEdit
Left = 108
Height = 23
Top = 50
Width = 200
AnchorSideLeft.Control = edUsername
AnchorSideTop.Control = edUsername
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edUsername
AnchorSideRight.Side = asrBottom
Left = 126
Height = 38
Top = 62
Width = 264
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 16
EchoMode = emPassword
PasswordChar = '*'
TabOrder = 1
end
object cbAccessLevel: TComboBox
Left = 108
Height = 25
Top = 130
Width = 200
AnchorSideLeft.Control = edPassword
AnchorSideTop.Control = lblPasswordHint
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edPassword
AnchorSideRight.Side = asrBottom
Left = 126
Height = 38
Top = 170
Width = 264
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 16
ItemHeight = 0
Items.Strings = (
'None'
@ -104,70 +142,70 @@ object frmEditAccount: TfrmEditAccount
end
object tsRegions: TTabSheet
Caption = 'Regions'
ClientHeight = 135
ClientWidth = 251
ClientHeight = 234
ClientWidth = 398
object Label1: TLabel
Left = 8
Height = 14
Top = 8
Width = 243
Left = 12
Height = 26
Top = 12
Width = 374
Align = alTop
BorderSpacing.Left = 10
BorderSpacing.Top = 10
BorderSpacing.Right = 10
BorderSpacing.Bottom = 5
BorderSpacing.Left = 12
BorderSpacing.Top = 12
BorderSpacing.Right = 12
BorderSpacing.Bottom = 6
Caption = 'Allowed Regions:'
Color = clDefault
ParentColor = False
end
object cbRegions: TCheckListBox
Left = 8
Height = 114
Top = 26
Width = 243
Left = 12
Height = 178
Top = 44
Width = 374
Align = alClient
BorderSpacing.Left = 10
BorderSpacing.Top = 5
BorderSpacing.Right = 10
BorderSpacing.Bottom = 10
ItemHeight = 20
BorderSpacing.Left = 12
BorderSpacing.Top = 6
BorderSpacing.Right = 12
BorderSpacing.Bottom = 12
ItemHeight = 0
TabOrder = 0
TopIndex = -1
end
end
end
object Panel1: TPanel
Left = 8
Height = 31
Top = 175
Width = 245
Left = 12
Height = 39
Top = 284
Width = 384
Align = alBottom
BorderSpacing.Around = 10
BorderSpacing.Around = 12
BevelOuter = bvNone
ClientHeight = 31
ClientWidth = 245
ClientHeight = 39
ClientWidth = 384
TabOrder = 1
object btnCancel: TButton
Left = 151
Height = 25
Left = 266
Height = 39
Top = 0
Width = 94
Width = 118
Align = alRight
BorderSpacing.Left = 5
BorderSpacing.InnerBorder = 5
BorderSpacing.Left = 6
BorderSpacing.InnerBorder = 6
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 0
end
object btnOK: TButton
Left = 72
Height = 25
Left = 142
Height = 39
Top = 0
Width = 94
Width = 118
Align = alRight
BorderSpacing.Right = 5
BorderSpacing.InnerBorder = 5
BorderSpacing.Right = 6
BorderSpacing.InnerBorder = 6
Caption = 'OK'
Default = True
ModalResult = 1

34
Client/UfrmInitialize.lfm
View File

@ -1,39 +1,37 @@
object frmInitialize: TfrmInitialize
Left = 290
Height = 65
Height = 81
Top = 171
Width = 241
Width = 301
BorderIcons = []
BorderStyle = bsDialog
Caption = 'Please wait ...'
ClientHeight = 65
ClientWidth = 241
Font.Height = -11
ClientHeight = 81
ClientWidth = 301
Font.Height = -14
OnClose = FormClose
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '0.9.25'
object pnlMain: TPanel
Left = 8
Height = 50
Top = 8
Width = 226
Left = 10
Height = 62
Top = 10
Width = 282
BevelInner = bvRaised
BevelOuter = bvLowered
ClientHeight = 50
ClientWidth = 226
ParentFont = True
ClientHeight = 62
ClientWidth = 282
TabOrder = 0
object lblStatus: TLabel
Left = 8
Height = 32
Top = 8
Width = 208
Left = 10
Height = 40
Top = 10
Width = 260
Alignment = taCenter
AutoSize = False
Color = clDefault
Layout = tlCenter
ParentColor = False
ParentFont = True
WordWrap = True
end
end

614
Client/UfrmLargeScaleCommand.lfm
View File

File diff suppressed because it is too large Load Diff

270
Client/UfrmLogin.lfm
View File

@ -1,20 +1,19 @@
object frmLogin: TfrmLogin
Left = 290
Height = 265
Height = 331
Top = 201
Width = 483
Width = 604
ActiveControl = btnOK
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'UO CentrED'
ClientHeight = 265
ClientWidth = 483
Font.Height = -11
ClientHeight = 331
ClientWidth = 604
Font.Height = -14
OnClose = FormClose
OnCreate = FormCreate
Position = poScreenCenter
ShowInTaskBar = stAlways
LCLVersion = '0.9.31'
object lblCopyright: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = gbData
@ -24,13 +23,14 @@ object frmLogin: TfrmLogin
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 14
Top = 249
Width = 483
Height = 20
Top = 311
Width = 604
Alignment = taCenter
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
BorderSpacing.Top = 10
Caption = ' '
Color = clDefault
ParentColor = False
end
object gbConnection: TGroupBox
@ -38,42 +38,46 @@ object frmLogin: TfrmLogin
AnchorSideTop.Control = Owner
AnchorSideRight.Control = gbActions
AnchorSideBottom.Side = asrCenter
Left = 8
Height = 138
Top = 4
Width = 316
Left = 10
Height = 172
Top = 5
Width = 395
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 4
BorderSpacing.Right = 8
BorderSpacing.Left = 10
BorderSpacing.Top = 5
BorderSpacing.Right = 10
Caption = 'Connection'
ClientHeight = 120
ClientWidth = 312
ClientHeight = 151
ClientWidth = 393
TabOrder = 0
object lblHost: TLabel
AnchorSideLeft.Control = imgHost
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edHost
AnchorSideTop.Side = asrCenter
Left = 32
Height = 14
Top = 11
Width = 28
BorderSpacing.Left = 8
Left = 36
Height = 20
Top = 16
Width = 34
BorderSpacing.Left = 10
Caption = 'Host:'
Color = clDefault
Font.Height = -14
ParentColor = False
ParentFont = False
end
object lblUsername: TLabel
AnchorSideLeft.Control = imgUsername
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edUsername
AnchorSideTop.Side = asrCenter
Left = 32
Height = 14
Top = 49
Width = 55
BorderSpacing.Left = 8
Left = 36
Height = 20
Top = 69
Width = 73
BorderSpacing.Left = 10
Caption = 'Username:'
Color = clDefault
ParentColor = False
end
object lblPassword: TLabel
@ -81,24 +85,25 @@ object frmLogin: TfrmLogin
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edPassword
AnchorSideTop.Side = asrCenter
Left = 32
Height = 14
Top = 86
Width = 53
BorderSpacing.Left = 8
Left = 36
Height = 20
Top = 121
Width = 68
BorderSpacing.Left = 10
Caption = 'Password:'
Color = clDefault
ParentColor = False
end
object imgHost: TImage
AnchorSideLeft.Control = gbConnection
AnchorSideTop.Control = lblHost
AnchorSideTop.Side = asrCenter
Left = 8
Left = 10
Height = 16
Top = 10
Top = 18
Width = 16
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Left = 10
Picture.Data = {
07545069786D61702E0A00002F2A2058504D202A2F0A73746174696320636861
72202A64756D6D795B5D3D7B0A223136203136203132342032222C0A22517420
@ -189,9 +194,9 @@ object frmLogin: TfrmLogin
AnchorSideLeft.Control = imgHost
AnchorSideTop.Control = lblUsername
AnchorSideTop.Side = asrCenter
Left = 8
Left = 10
Height = 16
Top = 48
Top = 71
Width = 16
AutoSize = True
Picture.Data = {
@ -284,9 +289,9 @@ object frmLogin: TfrmLogin
AnchorSideLeft.Control = imgUsername
AnchorSideTop.Control = lblPassword
AnchorSideTop.Side = asrCenter
Left = 8
Left = 10
Height = 16
Top = 85
Top = 123
Width = 16
AutoSize = True
Picture.Data = {
@ -370,13 +375,13 @@ object frmLogin: TfrmLogin
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbConnection
AnchorSideRight.Control = edPort
Left = 95
Height = 21
Top = 8
Width = 146
Left = 119
Height = 32
Top = 10
Width = 185
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Left = 10
BorderSpacing.Top = 10
TabOrder = 0
Text = 'localhost'
end
@ -386,12 +391,12 @@ object frmLogin: TfrmLogin
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edPort
AnchorSideRight.Side = asrBottom
Left = 95
Height = 21
Top = 46
Width = 209
Left = 119
Height = 32
Top = 63
Width = 264
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 17
BorderSpacing.Top = 21
TabOrder = 2
end
object edPassword: TEdit
@ -400,13 +405,13 @@ object frmLogin: TfrmLogin
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edUsername
AnchorSideRight.Side = asrBottom
Left = 95
Height = 21
Top = 83
Width = 209
Left = 119
Height = 32
Top = 115
Width = 264
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 16
BorderSpacing.Bottom = 16
BorderSpacing.Top = 20
BorderSpacing.Bottom = 20
EchoMode = emPassword
PasswordChar = '*'
TabOrder = 3
@ -419,13 +424,13 @@ object frmLogin: TfrmLogin
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = edHost
AnchorSideBottom.Side = asrBottom
Left = 249
Height = 21
Top = 8
Width = 55
Left = 314
Height = 32
Top = 10
Width = 69
Anchors = [akTop, akRight, akBottom]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
BorderSpacing.Left = 10
BorderSpacing.Right = 10
MaxValue = 65565
MinValue = 1024
TabOrder = 1
@ -438,28 +443,28 @@ object frmLogin: TfrmLogin
AnchorSideTop.Control = gbConnection
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 332
Height = 92
Top = 4
Width = 143
Left = 415
Height = 115
Top = 5
Width = 179
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
ClientHeight = 74
ClientWidth = 139
BorderSpacing.Left = 10
BorderSpacing.Right = 10
ClientHeight = 113
ClientWidth = 177
TabOrder = 2
object btnOK: TButton
AnchorSideLeft.Control = gbActions
AnchorSideTop.Control = gbActions
AnchorSideRight.Control = gbActions
AnchorSideRight.Side = asrBottom
Left = 8
Height = 25
Top = 8
Width = 123
Left = 10
Height = 31
Top = 10
Width = 157
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 8
BorderSpacing.InnerBorder = 4
BorderSpacing.Around = 10
BorderSpacing.InnerBorder = 5
Caption = '&OK'
Default = True
OnClick = btnOKClick
@ -471,13 +476,13 @@ object frmLogin: TfrmLogin
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnOK
AnchorSideRight.Side = asrBottom
Left = 8
Height = 25
Top = 41
Width = 123
Left = 10
Height = 31
Top = 51
Width = 157
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 8
BorderSpacing.InnerBorder = 4
BorderSpacing.Bottom = 10
BorderSpacing.InnerBorder = 5
Caption = '&Cancel'
ModalResult = 2
OnClick = btnCancelClick
@ -490,30 +495,31 @@ object frmLogin: TfrmLogin
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbConnection
AnchorSideRight.Side = asrBottom
Left = 8
Height = 95
Top = 146
Width = 316
Left = 10
Height = 119
Top = 182
Width = 395
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
BorderSpacing.Top = 5
Caption = 'Data files'
ClientHeight = 77
ClientWidth = 312
ClientHeight = 98
ClientWidth = 393
TabOrder = 1
object lblData: TLabel
AnchorSideLeft.Control = gbData
AnchorSideTop.Control = gbData
AnchorSideRight.Control = gbData
AnchorSideRight.Side = asrBottom
Left = 8
Height = 40
Top = 4
Width = 296
Left = 10
Height = 60
Top = 5
Width = 373
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 4
BorderSpacing.Right = 8
BorderSpacing.Left = 10
BorderSpacing.Top = 5
BorderSpacing.Right = 10
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
WordWrap = True
end
@ -521,16 +527,16 @@ object frmLogin: TfrmLogin
AnchorSideLeft.Control = lblData
AnchorSideTop.Control = lblData
AnchorSideTop.Side = asrBottom
Left = 8
Height = 21
Top = 48
Width = 272
Left = 10
Height = 26
Top = 70
Width = 340
ShowHidden = False
ButtonWidth = 23
ButtonWidth = 29
NumGlyphs = 1
AutoSize = False
BorderSpacing.Top = 4
BorderSpacing.Bottom = 8
BorderSpacing.Top = 5
BorderSpacing.Bottom = 10
MaxLength = 0
TabOrder = 0
end
@ -541,26 +547,26 @@ object frmLogin: TfrmLogin
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbActions
AnchorSideRight.Side = asrBottom
Left = 332
Height = 81
Top = 104
Width = 143
Left = 415
Height = 101
Top = 130
Width = 179
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
BorderSpacing.Top = 10
Caption = 'Profiles'
ClientHeight = 63
ClientWidth = 139
ClientHeight = 80
ClientWidth = 177
TabOrder = 3
object btnSaveProfile: TSpeedButton
AnchorSideTop.Control = btnDeleteProfile
AnchorSideRight.Control = btnDeleteProfile
Left = 79
Height = 22
Left = 101
Height = 28
Hint = 'Save profile'
Top = 33
Width = 22
Top = 51
Width = 28
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
BorderSpacing.Right = 10
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000BA6A36FFB969
@ -597,7 +603,6 @@ object frmLogin: TfrmLogin
36FFBC6B36FFBC6B36FFBC6B36FFBB6B36FFBB6B36FFBB6A36FFBB6A36FFBC6C
39FFBD6E3BFFBB6D3AFFBB6B38FFBB703EFF0000000000000000
}
NumGlyphs = 0
OnClick = btnSaveProfileClick
ShowCaption = False
ShowHint = True
@ -608,14 +613,14 @@ object frmLogin: TfrmLogin
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cbProfile
AnchorSideRight.Side = asrBottom
Left = 109
Height = 22
Left = 139
Height = 28
Hint = 'Delete profile'
Top = 33
Width = 22
Top = 51
Width = 28
Anchors = [akTop, akRight]
BorderSpacing.Top = 8
BorderSpacing.Bottom = 8
BorderSpacing.Top = 10
BorderSpacing.Bottom = 10
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@ -652,7 +657,6 @@ object frmLogin: TfrmLogin
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
NumGlyphs = 0
OnClick = btnDeleteProfileClick
ShowCaption = False
ShowHint = True
@ -663,15 +667,15 @@ object frmLogin: TfrmLogin
AnchorSideTop.Control = gbProfiles
AnchorSideRight.Control = gbProfiles
AnchorSideRight.Side = asrBottom
Left = 8
Height = 21
Top = 4
Width = 123
Left = 10
Height = 36
Top = 5
Width = 157
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 4
BorderSpacing.Right = 8
ItemHeight = 13
BorderSpacing.Left = 10
BorderSpacing.Top = 5
BorderSpacing.Right = 10
ItemHeight = 0
OnChange = cbProfileChange
Style = csDropDownList
TabOrder = 0

466
Client/UfrmMain.lfm
View File

@ -1,16 +1,16 @@
object frmMain: TfrmMain
Left = 257
Height = 724
Height = 905
Top = 141
Width = 944
Width = 1180
ActiveControl = oglGameWindow
Caption = 'UO CentrED'
ClientHeight = 724
ClientWidth = 944
Constraints.MinHeight = 625
Constraints.MinWidth = 938
ClientHeight = 905
ClientWidth = 1180
Constraints.MinHeight = 781
Constraints.MinWidth = 1172
DesignTimePPI = 120
Font.Height = -14
Font.Height = -18
Menu = MainMenu1
OnActivate = FormActivate
OnClose = FormClose
@ -22,90 +22,90 @@ object frmMain: TfrmMain
WindowState = wsMaximized
object pnlBottom: TPanel
Left = 0
Height = 39
Top = 685
Width = 944
Height = 49
Top = 856
Width = 1180
Align = alBottom
BevelOuter = bvNone
ClientHeight = 39
ClientWidth = 944
ClientHeight = 49
ClientWidth = 1180
TabOrder = 0
object lblX: TLabel
Left = 14
Height = 20
Top = 9
Width = 12
Left = 18
Height = 26
Top = 11
Width = 16
Caption = 'X:'
Color = clDefault
ParentColor = False
end
object lblY: TLabel
Left = 110
Height = 20
Top = 9
Width = 12
Left = 138
Height = 26
Top = 11
Width = 15
Caption = 'Y:'
Color = clDefault
ParentColor = False
end
object lblTileInfo: TLabel
Left = 300
Height = 20
Top = 9
Width = 4
Left = 375
Height = 26
Top = 11
Width = 5
Caption = ' '
Color = clDefault
ParentColor = False
end
object lblTip: TLabel
Left = 645
Height = 39
Left = 803
Height = 49
Top = 0
Width = 289
Width = 365
Align = alRight
Alignment = taRightJustify
BorderSpacing.Right = 10
BorderSpacing.Right = 12
Caption = 'Right click shows a menu with all the tools.'
Color = clDefault
Layout = tlCenter
ParentColor = False
end
object lblTipC: TLabel
Left = 616
Height = 39
Left = 767
Height = 49
Top = 0
Width = 29
Width = 36
Align = alRight
Caption = 'Tip: '
Color = clDefault
Font.Height = -14
Font.Height = -18
Font.Style = [fsBold]
Layout = tlCenter
ParentColor = False
ParentFont = False
end
object edX: TSpinEdit
Left = 30
Height = 30
Top = 4
Width = 69
Left = 38
Height = 36
Top = 5
Width = 86
MaxValue = 100000
TabOrder = 0
end
object edY: TSpinEdit
Left = 130
Height = 30
Top = 4
Width = 65
Left = 162
Height = 36
Top = 5
Width = 81
MaxValue = 100000
TabOrder = 1
end
object btnGoTo: TButton
Left = 210
Height = 29
Top = 4
Width = 64
BorderSpacing.InnerBorder = 5
Left = 262
Height = 36
Top = 5
Width = 80
BorderSpacing.InnerBorder = 6
Caption = 'GoTo'
OnClick = btnGoToClick
TabOrder = 2
@ -113,26 +113,26 @@ object frmMain: TfrmMain
end
object pcLeft: TPageControl
Left = 0
Height = 655
Top = 30
Width = 280
Height = 818
Top = 38
Width = 350
ActivePage = tsTiles
Align = alLeft
TabIndex = 0
TabOrder = 1
object tsTiles: TTabSheet
Caption = 'Tiles'
ClientHeight = 623
ClientWidth = 270
ClientHeight = 780
ClientWidth = 340
object lblFilter: TLabel
AnchorSideLeft.Control = cbTerrain
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbTerrain
Left = 97
Height = 20
Top = 10
Width = 38
BorderSpacing.Left = 20
Left = 114
Height = 26
Top = 12
Width = 47
BorderSpacing.Left = 25
Caption = 'Filter:'
Color = clDefault
ParentColor = False
@ -145,16 +145,16 @@ object frmMain: TfrmMain
AnchorSideRight.Control = tsTiles
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = spTileList
Left = 5
Height = 343
Left = 6
Height = 437
Hint = '-'
Top = 59
Width = 260
Top = 74
Width = 328
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 5
BorderSpacing.Top = 5
BorderSpacing.Right = 5
DefaultNodeHeight = 55
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
DefaultNodeHeight = 69
DragMode = dmAutomatic
DragOperations = []
DragType = dtVCL
@ -167,15 +167,15 @@ object frmMain: TfrmMain
item
Position = 1
Text = 'Tile'
Width = 55
Width = 69
end
item
Position = 2
Text = 'Name'
Width = 125
Width = 156
end>
Header.DefaultHeight = 21
Header.Height = 21
Header.DefaultHeight = 26
Header.Height = 26
Header.MainColumn = 2
Header.Options = [hoShowHint, hoVisible]
Header.ParentFont = True
@ -206,23 +206,23 @@ object frmMain: TfrmMain
AnchorSideBottom.Control = tsTiles
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 215
Top = 408
Width = 270
Height = 261
Top = 519
Width = 340
Anchors = [akTop, akLeft, akRight, akBottom]
Caption = 'Random pool'
ClientHeight = 194
ClientWidth = 268
ClientHeight = 234
ClientWidth = 338
TabOrder = 1
object btnAddRandom: TSpeedButton
AnchorSideLeft.Control = gbRandom
AnchorSideTop.Control = gbRandom
Left = 5
Height = 28
Left = 6
Height = 35
Hint = 'Add'
Top = 0
Width = 29
BorderSpacing.Left = 5
Width = 36
BorderSpacing.Left = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@ -267,12 +267,12 @@ object frmMain: TfrmMain
AnchorSideLeft.Control = btnAddRandom
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnAddRandom
Left = 39
Height = 28
Left = 48
Height = 35
Hint = 'Delete'
Top = 0
Width = 29
BorderSpacing.Left = 5
Width = 36
BorderSpacing.Left = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@ -317,12 +317,12 @@ object frmMain: TfrmMain
AnchorSideLeft.Control = btnDeleteRandom
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnDeleteRandom
Left = 73
Height = 28
Left = 90
Height = 35
Hint = 'Clear'
Top = 0
Width = 29
BorderSpacing.Left = 5
Width = 36
BorderSpacing.Left = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@ -366,13 +366,13 @@ object frmMain: TfrmMain
object btnRandomPresetSave: TSpeedButton
AnchorSideTop.Control = cbRandomPreset
AnchorSideRight.Control = btnRandomPresetDelete
Left = 202
Height = 28
Left = 256
Height = 35
Hint = 'Save Preset'
Top = 153
Width = 28
Top = 186
Width = 35
Anchors = [akTop, akRight]
BorderSpacing.Right = 5
BorderSpacing.Right = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@ -418,13 +418,13 @@ object frmMain: TfrmMain
AnchorSideTop.Control = btnRandomPresetSave
AnchorSideRight.Control = gbRandom
AnchorSideRight.Side = asrBottom
Left = 235
Height = 28
Left = 297
Height = 35
Hint = 'Delete Preset'
Top = 153
Width = 28
Top = 186
Width = 35
Anchors = [akTop, akRight]
BorderSpacing.Right = 5
BorderSpacing.Right = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@ -475,16 +475,16 @@ object frmMain: TfrmMain
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = cbRandomPreset
Cursor = 63
Left = 5
Height = 118
Top = 30
Width = 258
Left = 6
Height = 143
Top = 37
Width = 326
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 5
BorderSpacing.Left = 6
BorderSpacing.Top = 2
BorderSpacing.Right = 5
BorderSpacing.Bottom = 5
DefaultNodeHeight = 55
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
DefaultNodeHeight = 69
DragType = dtVCL
Header.AutoSizeIndex = 0
Header.Columns = <
@ -495,15 +495,15 @@ object frmMain: TfrmMain
item
Position = 1
Text = 'Tile'
Width = 55
Width = 69
end
item
Position = 2
Text = 'Name'
Width = 125
Width = 156
end>
Header.DefaultHeight = 21
Header.Height = 21
Header.DefaultHeight = 26
Header.Height = 26
Header.Options = [hoColumnResize, hoDrag, hoVisible]
Header.ParentFont = True
Header.Style = hsFlatButtons
@ -524,14 +524,14 @@ object frmMain: TfrmMain
AnchorSideRight.Control = btnRandomPresetSave
AnchorSideBottom.Control = gbRandom
AnchorSideBottom.Side = asrBottom
Left = 5
Height = 36
Top = 153
Width = 192
Left = 6
Height = 42
Top = 186
Width = 244
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 5
BorderSpacing.Right = 5
BorderSpacing.Bottom = 5
BorderSpacing.Left = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
ItemHeight = 0
OnChange = cbRandomPresetChange
Sorted = True
@ -545,9 +545,9 @@ object frmMain: TfrmMain
AnchorSideRight.Side = asrBottom
Cursor = crVSplit
Left = 0
Height = 6
Top = 402
Width = 270
Height = 8
Top = 511
Width = 340
Align = alNone
Anchors = [akLeft, akRight, akBottom]
ResizeAnchor = akBottom
@ -557,14 +557,14 @@ object frmMain: TfrmMain
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = vdtTiles
AnchorSideBottom.Side = asrBottom
Left = 135
Height = 32
Left = 172
Height = 38
Hint = 'Append S or T to restrict the search to Statics or Terrain.'
Top = 360
Width = 120
Top = 461
Width = 150
Anchors = [akRight, akBottom]
BorderSpacing.Right = 10
BorderSpacing.Bottom = 10
BorderSpacing.Right = 12
BorderSpacing.Bottom = 12
CharCase = ecUppercase
OnExit = edSearchIDExit
OnKeyPress = edSearchIDKeyPress
@ -579,12 +579,12 @@ object frmMain: TfrmMain
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = tsTiles
AnchorSideRight.Side = asrBottom
Left = 97
Height = 32
Top = 30
Width = 153
Left = 114
Height = 38
Top = 38
Width = 201
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 20
BorderSpacing.Right = 25
OnEditingDone = edFilterEditingDone
TabOrder = 4
end
@ -593,10 +593,10 @@ object frmMain: TfrmMain
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = cbTerrain
AnchorSideTop.Side = asrBottom
Left = 7
Height = 22
Top = 32
Width = 68
Left = 8
Height = 28
Top = 40
Width = 79
Caption = 'Statics'
Checked = True
OnChange = cbStaticsChange
@ -606,12 +606,12 @@ object frmMain: TfrmMain
object cbTerrain: TCheckBox
AnchorSideLeft.Control = tsTiles
AnchorSideTop.Control = tsTiles
Left = 5
Height = 22
Top = 10
Width = 72
BorderSpacing.Left = 5
BorderSpacing.Top = 10
Left = 6
Height = 28
Top = 12
Width = 83
BorderSpacing.Left = 6
BorderSpacing.Top = 12
Caption = 'Terrain'
Checked = True
OnChange = cbTerrainChange
@ -621,13 +621,13 @@ object frmMain: TfrmMain
end
object tsClients: TTabSheet
Caption = 'Clients'
ClientHeight = 623
ClientWidth = 270
ClientHeight = 780
ClientWidth = 340
object lbClients: TListBox
Left = 0
Height = 623
Height = 780
Top = 0
Width = 270
Width = 340
Align = alClient
ItemHeight = 0
OnDblClick = mnuGoToClientClick
@ -640,18 +640,18 @@ object frmMain: TfrmMain
end
object tsLocations: TTabSheet
Caption = 'Locations'
ClientHeight = 623
ClientWidth = 270
ClientHeight = 780
ClientWidth = 340
object btnClearLocations: TSpeedButton
AnchorSideLeft.Control = btnDeleteLocation
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnDeleteLocation
Left = 155
Height = 28
Left = 194
Height = 35
Hint = 'Clear'
Top = 590
Width = 29
BorderSpacing.Left = 5
Top = 739
Width = 36
BorderSpacing.Left = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@ -697,13 +697,13 @@ object frmMain: TfrmMain
AnchorSideLeft.Side = asrCenter
AnchorSideBottom.Control = tsLocations
AnchorSideBottom.Side = asrBottom
Left = 121
Height = 28
Left = 152
Height = 35
Hint = 'Delete'
Top = 590
Width = 29
Top = 739
Width = 36
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 5
BorderSpacing.Bottom = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@ -747,13 +747,13 @@ object frmMain: TfrmMain
object btnAddLocation: TSpeedButton
AnchorSideTop.Control = btnDeleteLocation
AnchorSideRight.Control = btnDeleteLocation
Left = 87
Height = 28
Left = 110
Height = 35
Hint = 'Add'
Top = 590
Width = 29
Top = 739
Width = 36
Anchors = [akTop, akRight]
BorderSpacing.Right = 5
BorderSpacing.Right = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@ -801,27 +801,27 @@ object frmMain: TfrmMain
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnDeleteLocation
Cursor = 63
Left = 5
Height = 580
Top = 5
Width = 260
Left = 6
Height = 727
Top = 6
Width = 328
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 5
BorderSpacing.Around = 6
DefaultText = 'Node'
Header.AutoSizeIndex = 1
Header.Columns = <
item
Position = 0
Text = 'Coords'
Width = 94
Width = 118
end
item
Position = 1
Text = 'Name'
Width = 162
Width = 206
end>
Header.DefaultHeight = 21
Header.Height = 21
Header.DefaultHeight = 26
Header.Height = 26
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible]
Header.ParentFont = True
Header.Style = hsFlatButtons
@ -840,9 +840,9 @@ object frmMain: TfrmMain
end
object tbMain: TToolBar
Left = 0
Height = 30
Height = 38
Top = 0
Width = 944
Width = 1180
Caption = 'tbMain'
Images = ImageList1
ParentShowHint = False
@ -1030,24 +1030,24 @@ object frmMain: TfrmMain
AnchorSideRight.Control = pnlChat
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = spChat
Left = 280
Height = 28
Top = 489
Width = 664
Left = 350
Height = 35
Top = 611
Width = 830
Anchors = [akLeft, akRight, akBottom]
BevelInner = bvRaised
BevelOuter = bvLowered
ClientHeight = 28
ClientWidth = 664
ClientHeight = 35
ClientWidth = 830
TabOrder = 3
object lblChatHeaderCaption: TLabel
Cursor = crHandPoint
Left = 12
Height = 24
Left = 14
Height = 31
Top = 2
Width = 132
Width = 164
Align = alLeft
BorderSpacing.Left = 10
BorderSpacing.Left = 12
Caption = 'Chat and Messages'
Color = clDefault
Layout = tlCenter
@ -1065,22 +1065,22 @@ object frmMain: TfrmMain
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnlBottom
Left = 280
Height = 162
Top = 523
Width = 664
Left = 350
Height = 202
Top = 654
Width = 830
Anchors = [akTop, akLeft, akRight, akBottom]
BevelOuter = bvNone
ClientHeight = 162
ClientWidth = 664
ClientHeight = 202
ClientWidth = 830
TabOrder = 4
Visible = False
object vstChat: TLazVirtualStringTree
Cursor = 63
Left = 0
Height = 130
Height = 164
Top = 0
Width = 664
Width = 830
Align = alClient
DefaultText = 'Node'
Header.AutoSizeIndex = 2
@ -1088,20 +1088,20 @@ object frmMain: TfrmMain
item
Position = 0
Text = 'Time'
Width = 94
Width = 118
end
item
Position = 1
Text = 'Sender'
Width = 94
Width = 118
end
item
Position = 2
Text = 'Message'
Width = 474
Width = 592
end>
Header.DefaultHeight = 21
Header.Height = 21
Header.DefaultHeight = 26
Header.Height = 26
Header.MainColumn = 2
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible]
Header.ParentFont = True
@ -1117,9 +1117,9 @@ object frmMain: TfrmMain
end
object edChat: TEdit
Left = 0
Height = 32
Top = 130
Width = 664
Height = 38
Top = 164
Width = 830
Align = alBottom
OnKeyPress = edChatKeyPress
TabOrder = 1
@ -1131,10 +1131,10 @@ object frmMain: TfrmMain
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Cursor = crVSplit
Left = 280
Height = 6
Top = 517
Width = 664
Left = 350
Height = 8
Top = 646
Width = 830
Align = alNone
Anchors = [akLeft, akRight, akBottom]
AutoSnap = False
@ -1149,10 +1149,10 @@ object frmMain: TfrmMain
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnlChatHeader
Left = 280
Height = 459
Top = 30
Width = 664
Left = 350
Height = 573
Top = 38
Width = 830
Anchors = [akTop, akLeft, akRight, akBottom]
OnDblClick = oglGameWindowDblClick
OnKeyDown = oglGameWindowKeyDown
@ -1167,8 +1167,8 @@ object frmMain: TfrmMain
end
object MainMenu1: TMainMenu
Images = ImageList1
Left = 290
Top = 41
Left = 363
Top = 51
object mnuCentrED: TMenuItem
Caption = '&CentrED'
object mnuChangePassword: TMenuItem
@ -1249,8 +1249,8 @@ object frmMain: TfrmMain
end
end
object ImageList1: TImageList
Left = 330
Top = 40
Left = 413
Top = 50
Bitmap = {
4C7A170000001000000010000000312A00000000000078DAED9C09588EE9DFF7
FFC632C832CC8CFFCC3CC318A41D95BD7DA710B2B4D0AA22420A49254AFB5E68
@ -1594,8 +1594,8 @@ object frmMain: TfrmMain
}
end
object pmTileList: TPopupMenu
Left = 230
Top = 160
Left = 288
Top = 200
object mnuAddToRandom: TMenuItem
Caption = 'Add to random pool'
OnClick = btnAddRandomClick
@ -1604,13 +1604,13 @@ object frmMain: TfrmMain
object ApplicationProperties1: TApplicationProperties
OnIdle = ApplicationProperties1Idle
OnShowHint = ApplicationProperties1ShowHint
Left = 369
Top = 41
Left = 461
Top = 51
end
object pmTools: TPopupMenu
Images = ImageList1
Left = 410
Top = 41
Left = 513
Top = 51
object mnuSelect: TMenuItem
Action = acSelect
GroupIndex = 1
@ -1660,8 +1660,8 @@ object frmMain: TfrmMain
end
end
object pmClients: TPopupMenu
Left = 230
Top = 220
Left = 288
Top = 275
object mnuGoToClient: TMenuItem
Caption = 'GoTo'
Default = True
@ -1673,13 +1673,13 @@ object frmMain: TfrmMain
Interval = 500
OnTimer = tmMovementTimer
OnStartTimer = tmMovementTimer
Left = 290
Top = 100
Left = 363
Top = 125
end
object ActionList1: TActionList
Images = ImageList1
Left = 330
Top = 100
Left = 413
Top = 125
object acSelect: TAction
Category = 'Tools'
Caption = 'Select'
@ -1818,13 +1818,13 @@ object frmMain: TfrmMain
Enabled = False
Interval = 250
OnTimer = tmGrabTileInfoTimer
Left = 460
Top = 100
Left = 575
Top = 125
end
object pmGrabTileInfo: TPopupMenu
OnPopup = pmGrabTileInfoPopup
Left = 460
Top = 41
Left = 575
Top = 51
object mnuGrabTileID: TMenuItem
Caption = 'Grab TileID'
OnClick = mnuGrabTileIDClick
@ -1836,8 +1836,8 @@ object frmMain: TfrmMain
end
object pmFlatViewSettings: TPopupMenu
OnClose = pmFlatViewSettingsClose
Left = 460
Top = 170
Left = 575
Top = 213
object mnuFlatShowHeight: TMenuItem
AutoCheck = True
Caption = 'Show Height'
@ -1849,14 +1849,14 @@ object frmMain: TfrmMain
RootNodePath = 'Forms/frmMain'
Active = False
OnRestoreProperties = XMLPropStorage1RestoreProperties
Left = 460
Top = 260
Left = 575
Top = 325
end
object pmViewStaticSettings: TPopupMenu
Images = ImageList1
OnClose = pmFlatViewSettingsClose
Left = 730
Top = 41
Left = 913
Top = 51
object mnuShowWalls: TMenuItem
AutoCheck = True
Caption = 'Walls and Windows'
@ -1904,13 +1904,13 @@ object frmMain: TfrmMain
Enabled = False
Interval = 25
OnTimer = tmToolbarFixTimer
Left = 730
Top = 370
Left = 913
Top = 463
end
object pmViewTerrainSettings: TPopupMenu
OnClose = pmFlatViewSettingsClose
Left = 730
Top = 110
Left = 913
Top = 138
object mnuShowGrid: TMenuItem
Caption = 'Show Grid'
OnClick = mnuShowGridClick

44
Client/UfrmRadar.lfm
View File

@ -1,59 +1,61 @@
object frmRadarMap: TfrmRadarMap
Left = 290
Height = 360
Height = 450
Top = 171
Width = 479
Width = 599
HorzScrollBar.Page = 478
VertScrollBar.Page = 359
ActiveControl = sbMain
Caption = 'Radar Map (1:8)'
ClientHeight = 360
ClientWidth = 479
ClientHeight = 450
ClientWidth = 599
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnResize = FormResize
Position = poOwnerFormCenter
ShowInTaskBar = stAlways
LCLVersion = '0.9.29'
object pnlBottom: TPanel
Left = 0
Height = 21
Top = 339
Width = 479
Height = 26
Top = 424
Width = 599
Align = alBottom
BevelOuter = bvNone
ClientHeight = 21
ClientWidth = 479
ClientHeight = 26
ClientWidth = 599
TabOrder = 0
object lblPosition: TLabel
Left = 8
Height = 21
Left = 10
Height = 26
Top = 0
Width = 41
Width = 1
Align = alLeft
BorderSpacing.Left = 8
BorderSpacing.Left = 10
Color = clDefault
Layout = tlCenter
ParentColor = False
end
end
object sbMain: TScrollBox
Left = 0
Height = 339
Height = 424
Top = 0
Width = 479
Width = 599
HorzScrollBar.Page = 365
VertScrollBar.Page = 252
Align = alClient
ClientHeight = 335
ClientWidth = 475
ClientHeight = 422
ClientWidth = 597
TabOrder = 1
object pbRadar: TPaintBox
Left = 0
Height = 202
Height = 252
Top = 0
Width = 292
Width = 365
OnMouseDown = pbRadarMouseDown
OnMouseMove = pbRadarMouseMove
OnMouseLeave = pbRadarMouseLeave
OnMouseMove = pbRadarMouseMove
OnPaint = pbRadarPaint
end
end

233
Client/UfrmRegionControl.lfm
View File

@ -1,21 +1,20 @@
object frmRegionControl: TfrmRegionControl
Left = 247
Height = 516
Height = 645
Top = 139
Width = 775
Width = 1007
ActiveControl = vstRegions
Caption = 'Region Control'
ClientHeight = 516
ClientWidth = 775
ClientHeight = 645
ClientWidth = 1007
DesignTimePPI = 120
Font.Height = -14
Font.Height = -18
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
Position = poOwnerFormCenter
ShowInTaskBar = stAlways
LCLVersion = '2.3.0.0'
object sbArea: TScrollBox
AnchorSideLeft.Control = vstRegions
AnchorSideLeft.Side = asrBottom
@ -23,21 +22,21 @@ object frmRegionControl: TfrmRegionControl
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnClose
Left = 200
Height = 372
Left = 250
Height = 582
Top = 0
Width = 460
HorzScrollBar.Page = 456
VertScrollBar.Page = 368
Width = 757
HorzScrollBar.Page = 164
VertScrollBar.Page = 164
Anchors = [akTop, akLeft, akRight, akBottom]
ClientHeight = 368
ClientWidth = 456
ClientHeight = 580
ClientWidth = 755
TabOrder = 0
object pbArea: TPaintBox
Left = 0
Height = 131
Height = 164
Top = 0
Width = 131
Width = 164
OnMouseDown = pbAreaMouseDown
OnMouseMove = pbAreaMouseMove
OnPaint = pbAreaPaint
@ -48,12 +47,12 @@ object frmRegionControl: TfrmRegionControl
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 532
Height = 31
Top = 374
Width = 80
Left = 895
Height = 39
Top = 594
Width = 100
Anchors = [akRight, akBottom]
BorderSpacing.Around = 10
BorderSpacing.Around = 12
Caption = 'Close'
OnClick = btnCloseClick
TabOrder = 1
@ -62,12 +61,12 @@ object frmRegionControl: TfrmRegionControl
AnchorSideRight.Control = btnClose
AnchorSideBottom.Control = btnClose
AnchorSideBottom.Side = asrBottom
Left = 460
Height = 31
Top = 374
Width = 80
Left = 783
Height = 39
Top = 594
Width = 100
Anchors = [akRight, akBottom]
BorderSpacing.Right = 5
BorderSpacing.Right = 6
Caption = 'Save'
Enabled = False
OnClick = btnSaveClick
@ -78,20 +77,21 @@ object frmRegionControl: TfrmRegionControl
AnchorSideTop.Control = Owner
AnchorSideBottom.Control = btnAddRegion
Left = 0
Height = 130
Height = 203
Top = 0
Width = 200
Width = 250
Anchors = [akTop, akLeft, akBottom]
DefaultNodeHeight = 26
DefaultText = 'Node'
Header.AutoSizeIndex = 0
Header.Columns = <
item
Position = 0
Text = 'Regions'
Width = 200
Width = 248
end>
Header.DefaultHeight = 21
Header.Height = 36
Header.DefaultHeight = 26
Header.Height = 45
Header.Options = [hoAutoResize, hoVisible]
Header.ParentFont = True
Header.Style = hsFlatButtons
@ -107,13 +107,13 @@ object frmRegionControl: TfrmRegionControl
object btnAddRegion: TSpeedButton
AnchorSideLeft.Control = vstRegions
AnchorSideBottom.Control = spRegionsArea
Left = 5
Height = 28
Left = 6
Height = 35
Hint = 'Add region'
Top = 128
Width = 28
Top = 209
Width = 35
Anchors = [akLeft, akBottom]
BorderSpacing.Around = 5
BorderSpacing.Around = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@ -159,13 +159,13 @@ object frmRegionControl: TfrmRegionControl
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = btnAddRegion
AnchorSideBottom.Side = asrBottom
Left = 38
Height = 28
Left = 47
Height = 35
Hint = 'Delete region'
Top = 128
Width = 28
Top = 209
Width = 35
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 5
BorderSpacing.Left = 6
Enabled = False
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
@ -214,19 +214,20 @@ object frmRegionControl: TfrmRegionControl
AnchorSideRight.Control = spRegionsArea
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnDeleteArea
Left = 5
Height = 121
Top = 222
Width = 152
Left = 6
Height = 177
Top = 284
Width = 238
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 5
BorderSpacing.Right = 5
BorderSpacing.Bottom = 5
BorderSpacing.Left = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
DefaultNodeHeight = 26
DefaultText = 'Node'
Header.AutoSizeIndex = 0
Header.Columns = <>
Header.DefaultHeight = 21
Header.Height = 29
Header.DefaultHeight = 26
Header.Height = 36
Header.MainColumn = -1
Header.Options = [hoColumnResize, hoDrag]
TabOrder = 4
@ -241,13 +242,13 @@ object frmRegionControl: TfrmRegionControl
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = spRegionsArea
AnchorSideRight.Side = asrBottom
Left = 5
Height = 13
Top = 206
Width = 152
Left = 6
Height = 26
Top = 258
Width = 238
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 5
BorderSpacing.Right = 5
BorderSpacing.Left = 6
BorderSpacing.Right = 6
Caption = 'Area:'
Color = clDefault
ParentColor = False
@ -258,9 +259,9 @@ object frmRegionControl: TfrmRegionControl
AnchorSideRight.Side = asrBottom
Cursor = crVSplit
Left = 0
Height = 6
Top = 200
Width = 160
Height = 8
Top = 250
Width = 250
Align = alNone
Anchors = [akTop, akLeft, akRight]
AutoSnap = False
@ -269,11 +270,11 @@ object frmRegionControl: TfrmRegionControl
object btnAddArea: TSpeedButton
AnchorSideTop.Control = btnDeleteArea
AnchorSideRight.Control = btnDeleteArea
Left = 37
Height = 28
Left = 67
Height = 35
Hint = 'Add area'
Top = 379
Width = 28
Top = 467
Width = 35
Anchors = [akTop, akRight]
Enabled = False
Glyph.Data = {
@ -320,14 +321,14 @@ object frmRegionControl: TfrmRegionControl
AnchorSideLeft.Control = vstArea
AnchorSideLeft.Side = asrCenter
AnchorSideBottom.Control = seX1
Left = 86
Height = 28
Left = 108
Height = 35
Hint = 'Delete area'
Top = 297
Width = 28
Top = 467
Width = 35
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 5
BorderSpacing.Around = 5
BorderSpacing.Bottom = 6
BorderSpacing.Around = 6
Enabled = False
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
@ -373,11 +374,11 @@ object frmRegionControl: TfrmRegionControl
AnchorSideLeft.Control = btnDeleteArea
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnDeleteArea
Left = 119
Height = 28
Left = 149
Height = 35
Hint = 'Delete all areas'
Top = 379
Width = 28
Top = 467
Width = 35
Enabled = False
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
@ -423,11 +424,11 @@ object frmRegionControl: TfrmRegionControl
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = seX1
AnchorSideTop.Side = asrCenter
Left = 5
Height = 13
Top = 421
Width = 6
BorderSpacing.Left = 5
Left = 6
Height = 26
Top = 519
Width = 11
BorderSpacing.Left = 6
Caption = 'X'
Color = clDefault
Enabled = False
@ -435,13 +436,15 @@ object frmRegionControl: TfrmRegionControl
end
object seX1: TSpinEdit
AnchorSideLeft.Control = seY1
AnchorSideRight.Control = seY1
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = seY1
Left = 21
Height = 21
Top = 333
Width = 62
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 10
Left = 28
Height = 36
Top = 514
Width = 76
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Bottom = 12
Enabled = False
OnChange = seX1Change
TabOrder = 6
@ -451,11 +454,11 @@ object frmRegionControl: TfrmRegionControl
AnchorSideLeft.Control = seX1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = seX1
Left = 94
Height = 21
Top = 416
Width = 62
BorderSpacing.Left = 10
Left = 116
Height = 36
Top = 514
Width = 76
BorderSpacing.Left = 12
Enabled = False
OnChange = seX1Change
TabOrder = 7
@ -465,10 +468,10 @@ object frmRegionControl: TfrmRegionControl
AnchorSideLeft.Control = lblX
AnchorSideTop.Control = seY1
AnchorSideTop.Side = asrCenter
Left = 5
Height = 13
Top = 458
Width = 5
Left = 6
Height = 26
Top = 567
Width = 10
Caption = 'Y'
Color = clDefault
Enabled = False
@ -480,16 +483,16 @@ object frmRegionControl: TfrmRegionControl
AnchorSideRight.Control = seX1
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnGrab1
Left = 21
Height = 21
Top = 362
Width = 53
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 10
Left = 28
Height = 36
Top = 562
Width = 76
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 12
Enabled = False
OnChange = seX1Change
TabOrder = 8
Value = 1
Value = 2
end
object seY2: TSpinEdit
AnchorSideLeft.Control = seX2
@ -497,12 +500,12 @@ object frmRegionControl: TfrmRegionControl
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = seX2
AnchorSideRight.Side = asrBottom
Left = 94
Height = 21
Top = 452
Width = 50
Left = 116
Height = 36
Top = 562
Width = 76
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 10
BorderSpacing.Top = 12
Enabled = False
OnChange = seX1Change
TabOrder = 9
@ -513,13 +516,13 @@ object frmRegionControl: TfrmRegionControl
AnchorSideLeft.Side = asrCenter
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 40
Height = 28
Left = 49
Height = 35
Hint = 'Grab coordinates from the main window.'
Top = 381
Width = 28
Top = 604
Width = 35
Anchors = [akLeft, akBottom]
BorderSpacing.Around = 5
BorderSpacing.Around = 6
Enabled = False
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
@ -566,11 +569,11 @@ object frmRegionControl: TfrmRegionControl
AnchorSideLeft.Side = asrCenter
AnchorSideBottom.Control = btnGrab1
AnchorSideBottom.Side = asrBottom
Left = 111
Height = 28
Left = 137
Height = 35
Hint = 'Grab coordinates from the main window.'
Top = 381
Width = 28
Top = 604
Width = 35
Anchors = [akLeft, akBottom]
Enabled = False
Glyph.Data = {
@ -614,8 +617,8 @@ object frmRegionControl: TfrmRegionControl
ParentShowHint = False
end
object pmRegions: TPopupMenu
Left = 60
Top = 54
Left = 75
Top = 68
object mnuAddRegion: TMenuItem
Caption = 'Add'
OnClick = mnuAddRegionClick