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> </Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<Title Value="CentrED"/> <Title Value="CentrED"/>
<Scaled Value="True"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<Icon Value="0"/> <Icon Value="0"/>
@ -19,7 +20,7 @@
<AutoIncrementBuild Value="True"/> <AutoIncrementBuild Value="True"/>
<MinorVersionNr Value="7"/> <MinorVersionNr Value="7"/>
<BuildNr Value="262"/> <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> </VersionInfo>
<BuildModes Count="7"> <BuildModes Count="7">
<Item1 Name="default" Default="True"/> <Item1 Name="default" Default="True"/>
@ -354,6 +355,7 @@
<Filename Value="UfrmInitialize.pas"/> <Filename Value="UfrmInitialize.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmInitialize"/> <ComponentName Value="frmInitialize"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
@ -374,6 +376,7 @@
<Filename Value="Tools/UfrmDrawSettings.pas"/> <Filename Value="Tools/UfrmDrawSettings.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmDrawSettings"/> <ComponentName Value="frmDrawSettings"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
@ -387,6 +390,7 @@
<Filename Value="Tools/UfrmElevateSettings.pas"/> <Filename Value="Tools/UfrmElevateSettings.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmElevateSettings"/> <ComponentName Value="frmElevateSettings"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
</Unit9> </Unit9>
<Unit10> <Unit10>
@ -397,30 +401,35 @@
<Filename Value="Tools/UfrmConfirmation.pas"/> <Filename Value="Tools/UfrmConfirmation.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmConfirmation"/> <ComponentName Value="frmConfirmation"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
</Unit11> </Unit11>
<Unit12> <Unit12>
<Filename Value="Tools/UfrmMoveSettings.pas"/> <Filename Value="Tools/UfrmMoveSettings.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmMoveSettings"/> <ComponentName Value="frmMoveSettings"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
</Unit12> </Unit12>
<Unit13> <Unit13>
<Filename Value="UfrmAbout.pas"/> <Filename Value="UfrmAbout.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmAbout"/> <ComponentName Value="frmAbout"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
</Unit13> </Unit13>
<Unit14> <Unit14>
<Filename Value="Tools/UfrmHueSettings.pas"/> <Filename Value="Tools/UfrmHueSettings.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmHueSettings"/> <ComponentName Value="frmHueSettings"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
</Unit14> </Unit14>
<Unit15> <Unit15>
<Filename Value="UfrmRadar.pas"/> <Filename Value="UfrmRadar.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmRadarMap"/> <ComponentName Value="frmRadarMap"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
</Unit15> </Unit15>
<Unit16> <Unit16>
@ -434,12 +443,14 @@
<Filename Value="Tools/UfrmVirtualLayer.pas"/> <Filename Value="Tools/UfrmVirtualLayer.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmVirtualLayer"/> <ComponentName Value="frmVirtualLayer"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
</Unit17> </Unit17>
<Unit18> <Unit18>
<Filename Value="Tools/UfrmFilter.pas"/> <Filename Value="Tools/UfrmFilter.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmFilter"/> <ComponentName Value="frmFilter"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
</Unit18> </Unit18>
<Unit19> <Unit19>
@ -552,6 +563,7 @@
<Filename Value="Tools/UfrmLightlevel.pas"/> <Filename Value="Tools/UfrmLightlevel.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmLightlevel"/> <ComponentName Value="frmLightlevel"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
</Unit44> </Unit44>
<Unit45> <Unit45>

1
Client/CentrED.lpr
View File

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

122
Client/Tools/UfrmBoundaries.lfm
View File

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

33
Client/Tools/UfrmConfirmation.lfm
View File

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

55
Client/Tools/UfrmDrawSettings.lfm
View File

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

50
Client/Tools/UfrmElevateSettings.lfm
View File

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

150
Client/Tools/UfrmFilter.lfm
View File

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

72
Client/Tools/UfrmHueSettings.lfm
View File

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

42
Client/Tools/UfrmMoveSettings.lfm
View File

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

9
Client/Tools/UfrmToolWindow.lfm
View File

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

22
Client/Tools/UfrmVirtualLayer.lfm
View File

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

137
Client/UfrmAbout.lfm
View File

@ -1,144 +1,151 @@
object frmAbout: TfrmAbout object frmAbout: TfrmAbout
Left = 290 Left = 290
Height = 308 Height = 579
Top = 171 Top = 171
Width = 354 Width = 388
AutoSize = True AutoSize = True
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'About CentrED' Caption = 'About CentrED'
ClientHeight = 308 ClientHeight = 579
ClientWidth = 354 ClientWidth = 388
Font.Height = -11 DesignTimePPI = 120
Font.Height = -18
OnCreate = FormCreate OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.31'
object Label3: TLabel object Label3: TLabel
Left = 8 Left = 12
Height = 53 Height = 182
Top = 178 Top = 334
Width = 338 Width = 364
Align = alTop Align = alTop
BorderSpacing.Top = 16 BorderSpacing.Top = 25
BorderSpacing.Around = 8 BorderSpacing.Around = 12
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.' 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 ParentColor = False
WordWrap = True WordWrap = True
end end
object Label5: TLabel object Label5: TLabel
Left = 8 Left = 12
Height = 14 Height = 26
Top = 87 Top = 167
Width = 338 Width = 364
Align = alTop Align = alTop
BorderSpacing.Left = 8 BorderSpacing.Left = 12
BorderSpacing.Right = 8 BorderSpacing.Right = 12
Caption = 'It is using the following great components:' Caption = 'It is using the following great components:'
Color = clDefault
ParentColor = False ParentColor = False
end end
object Label6: TLabel object Label6: TLabel
Left = 16 Left = 25
Height = 53 Height = 104
Top = 101 Top = 193
Width = 330 Width = 351
Align = alTop Align = alTop
BorderSpacing.Left = 16 BorderSpacing.Left = 25
BorderSpacing.Right = 8 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' 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 ParentColor = False
end end
object Label7: TLabel object Label7: TLabel
Left = 8 Left = 12
Height = 14 Height = 52
Top = 73 Top = 115
Width = 338 Width = 364
Align = alTop Align = alTop
BorderSpacing.Left = 8 BorderSpacing.Left = 12
BorderSpacing.Right = 8 BorderSpacing.Right = 12
Caption = 'CentrED has been developed using Lazarus and FreePascal.' Caption = 'CentrED has been developed using Lazarus and FreePascal.'
Color = clDefault
ParentColor = False ParentColor = False
WordWrap = True WordWrap = True
end end
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Height = 65 Height = 103
Top = 0 Top = 0
Width = 354 Width = 388
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 12
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 65 ClientHeight = 103
ClientWidth = 354 ClientWidth = 388
TabOrder = 0 TabOrder = 0
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 65 Height = 103
Top = 0 Top = 0
Width = 190 Width = 307
AutoSize = True AutoSize = True
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
ClientHeight = 65 ClientHeight = 103
ClientWidth = 190 ClientWidth = 307
TabOrder = 0 TabOrder = 0
object Label1: TLabel object Label1: TLabel
Left = 2 Left = 2
Height = 38 Height = 60
Top = 2 Top = 2
Width = 186 Width = 303
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = False AutoSize = False
Caption = 'UO CentrED' Caption = 'UO CentrED'
Font.Height = -29 Color = clDefault
Font.Height = -45
Font.Style = [fsBold] Font.Style = [fsBold]
Layout = tlCenter Layout = tlCenter
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end end
object lblVersion: TLabel object lblVersion: TLabel
Left = 6 Left = 8
Height = 1 Height = 1
Top = 40 Top = 62
Width = 178 Width = 291
Align = alTop Align = alTop
Alignment = taRightJustify Alignment = taRightJustify
BorderSpacing.Left = 4 BorderSpacing.Left = 6
BorderSpacing.Right = 4 BorderSpacing.Right = 6
Color = clDefault
ParentColor = False ParentColor = False
end end
object lblCopyright: TLabel object lblCopyright: TLabel
Left = 6 Left = 8
Height = 14 Height = 26
Top = 45 Top = 69
Width = 178 Width = 291
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
BorderSpacing.Around = 4 BorderSpacing.Around = 6
Caption = 'Copyright 2012 Andreas Schneider' Caption = 'Copyright 2022 Andreas Schneider'
Color = clDefault
ParentColor = False ParentColor = False
end end
end end
end end
object Panel3: TPanel object Panel3: TPanel
Left = 8 Left = 12
Height = 25 Height = 39
Top = 239 Top = 528
Width = 338 Width = 364
Align = alTop Align = alTop
BorderSpacing.Around = 8 BorderSpacing.Around = 12
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 25 ClientHeight = 39
ClientWidth = 338 ClientWidth = 364
TabOrder = 1 TabOrder = 1
object btnClose: TButton object btnClose: TButton
Left = 263 Left = 246
Height = 25 Height = 39
Top = 0 Top = 0
Width = 75 Width = 118
Align = alRight Align = alRight
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 6
Caption = 'Close' Caption = 'Close'
OnClick = btnCloseClick OnClick = btnCloseClick
TabOrder = 0 TabOrder = 0

12
Client/UfrmAccountControl.lfm
View File

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

93
Client/UfrmChangePassword.lfm
View File

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

182
Client/UfrmEditAccount.lfm
View File

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

34
Client/UfrmInitialize.lfm
View File

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

466
Client/UfrmMain.lfm
View File

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

44
Client/UfrmRadar.lfm
View File

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

233
Client/UfrmRegionControl.lfm
View File

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