diff --git a/Client/CentrED.lpi b/Client/CentrED.lpi
index c02bc31..41850a2 100644
--- a/Client/CentrED.lpi
+++ b/Client/CentrED.lpi
@@ -9,6 +9,7 @@
+
@@ -19,7 +20,7 @@
-
+
@@ -354,6 +355,7 @@
+
@@ -374,6 +376,7 @@
+
@@ -387,6 +390,7 @@
+
@@ -397,30 +401,35 @@
+
+
+
+
+
@@ -434,12 +443,14 @@
+
+
@@ -552,6 +563,7 @@
+
diff --git a/Client/CentrED.lpr b/Client/CentrED.lpr
index 8aaaaaa..ee96d61 100644
--- a/Client/CentrED.lpr
+++ b/Client/CentrED.lpr
@@ -52,6 +52,7 @@ begin
OnGetApplicationName := @GetApplicationName;
+ Application.Scaled := True;
Application.Initialize;
Application.CreateForm(TdmNetwork, dmNetwork);
Application.Run;
diff --git a/Client/Tools/UfrmBoundaries.lfm b/Client/Tools/UfrmBoundaries.lfm
index 5fb1fb4..0a7ce52 100644
--- a/Client/Tools/UfrmBoundaries.lfm
+++ b/Client/Tools/UfrmBoundaries.lfm
@@ -1,11 +1,11 @@
inherited frmBoundaries: TfrmBoundaries
Left = 445
- Height = 164
+ Height = 162
Top = 332
- Width = 402
+ Width = 410
Caption = 'Boundaries'
- ClientHeight = 164
- ClientWidth = 402
+ ClientHeight = 162
+ ClientWidth = 410
OnCreate = FormCreate
object gbZRestriction: TGroupBox[0]
AnchorSideLeft.Control = Owner
@@ -17,18 +17,19 @@ inherited frmBoundaries: TfrmBoundaries
BorderSpacing.Left = 4
BorderSpacing.Top = 4
Caption = 'Restrict Height'
- ClientHeight = 139
- ClientWidth = 192
+ ClientHeight = 132
+ ClientWidth = 194
TabOrder = 0
object lblMinZ: TLabel
AnchorSideLeft.Control = tbMinZ
AnchorSideTop.Control = seMinZ
AnchorSideTop.Side = asrCenter
Left = 4
- Height = 15
- Top = 10
- Width = 77
+ Height = 23
+ Top = 9
+ Width = 93
Caption = 'Minimum Z:'
+ Color = clDefault
Layout = tlCenter
ParentColor = False
end
@@ -36,10 +37,10 @@ inherited frmBoundaries: TfrmBoundaries
AnchorSideTop.Control = gbZRestriction
AnchorSideRight.Control = gbZRestriction
AnchorSideRight.Side = asrBottom
- Left = 136
- Height = 27
+ Left = 128
+ Height = 33
Top = 4
- Width = 52
+ Width = 62
Anchors = [akTop, akRight]
BorderSpacing.Top = 4
BorderSpacing.Right = 4
@@ -56,9 +57,9 @@ inherited frmBoundaries: TfrmBoundaries
AnchorSideRight.Control = gbZRestriction
AnchorSideRight.Side = asrBottom
Left = 4
- Height = 37
- Top = 35
- Width = 184
+ Height = 47
+ Top = 41
+ Width = 186
Frequency = 10
Max = 127
Min = -128
@@ -74,10 +75,11 @@ inherited frmBoundaries: TfrmBoundaries
AnchorSideTop.Control = seMaxZ
AnchorSideTop.Side = asrCenter
Left = 4
- Height = 15
- Top = 82
- Width = 81
+ Height = 23
+ Top = 97
+ Width = 97
Caption = 'Maximum Z:'
+ Color = clDefault
Layout = tlCenter
ParentColor = False
end
@@ -86,10 +88,10 @@ inherited frmBoundaries: TfrmBoundaries
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = seMinZ
AnchorSideRight.Side = asrBottom
- Left = 136
- Height = 27
- Top = 76
- Width = 52
+ Left = 128
+ Height = 33
+ Top = 92
+ Width = 62
Anchors = [akTop, akRight]
MaxValue = 127
MinValue = -128
@@ -104,9 +106,9 @@ inherited frmBoundaries: TfrmBoundaries
AnchorSideRight.Control = gbZRestriction
AnchorSideRight.Side = asrBottom
Left = 4
- Height = 37
- Top = 107
- Width = 184
+ Height = 47
+ Top = 129
+ Width = 186
Frequency = 10
Max = 127
Min = -128
@@ -127,21 +129,21 @@ inherited frmBoundaries: TfrmBoundaries
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 204
- Height = 156
+ Height = 154
Top = 4
- Width = 194
+ Width = 202
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 4
Caption = 'Restrict View Range'
- ClientHeight = 139
- ClientWidth = 190
+ ClientHeight = 130
+ ClientWidth = 200
TabOrder = 1
object seMinX: TSpinEdit
AnchorSideLeft.Control = lblX
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = seMaxX
- Left = 20
- Height = 27
+ Left = 22
+ Height = 33
Top = 4
Width = 74
BorderSpacing.Left = 4
@@ -152,8 +154,8 @@ inherited frmBoundaries: TfrmBoundaries
AnchorSideTop.Control = gbViewRestriction
AnchorSideRight.Control = gbViewRestriction
AnchorSideRight.Side = asrBottom
- Left = 112
- Height = 27
+ Left = 122
+ Height = 33
Top = 4
Width = 74
Anchors = [akTop, akRight]
@@ -168,9 +170,9 @@ inherited frmBoundaries: TfrmBoundaries
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = seMinX
AnchorSideRight.Side = asrBottom
- Left = 20
- Height = 27
- Top = 39
+ Left = 22
+ Height = 33
+ Top = 45
Width = 74
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
@@ -182,9 +184,9 @@ inherited frmBoundaries: TfrmBoundaries
AnchorSideTop.Control = seMinY
AnchorSideRight.Control = seMaxX
AnchorSideRight.Side = asrBottom
- Left = 112
- Height = 27
- Top = 39
+ Left = 122
+ Height = 33
+ Top = 45
Width = 74
Anchors = [akTop, akLeft, akRight]
OnChange = seMaxYChange
@@ -195,11 +197,12 @@ inherited frmBoundaries: TfrmBoundaries
AnchorSideTop.Control = seMinX
AnchorSideTop.Side = asrCenter
Left = 4
- Height = 15
- Top = 10
- Width = 12
+ Height = 23
+ Top = 9
+ Width = 14
BorderSpacing.Left = 4
Caption = 'X:'
+ Color = clDefault
ParentColor = False
end
object lblY: TLabel
@@ -207,10 +210,11 @@ inherited frmBoundaries: TfrmBoundaries
AnchorSideTop.Control = seMinY
AnchorSideTop.Side = asrCenter
Left = 4
- Height = 15
- Top = 45
- Width = 9
+ Height = 23
+ Top = 50
+ Width = 13
Caption = 'Y:'
+ Color = clDefault
ParentColor = False
end
object lblXSep: TLabel
@@ -218,38 +222,40 @@ inherited frmBoundaries: TfrmBoundaries
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = seMaxX
AnchorSideTop.Side = asrCenter
- Left = 98
- Height = 15
- Top = 10
- Width = 13
+ Left = 100
+ Height = 23
+ Top = 9
+ Width = 17
BorderSpacing.Left = 4
Caption = '—'
+ Color = clDefault
ParentColor = False
end
object lblYSep: TLabel
AnchorSideLeft.Control = lblXSep
AnchorSideTop.Control = seMinY
AnchorSideTop.Side = asrCenter
- Left = 98
- Height = 15
- Top = 45
- Width = 13
+ Left = 100
+ Height = 23
+ Top = 50
+ Width = 17
Caption = '—'
+ Color = clDefault
ParentColor = False
end
object btnSelectArea: TButton
- Left = 74
+ Left = 5
Height = 25
- Top = 76
+ Top = 95
Width = 112
Caption = 'Select Area'
OnClick = btnSelectAreaClick
TabOrder = 4
end
object btnClear: TButton
- Left = 111
+ Left = 122
Height = 25
- Top = 107
+ Top = 95
Width = 75
Caption = 'Clear'
OnClick = btnClearClick
@@ -257,5 +263,7 @@ inherited frmBoundaries: TfrmBoundaries
end
end
inherited tmClose: TTimer[2]
+ Left = 24
+ Top = 24
end
end
diff --git a/Client/Tools/UfrmConfirmation.lfm b/Client/Tools/UfrmConfirmation.lfm
index ab5dab7..0c78c94 100644
--- a/Client/Tools/UfrmConfirmation.lfm
+++ b/Client/Tools/UfrmConfirmation.lfm
@@ -1,37 +1,34 @@
object frmConfirmation: TfrmConfirmation
Left = 290
- Height = 43
+ Height = 54
Top = 171
- Width = 108
+ Width = 135
BorderIcons = []
BorderStyle = bsToolWindow
Caption = 'Apply?'
- ClientHeight = 43
- ClientWidth = 108
- Font.Height = -11
- LCLVersion = '0.9.25'
+ ClientHeight = 54
+ ClientWidth = 135
+ Font.Height = -14
object btnYes: TButton
- Left = 8
- Height = 25
- Top = 8
- Width = 40
- BorderSpacing.InnerBorder = 4
+ Left = 10
+ Height = 31
+ Top = 10
+ Width = 50
+ BorderSpacing.InnerBorder = 5
Caption = 'Yes'
Default = True
ModalResult = 6
- ParentFont = True
TabOrder = 0
end
object btnNo: TButton
- Left = 56
- Height = 25
- Top = 8
- Width = 40
- BorderSpacing.InnerBorder = 4
+ Left = 70
+ Height = 31
+ Top = 10
+ Width = 50
+ BorderSpacing.InnerBorder = 5
Cancel = True
Caption = 'No'
ModalResult = 7
- ParentFont = True
TabOrder = 1
end
end
diff --git a/Client/Tools/UfrmDrawSettings.lfm b/Client/Tools/UfrmDrawSettings.lfm
index 4b47e24..59f36cf 100644
--- a/Client/Tools/UfrmDrawSettings.lfm
+++ b/Client/Tools/UfrmDrawSettings.lfm
@@ -1,20 +1,20 @@
inherited frmDrawSettings: TfrmDrawSettings
Left = 268
- Height = 166
+ Height = 195
Top = 165
- Width = 242
+ Width = 363
ActiveControl = rbTileList
Caption = 'Draw settings'
- ClientHeight = 166
- ClientWidth = 242
+ ClientHeight = 195
+ ClientWidth = 363
OnCreate = FormCreate
object rbTileList: TRadioButton[0]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 8
- Height = 19
+ Height = 25
Top = 8
- Width = 125
+ Width = 178
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Bottom = 4
@@ -28,9 +28,9 @@ inherited frmDrawSettings: TfrmDrawSettings
AnchorSideTop.Control = rbTileList
AnchorSideTop.Side = asrBottom
Left = 8
- Height = 19
- Top = 31
- Width = 184
+ Height = 25
+ Top = 37
+ Width = 264
BorderSpacing.Top = 4
Caption = 'Use tiles from the random pool'
TabOrder = 1
@@ -43,20 +43,20 @@ inherited frmDrawSettings: TfrmDrawSettings
AnchorSideRight.Side = asrBottom
Left = 8
Height = 38
- Top = 122
- Width = 226
+ Top = 148
+ Width = 347
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 8
Caption = 'Hue (Statics only)'
- ClientHeight = 20
- ClientWidth = 222
+ ClientHeight = 14
+ ClientWidth = 345
TabOrder = 2
object pbHue: TPaintBox
Cursor = crHandPoint
Left = 4
- Height = 16
+ Height = 10
Top = 0
- Width = 214
+ Width = 337
Align = alClient
BorderSpacing.Left = 4
BorderSpacing.Right = 4
@@ -72,9 +72,9 @@ inherited frmDrawSettings: TfrmDrawSettings
AnchorSideTop.Control = cbForceAltitude
AnchorSideTop.Side = asrBottom
Left = 8
- Height = 19
- Top = 93
- Width = 135
+ Height = 25
+ Top = 111
+ Width = 188
BorderSpacing.Top = 12
Caption = 'Add Random Altitude'
TabOrder = 3
@@ -84,9 +84,9 @@ inherited frmDrawSettings: TfrmDrawSettings
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
- Left = 184
- Height = 23
- Top = 91
+ Left = 305
+ Height = 33
+ Top = 107
Width = 50
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
@@ -97,9 +97,9 @@ inherited frmDrawSettings: TfrmDrawSettings
AnchorSideTop.Control = rbRandom
AnchorSideTop.Side = asrBottom
Left = 8
- Height = 19
- Top = 62
- Width = 95
+ Height = 25
+ Top = 74
+ Width = 133
BorderSpacing.Top = 12
Caption = 'Force altitude:'
TabOrder = 5
@@ -109,9 +109,9 @@ inherited frmDrawSettings: TfrmDrawSettings
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
- Left = 184
- Height = 23
- Top = 60
+ Left = 305
+ Height = 33
+ Top = 70
Width = 50
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
@@ -120,5 +120,6 @@ inherited frmDrawSettings: TfrmDrawSettings
TabOrder = 6
end
inherited tmClose: TTimer[7]
+ Left = 312
end
end
diff --git a/Client/Tools/UfrmElevateSettings.lfm b/Client/Tools/UfrmElevateSettings.lfm
index 38f52b9..c740f92 100644
--- a/Client/Tools/UfrmElevateSettings.lfm
+++ b/Client/Tools/UfrmElevateSettings.lfm
@@ -1,57 +1,55 @@
inherited frmElevateSettings: TfrmElevateSettings
Left = 290
- Height = 114
+ Height = 141
Top = 171
- Width = 250
+ Width = 297
Caption = 'Elevate'
- ClientHeight = 114
- ClientWidth = 250
+ ClientHeight = 141
+ ClientWidth = 297
object rbRaise: TRadioButton[0]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 8
- Height = 19
+ Height = 25
Top = 8
- Width = 47
+ Width = 64
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Caption = 'Raise'
Checked = True
- State = cbChecked
TabOrder = 2
+ TabStop = True
end
object rbLower: TRadioButton[1]
AnchorSideLeft.Control = rbRaise
AnchorSideTop.Control = rbRaise
AnchorSideTop.Side = asrBottom
Left = 8
- Height = 19
- Top = 27
- Width = 52
+ Height = 25
+ Top = 33
+ Width = 72
Caption = 'Lower'
TabOrder = 0
- TabStop = False
end
object rbSet: TRadioButton[2]
AnchorSideLeft.Control = rbLower
AnchorSideTop.Control = rbLower
AnchorSideTop.Side = asrBottom
Left = 8
- Height = 19
- Top = 46
- Width = 36
+ Height = 25
+ Top = 58
+ Width = 48
Caption = 'Set'
TabOrder = 1
- TabStop = False
end
object cbRandomHeight: TCheckBox[3]
AnchorSideLeft.Control = rbSet
AnchorSideTop.Control = rbSet
AnchorSideTop.Side = asrBottom
Left = 8
- Height = 19
- Top = 81
- Width = 135
+ Height = 25
+ Top = 99
+ Width = 188
BorderSpacing.Top = 16
Caption = 'Add Random Altitude'
TabOrder = 3
@@ -62,9 +60,9 @@ inherited frmElevateSettings: TfrmElevateSettings
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
- Left = 197
- Height = 25
- Top = 78
+ Left = 244
+ Height = 33
+ Top = 95
Width = 45
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 8
@@ -78,9 +76,9 @@ inherited frmElevateSettings: TfrmElevateSettings
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
- Left = 197
- Height = 25
- Top = 24
+ Left = 244
+ Height = 33
+ Top = 29
Width = 45
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
@@ -89,4 +87,8 @@ inherited frmElevateSettings: TfrmElevateSettings
TabOrder = 5
Value = 1
end
+ inherited tmClose: TTimer[6]
+ Left = 144
+ Top = 16
+ end
end
diff --git a/Client/Tools/UfrmFilter.lfm b/Client/Tools/UfrmFilter.lfm
index 0801db1..3c9e984 100644
--- a/Client/Tools/UfrmFilter.lfm
+++ b/Client/Tools/UfrmFilter.lfm
@@ -1,27 +1,26 @@
object frmFilter: TfrmFilter
Left = 290
- Height = 492
+ Height = 615
Top = 171
- Width = 232
+ Width = 290
ActiveControl = rgFilterType.RadioButton0
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsToolWindow
Caption = 'Filter'
- ClientHeight = 492
- ClientWidth = 232
- Font.Height = -11
+ ClientHeight = 615
+ ClientWidth = 290
+ Font.Height = -14
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
- LCLVersion = '0.9.29'
object rgFilterType: TRadioGroup
- Left = 4
- Height = 40
- Top = 4
- Width = 224
+ Left = 5
+ Height = 50
+ Top = 5
+ Width = 280
Align = alTop
AutoFill = True
- BorderSpacing.Around = 4
+ BorderSpacing.Around = 5
Caption = 'Filter rule'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
@@ -31,8 +30,8 @@ object frmFilter: TfrmFilter
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2
- ClientHeight = 26
- ClientWidth = 222
+ ClientHeight = 29
+ ClientWidth = 278
Columns = 2
ItemIndex = 0
Items.Strings = (
@@ -43,15 +42,15 @@ object frmFilter: TfrmFilter
TabOrder = 0
end
object GroupBox1: TGroupBox
- Left = 4
- Height = 259
- Top = 48
- Width = 224
+ Left = 5
+ Height = 324
+ Top = 60
+ Width = 280
Align = alClient
- BorderSpacing.Around = 4
+ BorderSpacing.Around = 5
Caption = 'Tile filter'
- ClientHeight = 245
- ClientWidth = 222
+ ClientHeight = 303
+ ClientWidth = 278
TabOrder = 1
object Label1: TLabel
AnchorSideLeft.Control = GroupBox1
@@ -59,13 +58,14 @@ object frmFilter: TfrmFilter
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
- Left = 4
- Height = 30
- Top = 30
- Width = 214
+ Left = 5
+ Height = 40
+ Top = 32
+ Width = 268
Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Around = 4
+ BorderSpacing.Around = 5
Caption = 'Drag and Drop static tiles from the tile list on this list to add them to the filter.'
+ Color = clDefault
ParentColor = False
WordWrap = True
end
@@ -76,13 +76,12 @@ object frmFilter: TfrmFilter
AnchorSideRight.Side = asrCenter
AnchorSideBottom.Control = btnDelete
AnchorSideBottom.Side = asrBottom
- Left = 30
- Height = 22
+ Left = 38
+ Height = 28
Hint = 'Clear'
- Top = 219
- Width = 22
+ Top = 270
+ Width = 28
Anchors = [akLeft, akBottom]
- Color = clBtnFace
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
20000000000000040000640000006400000000000000000000003ADCFE004800
@@ -119,7 +118,6 @@ object frmFilter: TfrmFilter
DE00D86FDF00D86FDF00E0A223004AC6080000000000580000005870DF000C70
DF000000000000000000000000002070DF000000000000000000
}
- NumGlyphs = 0
OnClick = btnClearClick
ShowHint = True
ParentShowHint = False
@@ -128,14 +126,13 @@ object frmFilter: TfrmFilter
AnchorSideLeft.Control = GroupBox1
AnchorSideBottom.Control = GroupBox1
AnchorSideBottom.Side = asrBottom
- Left = 4
- Height = 22
+ Left = 5
+ Height = 28
Hint = 'Delete'
- Top = 219
- Width = 22
+ Top = 270
+ Width = 28
Anchors = [akLeft, akBottom]
- BorderSpacing.Around = 4
- Color = clBtnFace
+ BorderSpacing.Around = 5
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
20000000000000040000640000006400000000000000000000004F91AB005588
@@ -172,7 +169,6 @@ object frmFilter: TfrmFilter
DE0068B0E00068B0E0000E049300F8049500F2009500070102000F049500F804
0200F2000200080104000E040200F8040400F200040009010500
}
- NumGlyphs = 0
OnClick = btnDeleteClick
ShowHint = True
ParentShowHint = False
@@ -186,13 +182,13 @@ object frmFilter: TfrmFilter
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnDelete
Cursor = 63
- Left = 4
- Height = 151
- Top = 64
- Width = 214
+ Left = 5
+ Height = 188
+ Top = 77
+ Width = 268
Anchors = [akTop, akLeft, akRight, akBottom]
- BorderSpacing.Around = 4
- DefaultNodeHeight = 44
+ BorderSpacing.Around = 5
+ DefaultNodeHeight = 55
DragType = dtVCL
Header.AutoSizeIndex = 0
Header.Columns = <
@@ -203,14 +199,15 @@ object frmFilter: TfrmFilter
item
Position = 1
Text = 'Tile'
- Width = 44
+ Width = 55
end
item
Position = 2
Text = 'Name'
- Width = 100
+ Width = 125
end>
- Header.DefaultHeight = 17
+ Header.DefaultHeight = 21
+ Header.Height = 36
Header.Options = [hoColumnResize, hoDrag, hoVisible]
Header.ParentFont = True
Header.Style = hsFlatButtons
@@ -224,63 +221,64 @@ object frmFilter: TfrmFilter
object cbTileFilter: TCheckBox
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = GroupBox1
- Left = 4
+ Left = 5
Height = 22
- Top = 4
- Width = 85
- BorderSpacing.Around = 4
+ Top = 5
+ Width = 101
+ BorderSpacing.Around = 5
Caption = 'Filter active'
OnChange = cbTileFilterChange
TabOrder = 1
end
end
object GroupBox2: TGroupBox
- Left = 4
- Height = 168
- Top = 320
- Width = 224
+ Left = 5
+ Height = 210
+ Top = 400
+ Width = 280
Align = alBottom
- BorderSpacing.Around = 4
+ BorderSpacing.Around = 5
Caption = 'Hue filter'
- ClientHeight = 154
- ClientWidth = 222
+ ClientHeight = 189
+ ClientWidth = 278
TabOrder = 2
object cbHueFilter: TCheckBox
- Left = 4
+ Left = 5
Height = 22
- Top = 4
- Width = 214
+ Top = 5
+ Width = 268
Align = alTop
- BorderSpacing.Around = 4
+ BorderSpacing.Around = 5
Caption = 'Filter active'
OnChange = cbHueFilterChange
TabOrder = 0
end
object vdtHues: TLazVirtualDrawTree
Cursor = 63
- Left = 4
- Height = 120
- Top = 30
- Width = 214
+ Left = 5
+ Height = 152
+ Top = 32
+ Width = 268
Align = alClient
- BorderSpacing.Around = 4
+ BorderSpacing.Around = 5
Header.AutoSizeIndex = 2
Header.Columns = <
item
Position = 0
- Width = 20
+ Width = 25
end
item
Position = 1
Text = 'Hue'
- Width = 38
+ Width = 48
end
item
Position = 2
Text = 'Name'
- Width = 154
+ Width = 193
end>
- Header.DefaultHeight = 17
+ Header.DefaultHeight = 21
+ Header.Height = 36
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible]
Header.ParentFont = True
Header.Style = hsFlatButtons
@@ -296,15 +294,15 @@ object frmFilter: TfrmFilter
object Splitter1: TSplitter
Cursor = crVSplit
Left = 0
- Height = 5
- Top = 311
- Width = 232
+ Height = 6
+ Top = 389
+ Width = 290
Align = alBottom
ResizeAnchor = akBottom
end
object pmHues: TPopupMenu
- left = 148
- top = 404
+ Left = 185
+ Top = 505
object mnuCheckHues: TMenuItem
Caption = 'Check all hues'
OnClick = mnuCheckHuesClick
diff --git a/Client/Tools/UfrmHueSettings.lfm b/Client/Tools/UfrmHueSettings.lfm
index edeaa49..356b964 100644
--- a/Client/Tools/UfrmHueSettings.lfm
+++ b/Client/Tools/UfrmHueSettings.lfm
@@ -1,13 +1,13 @@
inherited frmHueSettings: TfrmHueSettings
Left = 290
- Height = 426
+ Height = 389
Top = 171
- Width = 225
+ Width = 255
AutoSize = True
Caption = 'Hue Settings'
- ClientHeight = 426
- ClientWidth = 225
- Constraints.MinWidth = 225
+ ClientHeight = 389
+ ClientWidth = 255
+ Constraints.MinWidth = 255
OnCreate = FormCreate
OnDestroy = FormDestroy
object lblHue: TLabel[0]
@@ -15,19 +15,20 @@ inherited frmHueSettings: TfrmHueSettings
AnchorSideTop.Control = edHue
AnchorSideTop.Side = asrCenter
Left = 8
- Height = 16
- Top = 11
- Width = 26
+ Height = 23
+ Top = 14
+ Width = 35
BorderSpacing.Left = 8
Caption = 'Hue:'
+ Color = clDefault
ParentColor = False
end
object edHue: TEdit[1]
AnchorSideLeft.Control = lblHue
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
- Left = 42
- Height = 23
+ Left = 51
+ Height = 35
Top = 8
Width = 80
BorderSpacing.Left = 8
@@ -45,8 +46,8 @@ inherited frmHueSettings: TfrmHueSettings
AnchorSideBottom.Side = asrBottom
Left = 8
Height = 139
- Top = 39
- Width = 209
+ Top = 51
+ Width = 239
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 8
DragMode = dmAutomatic
@@ -57,6 +58,7 @@ inherited frmHueSettings: TfrmHueSettings
ParentFont = False
Style = lbOwnerDrawFixed
TabOrder = 1
+ TopIndex = -1
end
object gbRandom: TGroupBox[3]
AnchorSideLeft.Control = Owner
@@ -67,16 +69,16 @@ inherited frmHueSettings: TfrmHueSettings
AnchorSideBottom.Side = asrBottom
Left = 8
Height = 183
- Top = 186
- Width = 209
+ Top = 198
+ Width = 239
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 4
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Caption = 'Random pool'
- ClientHeight = 165
- ClientWidth = 205
+ ClientHeight = 159
+ ClientWidth = 237
TabOrder = 2
Visible = False
object btnAddRandom: TSpeedButton
@@ -124,7 +126,6 @@ inherited frmHueSettings: TfrmHueSettings
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
- NumGlyphs = 0
OnClick = btnAddRandomClick
ShowHint = True
ParentShowHint = False
@@ -175,7 +176,6 @@ inherited frmHueSettings: TfrmHueSettings
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
- NumGlyphs = 0
OnClick = btnDeleteRandomClick
ShowHint = True
ParentShowHint = False
@@ -226,7 +226,6 @@ inherited frmHueSettings: TfrmHueSettings
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
- NumGlyphs = 0
OnClick = btnClearRandomClick
ShowHint = True
ParentShowHint = False
@@ -234,10 +233,10 @@ inherited frmHueSettings: TfrmHueSettings
object btnRandomPresetSave: TSpeedButton
AnchorSideTop.Control = cbRandomPreset
AnchorSideRight.Control = btnRandomPresetDelete
- Left = 153
+ Left = 185
Height = 22
Hint = 'Save Preset'
- Top = 138
+ Top = 116
Width = 22
Anchors = [akTop, akRight]
BorderSpacing.Right = 4
@@ -277,7 +276,6 @@ inherited frmHueSettings: TfrmHueSettings
4DFFC88C4FFFC88C4FFFC88C4FFFC88D4FFFC98C4FFFC78B4FFFC5894BFFC476
3BFF000000000000000000000000000000000000000000000000
}
- NumGlyphs = 0
OnClick = btnRandomPresetSaveClick
ShowCaption = False
ShowHint = True
@@ -287,10 +285,10 @@ inherited frmHueSettings: TfrmHueSettings
AnchorSideTop.Control = btnRandomPresetSave
AnchorSideRight.Control = gbRandom
AnchorSideRight.Side = asrBottom
- Left = 179
+ Left = 211
Height = 22
Hint = 'Delete Preset'
- Top = 138
+ Top = 116
Width = 22
Anchors = [akTop, akRight]
BorderSpacing.Right = 4
@@ -330,7 +328,6 @@ inherited frmHueSettings: TfrmHueSettings
0000C88B4DFFC88C4FFFC88C4FFFC88C4FFFC88C4FFFC88D4FFFC98C4FFFC78B
4FFFC5894BFFC4763BFF00000000000000000000000000000000
}
- NumGlyphs = 0
OnClick = btnRandomPresetDeleteClick
ShowCaption = False
ShowHint = True
@@ -342,14 +339,14 @@ inherited frmHueSettings: TfrmHueSettings
AnchorSideBottom.Control = gbRandom
AnchorSideBottom.Side = asrBottom
Left = 4
- Height = 23
- Top = 138
- Width = 145
+ Height = 39
+ Top = 116
+ Width = 177
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 4
BorderSpacing.Right = 4
BorderSpacing.Bottom = 4
- ItemHeight = 15
+ ItemHeight = 0
OnChange = cbRandomPresetChange
Sorted = True
Style = csDropDownList
@@ -363,9 +360,9 @@ inherited frmHueSettings: TfrmHueSettings
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = cbRandomPreset
Left = 4
- Height = 108
+ Height = 86
Top = 26
- Width = 197
+ Width = 229
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 4
ItemHeight = 0
@@ -374,6 +371,7 @@ inherited frmHueSettings: TfrmHueSettings
OnDragOver = lbRandomDragOver
OnDrawItem = lbHueDrawItem
TabOrder = 1
+ TopIndex = -1
end
end
object cbRandom: TCheckBox[4]
@@ -381,17 +379,17 @@ inherited frmHueSettings: TfrmHueSettings
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = lbHue
AnchorSideRight.Side = asrBottom
- Left = 152
- Height = 19
- Top = 10
- Width = 65
+ Left = 158
+ Height = 25
+ Top = 13
+ Width = 89
Anchors = [akTop, akRight]
Caption = 'Random'
OnChange = cbRandomChange
TabOrder = 3
end
inherited tmClose: TTimer[5]
- left = 152
- top = 112
+ Left = 152
+ Top = 112
end
end
diff --git a/Client/Tools/UfrmMoveSettings.lfm b/Client/Tools/UfrmMoveSettings.lfm
index 48bb12b..da8ab7f 100644
--- a/Client/Tools/UfrmMoveSettings.lfm
+++ b/Client/Tools/UfrmMoveSettings.lfm
@@ -1,21 +1,21 @@
inherited frmMoveSettings: TfrmMoveSettings
Left = 290
- Height = 120
+ Height = 104
Top = 171
- Width = 232
+ Width = 258
ActiveControl = cbAsk
AutoSize = True
Caption = 'Move settings'
- ClientHeight = 120
- ClientWidth = 232
+ ClientHeight = 104
+ ClientWidth = 258
object cbAsk: TCheckBox[0]
AnchorSideLeft.Control = gbDirection
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbDirection
- Left = 121
- Height = 19
+ Left = 119
+ Height = 25
Top = 20
- Width = 94
+ Width = 131
BorderSpacing.Left = 8
BorderSpacing.Top = 16
BorderSpacing.Right = 8
@@ -28,9 +28,9 @@ inherited frmMoveSettings: TfrmMoveSettings
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 8
- Height = 108
+ Height = 92
Top = 4
- Width = 105
+ Width = 103
AutoSize = True
BorderSpacing.Left = 4
BorderSpacing.Bottom = 4
@@ -46,7 +46,6 @@ inherited frmMoveSettings: TfrmMoveSettings
Top = 0
Width = 23
BorderSpacing.Left = 8
- Color = clBtnFace
Down = True
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
@@ -85,7 +84,6 @@ inherited frmMoveSettings: TfrmMoveSettings
0000000000000000000000000000000000000000000000000000
}
GroupIndex = 1
- NumGlyphs = 0
OnClick = btnTopLeftClick
end
object btnTop: TSpeedButton
@@ -97,7 +95,6 @@ inherited frmMoveSettings: TfrmMoveSettings
Top = 0
Width = 23
BorderSpacing.Left = 8
- Color = clBtnFace
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -135,7 +132,6 @@ inherited frmMoveSettings: TfrmMoveSettings
0000000000000000000000000000000000000000000000000000
}
GroupIndex = 1
- NumGlyphs = 0
OnClick = btnTopLeftClick
end
object btnTopRight: TSpeedButton
@@ -147,7 +143,6 @@ inherited frmMoveSettings: TfrmMoveSettings
Top = 0
Width = 23
BorderSpacing.Left = 8
- Color = clBtnFace
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -185,7 +180,6 @@ inherited frmMoveSettings: TfrmMoveSettings
0000000000000000000000000000000000000000000000000000
}
GroupIndex = 1
- NumGlyphs = 0
OnClick = btnTopLeftClick
end
object btnRight: TSpeedButton
@@ -198,7 +192,6 @@ inherited frmMoveSettings: TfrmMoveSettings
Width = 23
BorderSpacing.Top = 8
BorderSpacing.Right = 8
- Color = clBtnFace
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -236,7 +229,6 @@ inherited frmMoveSettings: TfrmMoveSettings
0000000000000000000000000000000000000000000000000000
}
GroupIndex = 1
- NumGlyphs = 0
OnClick = btnTopLeftClick
end
object btnBottomRight: TSpeedButton
@@ -248,7 +240,6 @@ inherited frmMoveSettings: TfrmMoveSettings
Top = 60
Width = 23
BorderSpacing.Top = 8
- Color = clBtnFace
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -286,7 +277,6 @@ inherited frmMoveSettings: TfrmMoveSettings
0000000000000000000000000000000000000000000000000000
}
GroupIndex = 1
- NumGlyphs = 0
OnClick = btnTopLeftClick
end
object btnBottom: TSpeedButton
@@ -299,7 +289,6 @@ inherited frmMoveSettings: TfrmMoveSettings
Width = 23
BorderSpacing.Left = 8
BorderSpacing.Bottom = 8
- Color = clBtnFace
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -337,7 +326,6 @@ inherited frmMoveSettings: TfrmMoveSettings
0000000000000000000000000000000000000000000000000000
}
GroupIndex = 1
- NumGlyphs = 0
OnClick = btnTopLeftClick
end
object btnBottomLeft: TSpeedButton
@@ -349,7 +337,6 @@ inherited frmMoveSettings: TfrmMoveSettings
Top = 60
Width = 23
BorderSpacing.Top = 8
- Color = clBtnFace
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -387,7 +374,6 @@ inherited frmMoveSettings: TfrmMoveSettings
0000000000000000000000000000000000000000000000000000
}
GroupIndex = 1
- NumGlyphs = 0
OnClick = btnTopLeftClick
end
object btnLeft: TSpeedButton
@@ -399,7 +385,6 @@ inherited frmMoveSettings: TfrmMoveSettings
Top = 30
Width = 23
BorderSpacing.Top = 8
- Color = clBtnFace
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -437,7 +422,6 @@ inherited frmMoveSettings: TfrmMoveSettings
0000000000000000000000000000000000000000000000000000
}
GroupIndex = 1
- NumGlyphs = 0
OnClick = btnTopLeftClick
end
object seOffset: TSpinEdit
@@ -446,7 +430,7 @@ inherited frmMoveSettings: TfrmMoveSettings
AnchorSideTop.Control = btnTop
AnchorSideTop.Side = asrBottom
Left = 33
- Height = 25
+ Height = 33
Hint = 'Offset'
Top = 30
Width = 34
@@ -464,9 +448,9 @@ inherited frmMoveSettings: TfrmMoveSettings
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = gbDirection
AnchorSideBottom.Side = asrBottom
- Left = 121
+ Left = 119
Height = 25
- Top = 83
+ Top = 67
Width = 103
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 8
@@ -478,4 +462,6 @@ inherited frmMoveSettings: TfrmMoveSettings
ModalResult = 2
TabOrder = 2
end
+ inherited tmClose: TTimer[3]
+ end
end
diff --git a/Client/Tools/UfrmToolWindow.lfm b/Client/Tools/UfrmToolWindow.lfm
index 808aa95..44bdbd3 100644
--- a/Client/Tools/UfrmToolWindow.lfm
+++ b/Client/Tools/UfrmToolWindow.lfm
@@ -1,8 +1,8 @@
object frmToolWindow: TfrmToolWindow
Left = 282
- Height = 300
+ Height = 375
Top = 157
- Width = 400
+ Width = 500
BorderIcons = []
BorderStyle = bsToolWindow
Caption = 'ToolWindow'
@@ -11,11 +11,10 @@ object frmToolWindow: TfrmToolWindow
OnDeactivate = FormDeactivate
OnShow = FormShow
ShowInTaskBar = stNever
- LCLVersion = '0.9.29'
object tmClose: TTimer
Enabled = False
OnTimer = tmCloseTimer
- left = 8
- top = 8
+ Left = 10
+ Top = 10
end
end
diff --git a/Client/Tools/UfrmVirtualLayer.lfm b/Client/Tools/UfrmVirtualLayer.lfm
index afb4577..832ef01 100644
--- a/Client/Tools/UfrmVirtualLayer.lfm
+++ b/Client/Tools/UfrmVirtualLayer.lfm
@@ -2,11 +2,11 @@ inherited frmVirtualLayer: TfrmVirtualLayer
Left = 290
Height = 82
Top = 171
- Width = 210
+ Width = 231
ActiveControl = cbShowLayer
Caption = 'Virtual Layer'
ClientHeight = 82
- ClientWidth = 210
+ ClientWidth = 231
object tbZ: TTrackBar[0]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = seZ
@@ -14,9 +14,9 @@ inherited frmVirtualLayer: TfrmVirtualLayer
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 8
- Height = 36
- Top = 37
- Width = 194
+ Height = 47
+ Top = 49
+ Width = 215
Frequency = 10
Max = 127
Min = -128
@@ -32,9 +32,9 @@ inherited frmVirtualLayer: TfrmVirtualLayer
AnchorSideTop.Control = seZ
AnchorSideTop.Side = asrCenter
Left = 8
- Height = 22
- Top = 7
- Width = 126
+ Height = 25
+ Top = 12
+ Width = 150
BorderSpacing.Left = 8
Caption = 'Show Layer at Z:'
OnChange = cbShowLayerChange
@@ -44,8 +44,8 @@ inherited frmVirtualLayer: TfrmVirtualLayer
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
- Left = 152
- Height = 21
+ Left = 173
+ Height = 33
Top = 8
Width = 50
Anchors = [akTop, akRight]
@@ -56,4 +56,6 @@ inherited frmVirtualLayer: TfrmVirtualLayer
OnChange = seZChange
TabOrder = 2
end
+ inherited tmClose: TTimer[3]
+ end
end
diff --git a/Client/UfrmAbout.lfm b/Client/UfrmAbout.lfm
index 63cfb2b..2627c1f 100644
--- a/Client/UfrmAbout.lfm
+++ b/Client/UfrmAbout.lfm
@@ -1,144 +1,151 @@
object frmAbout: TfrmAbout
Left = 290
- Height = 308
+ Height = 579
Top = 171
- Width = 354
+ Width = 388
AutoSize = True
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'About CentrED'
- ClientHeight = 308
- ClientWidth = 354
- Font.Height = -11
+ ClientHeight = 579
+ ClientWidth = 388
+ DesignTimePPI = 120
+ Font.Height = -18
OnCreate = FormCreate
Position = poScreenCenter
- LCLVersion = '0.9.31'
object Label3: TLabel
- Left = 8
- Height = 53
- Top = 178
- Width = 338
+ Left = 12
+ Height = 182
+ Top = 334
+ Width = 364
Align = alTop
- BorderSpacing.Top = 16
- BorderSpacing.Around = 8
- Caption = 'Ultima(tm) Online (c) 1997 Electronic Arts Inc. Ultima, the UO logo, Are You With Us?, ORIGIN, the ORIGIN logo and We create worlds are trademarks or registered trademarks of Electronic Arts Inc. in the U.S. and/or other countries. All rights reserved.'
+ BorderSpacing.Top = 25
+ BorderSpacing.Around = 12
+ Caption = 'Ultima™ Online © 1997 Electronic Arts Inc. Ultima, the UO logo, Are You With Us?, ORIGIN, the ORIGIN logo and We create worlds are trademarks or registered trademarks of Electronic Arts Inc. in the U.S. and/or other countries. All rights reserved.'
+ Color = clDefault
ParentColor = False
WordWrap = True
end
object Label5: TLabel
- Left = 8
- Height = 14
- Top = 87
- Width = 338
+ Left = 12
+ Height = 26
+ Top = 167
+ Width = 364
Align = alTop
- BorderSpacing.Left = 8
- BorderSpacing.Right = 8
+ BorderSpacing.Left = 12
+ BorderSpacing.Right = 12
Caption = 'It is using the following great components:'
+ Color = clDefault
ParentColor = False
end
object Label6: TLabel
- Left = 16
- Height = 53
- Top = 101
- Width = 330
+ Left = 25
+ Height = 104
+ Top = 193
+ Width = 351
Align = alTop
- BorderSpacing.Left = 16
- BorderSpacing.Right = 8
+ BorderSpacing.Left = 25
+ BorderSpacing.Right = 12
Caption = '- Vampyre Imaging Lib by Marek Mauder'#13#10'- lNet by Ales Katona and Micha Nelissen'#13#10'- VirtualTrees by Mike Lischke'#13#10'- Silk Icons by Mark James'
+ Color = clDefault
ParentColor = False
end
object Label7: TLabel
- Left = 8
- Height = 14
- Top = 73
- Width = 338
+ Left = 12
+ Height = 52
+ Top = 115
+ Width = 364
Align = alTop
- BorderSpacing.Left = 8
- BorderSpacing.Right = 8
+ BorderSpacing.Left = 12
+ BorderSpacing.Right = 12
Caption = 'CentrED has been developed using Lazarus and FreePascal.'
+ Color = clDefault
ParentColor = False
WordWrap = True
end
object Panel2: TPanel
Left = 0
- Height = 65
+ Height = 103
Top = 0
- Width = 354
+ Width = 388
Align = alTop
AutoSize = True
- BorderSpacing.Bottom = 8
+ BorderSpacing.Bottom = 12
BevelOuter = bvNone
- ClientHeight = 65
- ClientWidth = 354
+ ClientHeight = 103
+ ClientWidth = 388
TabOrder = 0
object Panel1: TPanel
Left = 0
- Height = 65
+ Height = 103
Top = 0
- Width = 190
+ Width = 307
AutoSize = True
BevelInner = bvRaised
BevelOuter = bvLowered
- ClientHeight = 65
- ClientWidth = 190
+ ClientHeight = 103
+ ClientWidth = 307
TabOrder = 0
object Label1: TLabel
Left = 2
- Height = 38
+ Height = 60
Top = 2
- Width = 186
+ Width = 303
Align = alTop
Alignment = taCenter
AutoSize = False
Caption = 'UO CentrED'
- Font.Height = -29
+ Color = clDefault
+ Font.Height = -45
Font.Style = [fsBold]
Layout = tlCenter
ParentColor = False
ParentFont = False
end
object lblVersion: TLabel
- Left = 6
+ Left = 8
Height = 1
- Top = 40
- Width = 178
+ Top = 62
+ Width = 291
Align = alTop
Alignment = taRightJustify
- BorderSpacing.Left = 4
- BorderSpacing.Right = 4
+ BorderSpacing.Left = 6
+ BorderSpacing.Right = 6
+ Color = clDefault
ParentColor = False
end
object lblCopyright: TLabel
- Left = 6
- Height = 14
- Top = 45
- Width = 178
+ Left = 8
+ Height = 26
+ Top = 69
+ Width = 291
Align = alTop
Alignment = taCenter
- BorderSpacing.Around = 4
- Caption = 'Copyright 2012 Andreas Schneider'
+ BorderSpacing.Around = 6
+ Caption = 'Copyright 2022 Andreas Schneider'
+ Color = clDefault
ParentColor = False
end
end
end
object Panel3: TPanel
- Left = 8
- Height = 25
- Top = 239
- Width = 338
+ Left = 12
+ Height = 39
+ Top = 528
+ Width = 364
Align = alTop
- BorderSpacing.Around = 8
+ BorderSpacing.Around = 12
BevelOuter = bvNone
- ClientHeight = 25
- ClientWidth = 338
+ ClientHeight = 39
+ ClientWidth = 364
TabOrder = 1
object btnClose: TButton
- Left = 263
- Height = 25
+ Left = 246
+ Height = 39
Top = 0
- Width = 75
+ Width = 118
Align = alRight
- BorderSpacing.InnerBorder = 4
+ BorderSpacing.InnerBorder = 6
Caption = 'Close'
OnClick = btnCloseClick
TabOrder = 0
diff --git a/Client/UfrmAccountControl.lfm b/Client/UfrmAccountControl.lfm
index 4223a6e..2836857 100644
--- a/Client/UfrmAccountControl.lfm
+++ b/Client/UfrmAccountControl.lfm
@@ -9,18 +9,16 @@ object frmAccountControl: TfrmAccountControl
Caption = 'Account Management'
ClientHeight = 472
ClientWidth = 542
- DesignTimePPI = 120
Font.Height = -14
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
Position = poOwnerFormCenter
- LCLVersion = '2.3.0.0'
object tbMain: TToolBar
Left = 0
Top = 0
- Width = 434
+ Width = 542
Caption = 'tbMain'
Images = ilToolbar
TabOrder = 0
@@ -55,7 +53,7 @@ object frmAccountControl: TfrmAccountControl
ShowHint = True
end
object tbDeleteUser: TToolButton
- Left = 92
+ Left = 93
Hint = 'Delete User'
Top = 2
Caption = 'Delete User'
@@ -66,7 +64,7 @@ object frmAccountControl: TfrmAccountControl
end
object tbSeparator1: TToolButton
Left = 30
- Height = 6
+ Height = 28
Top = 2
Caption = 'tbSeparator1'
Style = tbsDivider
@@ -81,9 +79,9 @@ object frmAccountControl: TfrmAccountControl
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 0
- Height = 352
+ Height = 440
Top = 32
- Width = 434
+ Width = 542
Anchors = [akTop, akLeft, akRight, akBottom]
DefaultText = 'Node'
Header.AutoSizeIndex = 1
diff --git a/Client/UfrmChangePassword.lfm b/Client/UfrmChangePassword.lfm
index 14dd4f8..938c0ce 100644
--- a/Client/UfrmChangePassword.lfm
+++ b/Client/UfrmChangePassword.lfm
@@ -1,59 +1,62 @@
object frmChangePassword: TfrmChangePassword
Left = 283
- Height = 145
+ Height = 186
Top = 193
- Width = 315
+ Width = 387
BorderStyle = bsDialog
Caption = 'Change Password'
- ClientHeight = 145
- ClientWidth = 315
+ ClientHeight = 186
+ ClientWidth = 387
+ DesignTimePPI = 120
OnShow = FormShow
Position = poMainFormCenter
- LCLVersion = '1.3'
object Label1: TLabel
AnchorSideTop.Control = edOldPwd
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edOldPwd
- Left = 32
- Height = 15
- Top = 13
- Width = 88
+ Left = 40
+ Height = 23
+ Top = 16
+ Width = 110
Anchors = [akTop, akRight]
- BorderSpacing.Right = 8
+ BorderSpacing.Right = 10
Caption = 'Old Password:'
+ Color = clDefault
ParentColor = False
end
object Label2: TLabel
AnchorSideTop.Control = edNewPwd
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edNewPwd
- Left = 26
- Height = 15
- Top = 46
- Width = 94
+ Left = 32
+ Height = 23
+ Top = 61
+ Width = 118
Anchors = [akTop, akRight]
- BorderSpacing.Right = 8
+ BorderSpacing.Right = 10
Caption = 'New Password:'
+ Color = clDefault
ParentColor = False
end
object lblNewPwdRepeat: TLabel
AnchorSideTop.Control = edNewPwdRepeat
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edNewPwdRepeat
- Left = 9
- Height = 15
- Top = 79
- Width = 111
+ Left = 14
+ Height = 23
+ Top = 106
+ Width = 136
Anchors = [akTop, akRight]
- BorderSpacing.Right = 8
+ BorderSpacing.Right = 10
Caption = 'Repeat Password:'
+ Color = clDefault
ParentColor = False
end
object edOldPwd: TEdit
- Left = 128
- Height = 25
- Top = 8
- Width = 176
+ Left = 160
+ Height = 35
+ Top = 10
+ Width = 220
EchoMode = emPassword
PasswordChar = '*'
TabOrder = 0
@@ -64,12 +67,12 @@ object frmChangePassword: TfrmChangePassword
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edOldPwd
AnchorSideRight.Side = asrBottom
- Left = 128
- Height = 25
- Top = 41
- Width = 176
+ Left = 160
+ Height = 35
+ Top = 55
+ Width = 220
Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Top = 8
+ BorderSpacing.Top = 10
EchoMode = emPassword
OnChange = edNewPwdChange
PasswordChar = '*'
@@ -81,12 +84,12 @@ object frmChangePassword: TfrmChangePassword
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edNewPwd
AnchorSideRight.Side = asrBottom
- Left = 128
- Height = 25
- Top = 74
- Width = 176
+ Left = 160
+ Height = 35
+ Top = 100
+ Width = 220
Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Top = 8
+ BorderSpacing.Top = 10
EchoMode = emPassword
OnChange = edNewPwdChange
PasswordChar = '*'
@@ -95,12 +98,12 @@ object frmChangePassword: TfrmChangePassword
object btnOK: TButton
AnchorSideTop.Control = btnCancel
AnchorSideRight.Control = btnCancel
- Left = 149
- Height = 25
- Top = 112
- Width = 75
+ Left = 179
+ Height = 32
+ Top = 144
+ Width = 94
Anchors = [akTop, akRight]
- BorderSpacing.Right = 8
+ BorderSpacing.Right = 10
Caption = '&OK'
Default = True
Enabled = False
@@ -113,13 +116,13 @@ object frmChangePassword: TfrmChangePassword
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
- Left = 232
- Height = 25
- Top = 112
- Width = 75
+ Left = 283
+ Height = 32
+ Top = 144
+ Width = 94
Anchors = [akRight, akBottom]
- BorderSpacing.Right = 8
- BorderSpacing.Bottom = 8
+ BorderSpacing.Right = 10
+ BorderSpacing.Bottom = 10
Cancel = True
Caption = 'Cancel'
ModalResult = 2
diff --git a/Client/UfrmEditAccount.lfm b/Client/UfrmEditAccount.lfm
index f72c095..90e87d3 100644
--- a/Client/UfrmEditAccount.lfm
+++ b/Client/UfrmEditAccount.lfm
@@ -1,40 +1,45 @@
object frmEditAccount: TfrmEditAccount
Left = 290
- Height = 268
+ Height = 335
Top = 171
- Width = 326
+ Width = 408
ActiveControl = PageControl1
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Edit Account'
- ClientHeight = 268
- ClientWidth = 326
+ ClientHeight = 335
+ ClientWidth = 408
DesignTimePPI = 120
- Font.Height = -14
+ Font.Height = -18
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
Position = poOwnerFormCenter
- LCLVersion = '2.3.0.0'
object PageControl1: TPageControl
Left = 0
- Height = 173
+ Height = 272
Top = 0
- Width = 261
+ Width = 408
ActivePage = tsGeneral
Align = alClient
TabIndex = 0
TabOrder = 0
object tsGeneral: TTabSheet
Caption = 'General'
- ClientHeight = 135
- ClientWidth = 251
+ ClientHeight = 234
+ ClientWidth = 398
object lblPasswordHint: TLabel
- Left = 108
- Height = 35
- Top = 80
- Width = 200
- AutoSize = False
+ AnchorSideLeft.Control = edPassword
+ AnchorSideTop.Control = edPassword
+ AnchorSideTop.Side = asrBottom
+ AnchorSideRight.Control = edPassword
+ AnchorSideRight.Side = asrBottom
+ Left = 128
+ Height = 52
+ Top = 102
+ Width = 260
+ Anchors = [akTop, akLeft, akRight]
+ BorderSpacing.Around = 2
Caption = 'Leave empty to leave the password unchanged.'
Color = clDefault
Enabled = False
@@ -42,55 +47,88 @@ object frmEditAccount: TfrmEditAccount
WordWrap = True
end
object lblUsername: TLabel
+ AnchorSideLeft.Control = tsGeneral
+ AnchorSideTop.Control = edUsername
+ AnchorSideTop.Side = asrCenter
Left = 8
- Height = 14
- Top = 15
- Width = 58
+ Height = 26
+ Top = 14
+ Width = 92
+ BorderSpacing.Left = 8
Caption = 'Username:'
Color = clDefault
ParentColor = False
end
object lblPassword: TLabel
+ AnchorSideLeft.Control = lblUsername
+ AnchorSideTop.Control = edPassword
+ AnchorSideTop.Side = asrCenter
Left = 8
- Height = 14
- Top = 55
- Width = 54
+ Height = 26
+ Top = 68
+ Width = 87
Caption = 'Password:'
Color = clDefault
ParentColor = False
end
object lblAccessLevel: TLabel
+ AnchorSideLeft.Control = lblPassword
+ AnchorSideTop.Control = cbAccessLevel
+ AnchorSideTop.Side = asrCenter
Left = 8
- Height = 14
- Top = 135
- Width = 63
+ Height = 26
+ Top = 176
+ Width = 102
Caption = 'Accesslevel:'
Color = clDefault
ParentColor = False
end
object edUsername: TEdit
- Left = 108
- Height = 23
- Top = 10
- Width = 200
+ AnchorSideLeft.Control = lblAccessLevel
+ AnchorSideLeft.Side = asrBottom
+ AnchorSideTop.Control = tsGeneral
+ AnchorSideRight.Control = tsGeneral
+ AnchorSideRight.Side = asrBottom
+ Left = 126
+ Height = 38
+ Top = 8
+ Width = 264
+ Anchors = [akTop, akLeft, akRight]
+ BorderSpacing.Left = 16
+ BorderSpacing.Top = 8
+ BorderSpacing.Right = 8
Color = clBtnFace
ReadOnly = True
TabOrder = 0
end
object edPassword: TEdit
- Left = 108
- Height = 23
- Top = 50
- Width = 200
+ AnchorSideLeft.Control = edUsername
+ AnchorSideTop.Control = edUsername
+ AnchorSideTop.Side = asrBottom
+ AnchorSideRight.Control = edUsername
+ AnchorSideRight.Side = asrBottom
+ Left = 126
+ Height = 38
+ Top = 62
+ Width = 264
+ Anchors = [akTop, akLeft, akRight]
+ BorderSpacing.Top = 16
EchoMode = emPassword
PasswordChar = '*'
TabOrder = 1
end
object cbAccessLevel: TComboBox
- Left = 108
- Height = 25
- Top = 130
- Width = 200
+ AnchorSideLeft.Control = edPassword
+ AnchorSideTop.Control = lblPasswordHint
+ AnchorSideTop.Side = asrBottom
+ AnchorSideRight.Control = edPassword
+ AnchorSideRight.Side = asrBottom
+ Left = 126
+ Height = 38
+ Top = 170
+ Width = 264
+ Anchors = [akTop, akLeft, akRight]
+ BorderSpacing.Top = 16
ItemHeight = 0
Items.Strings = (
'None'
@@ -104,70 +142,70 @@ object frmEditAccount: TfrmEditAccount
end
object tsRegions: TTabSheet
Caption = 'Regions'
- ClientHeight = 135
- ClientWidth = 251
+ ClientHeight = 234
+ ClientWidth = 398
object Label1: TLabel
- Left = 8
- Height = 14
- Top = 8
- Width = 243
+ Left = 12
+ Height = 26
+ Top = 12
+ Width = 374
Align = alTop
- BorderSpacing.Left = 10
- BorderSpacing.Top = 10
- BorderSpacing.Right = 10
- BorderSpacing.Bottom = 5
+ BorderSpacing.Left = 12
+ BorderSpacing.Top = 12
+ BorderSpacing.Right = 12
+ BorderSpacing.Bottom = 6
Caption = 'Allowed Regions:'
Color = clDefault
ParentColor = False
end
object cbRegions: TCheckListBox
- Left = 8
- Height = 114
- Top = 26
- Width = 243
+ Left = 12
+ Height = 178
+ Top = 44
+ Width = 374
Align = alClient
- BorderSpacing.Left = 10
- BorderSpacing.Top = 5
- BorderSpacing.Right = 10
- BorderSpacing.Bottom = 10
- ItemHeight = 20
+ BorderSpacing.Left = 12
+ BorderSpacing.Top = 6
+ BorderSpacing.Right = 12
+ BorderSpacing.Bottom = 12
+ ItemHeight = 0
TabOrder = 0
TopIndex = -1
end
end
end
object Panel1: TPanel
- Left = 8
- Height = 31
- Top = 175
- Width = 245
+ Left = 12
+ Height = 39
+ Top = 284
+ Width = 384
Align = alBottom
- BorderSpacing.Around = 10
+ BorderSpacing.Around = 12
BevelOuter = bvNone
- ClientHeight = 31
- ClientWidth = 245
+ ClientHeight = 39
+ ClientWidth = 384
TabOrder = 1
object btnCancel: TButton
- Left = 151
- Height = 25
+ Left = 266
+ Height = 39
Top = 0
- Width = 94
+ Width = 118
Align = alRight
- BorderSpacing.Left = 5
- BorderSpacing.InnerBorder = 5
+ BorderSpacing.Left = 6
+ BorderSpacing.InnerBorder = 6
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 0
end
object btnOK: TButton
- Left = 72
- Height = 25
+ Left = 142
+ Height = 39
Top = 0
- Width = 94
+ Width = 118
Align = alRight
- BorderSpacing.Right = 5
- BorderSpacing.InnerBorder = 5
+ BorderSpacing.Right = 6
+ BorderSpacing.InnerBorder = 6
Caption = 'OK'
Default = True
ModalResult = 1
diff --git a/Client/UfrmInitialize.lfm b/Client/UfrmInitialize.lfm
index 10afafb..8fd9afc 100644
--- a/Client/UfrmInitialize.lfm
+++ b/Client/UfrmInitialize.lfm
@@ -1,39 +1,37 @@
object frmInitialize: TfrmInitialize
Left = 290
- Height = 65
+ Height = 81
Top = 171
- Width = 241
+ Width = 301
BorderIcons = []
BorderStyle = bsDialog
Caption = 'Please wait ...'
- ClientHeight = 65
- ClientWidth = 241
- Font.Height = -11
+ ClientHeight = 81
+ ClientWidth = 301
+ Font.Height = -14
OnClose = FormClose
OnCreate = FormCreate
Position = poScreenCenter
- LCLVersion = '0.9.25'
object pnlMain: TPanel
- Left = 8
- Height = 50
- Top = 8
- Width = 226
+ Left = 10
+ Height = 62
+ Top = 10
+ Width = 282
BevelInner = bvRaised
BevelOuter = bvLowered
- ClientHeight = 50
- ClientWidth = 226
- ParentFont = True
+ ClientHeight = 62
+ ClientWidth = 282
TabOrder = 0
object lblStatus: TLabel
- Left = 8
- Height = 32
- Top = 8
- Width = 208
+ Left = 10
+ Height = 40
+ Top = 10
+ Width = 260
Alignment = taCenter
AutoSize = False
+ Color = clDefault
Layout = tlCenter
ParentColor = False
- ParentFont = True
WordWrap = True
end
end
diff --git a/Client/UfrmLargeScaleCommand.lfm b/Client/UfrmLargeScaleCommand.lfm
index 0436820..ac2a6f8 100644
--- a/Client/UfrmLargeScaleCommand.lfm
+++ b/Client/UfrmLargeScaleCommand.lfm
@@ -1,21 +1,21 @@
object frmLargeScaleCommand: TfrmLargeScaleCommand
Left = 290
- Height = 390
+ Height = 610
Top = 171
- Width = 620
+ Width = 969
ActiveControl = vstActions
Caption = 'Large Scale Commands'
- ClientHeight = 390
- ClientWidth = 620
- Constraints.MinHeight = 390
- Constraints.MinWidth = 620
- Font.Height = -11
+ ClientHeight = 610
+ ClientWidth = 969
+ Constraints.MinHeight = 610
+ Constraints.MinWidth = 969
+ DesignTimePPI = 120
+ Font.Height = -18
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
Position = poOwnerFormCenter
ShowInTaskBar = stAlways
- LCLVersion = '1.3'
object nbActions: TNotebook
AnchorSideLeft.Control = vstActions
AnchorSideLeft.Side = asrBottom
@@ -23,10 +23,10 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnClose
- Left = 152
- Height = 349
+ Left = 238
+ Height = 547
Top = 0
- Width = 468
+ Width = 731
PageIndex = 0
Anchors = [akTop, akLeft, akRight, akBottom]
TabOrder = 0
@@ -34,20 +34,20 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
object pgArea: TPage
object sbArea: TScrollBox
Left = 0
- Height = 349
+ Height = 547
Top = 0
- Width = 468
- HorzScrollBar.Page = 464
- VertScrollBar.Page = 345
+ Width = 731
+ HorzScrollBar.Page = 164
+ VertScrollBar.Page = 164
Align = alClient
- ClientHeight = 345
- ClientWidth = 464
+ ClientHeight = 545
+ ClientWidth = 729
TabOrder = 0
object pbArea: TPaintBox
Left = 0
- Height = 105
+ Height = 164
Top = 0
- Width = 105
+ Width = 164
OnMouseDown = pbAreaMouseDown
OnMouseMove = pbAreaMouseMove
OnPaint = pbAreaPaint
@@ -58,12 +58,12 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
object rgCMAction: TRadioGroup
AnchorSideLeft.Control = pgCopyMove
AnchorSideTop.Control = pgCopyMove
- Left = 8
- Height = 40
- Top = 8
- Width = 184
+ Left = 12
+ Height = 62
+ Top = 12
+ Width = 288
AutoFill = True
- BorderSpacing.Around = 8
+ BorderSpacing.Around = 12
Caption = 'Action'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
@@ -73,8 +73,8 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2
- ClientHeight = 24
- ClientWidth = 182
+ ClientHeight = 38
+ ClientWidth = 286
Columns = 2
ItemIndex = 0
Items.Strings = (
@@ -87,35 +87,37 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Control = rgCMAction
AnchorSideTop.Control = rgCMAction
AnchorSideTop.Side = asrBottom
- Left = 8
- Height = 81
- Top = 56
- Width = 121
+ Left = 12
+ Height = 126
+ Top = 88
+ Width = 189
Caption = 'Offset'
- ClientHeight = 65
- ClientWidth = 119
+ ClientHeight = 102
+ ClientWidth = 187
TabOrder = 1
object Label9: TLabel
AnchorSideLeft.Control = gbCMOffset
AnchorSideTop.Control = seCMOffsetX
AnchorSideTop.Side = asrCenter
- Left = 8
+ Left = 12
Height = 15
- Top = 11
+ Top = 18
Width = 12
- BorderSpacing.Around = 8
+ BorderSpacing.Around = 12
Caption = 'X:'
+ Color = clDefault
ParentColor = False
end
object Label10: TLabel
AnchorSideLeft.Control = Label9
AnchorSideTop.Control = seCMOffsetY
AnchorSideTop.Side = asrCenter
- Left = 8
+ Left = 12
Height = 15
- Top = 39
+ Top = 61
Width = 10
Caption = 'Y:'
+ Color = clDefault
ParentColor = False
end
object seCMOffsetX: TSpinEdit
@@ -123,14 +125,14 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbCMOffset
AnchorSideRight.Control = btnGrabOffset
- Left = 28
+ Left = 44
Height = 20
- Top = 8
+ Top = 12
Width = 61
Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Top = 4
- BorderSpacing.Bottom = 4
- BorderSpacing.Around = 4
+ BorderSpacing.Top = 6
+ BorderSpacing.Bottom = 6
+ BorderSpacing.Around = 6
TabOrder = 0
end
object seCMOffsetY: TSpinEdit
@@ -139,12 +141,12 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = seCMOffsetX
AnchorSideRight.Side = asrBottom
- Left = 28
+ Left = 44
Height = 20
- Top = 36
+ Top = 56
Width = 61
Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Bottom = 8
+ BorderSpacing.Bottom = 12
TabOrder = 1
end
object btnGrabOffset: TSpeedButton
@@ -152,13 +154,13 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = gbCMOffset
AnchorSideRight.Side = asrBottom
- Left = 93
- Height = 22
+ Left = 80
+ Height = 35
Hint = 'Grab coordinates and calculate the offset in relation to the selected area.'
- Top = 22
- Width = 22
+ Top = 35
+ Width = 35
Anchors = [akTop, akRight]
- BorderSpacing.Around = 4
+ BorderSpacing.Around = 6
Enabled = False
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
@@ -205,11 +207,11 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Control = gbCMOffset
AnchorSideTop.Control = gbCMOffset
AnchorSideTop.Side = asrBottom
- Left = 8
+ Left = 12
Height = 22
- Top = 145
+ Top = 226
Width = 189
- BorderSpacing.Top = 8
+ BorderSpacing.Top = 12
Caption = 'Erase target area (at offset)'
TabOrder = 2
end
@@ -219,25 +221,27 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Control = rbSetTerrainAltitude
AnchorSideTop.Control = rbSetTerrainAltitude
AnchorSideTop.Side = asrBottom
- Left = 30
+ Left = 48
Height = 49
- Top = 30
+ Top = 48
Width = 162
- BorderSpacing.Left = 22
+ BorderSpacing.Left = 35
Caption = 'The statics will be elevated according to the terrain change.'
- Constraints.MaxWidth = 170
+ Color = clDefault
+ Constraints.MaxWidth = 265
Enabled = False
ParentColor = False
WordWrap = True
end
object Label3: TLabel
AnchorSideTop.Control = rbSetTerrainAltitude
- Left = 228
+ Left = 356
Height = 32
- Top = 8
+ Top = 12
Width = 209
Caption = 'Set the altitude to a value from this range:'
- Constraints.MaxWidth = 220
+ Color = clDefault
+ Constraints.MaxWidth = 344
ParentColor = False
WordWrap = True
end
@@ -246,23 +250,24 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = seTerrainAltitude1
AnchorSideTop.Side = asrCenter
- Left = 286
+ Left = 448
Height = 15
- Top = 51
+ Top = 80
Width = 12
- BorderSpacing.Left = 8
+ BorderSpacing.Left = 12
Caption = 'to'
+ Color = clDefault
ParentColor = False
end
object rbSetTerrainAltitude: TRadioButton
AnchorSideLeft.Control = pgModifyAltitude
AnchorSideTop.Control = pgModifyAltitude
- Left = 8
+ Left = 12
Height = 22
- Top = 8
+ Top = 12
Width = 134
- BorderSpacing.Left = 8
- BorderSpacing.Top = 8
+ BorderSpacing.Left = 12
+ BorderSpacing.Top = 12
Caption = 'Set terrain altitude'
Checked = True
TabOrder = 0
@@ -272,11 +277,11 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Control = rbSetTerrainAltitude
AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom
- Left = 8
+ Left = 12
Height = 22
- Top = 87
+ Top = 136
Width = 164
- BorderSpacing.Top = 8
+ BorderSpacing.Top = 12
Caption = 'Relative altitude change'
TabOrder = 1
end
@@ -284,11 +289,11 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Control = Label3
AnchorSideTop.Control = Label3
AnchorSideTop.Side = asrBottom
- Left = 228
+ Left = 356
Height = 20
- Top = 48
- Width = 50
- BorderSpacing.Top = 8
+ Top = 75
+ Width = 78
+ BorderSpacing.Top = 12
MaxValue = 127
MinValue = -128
TabOrder = 2
@@ -297,11 +302,11 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Control = Label4
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = seTerrainAltitude1
- Left = 306
+ Left = 478
Height = 20
- Top = 48
- Width = 50
- BorderSpacing.Left = 8
+ Top = 75
+ Width = 78
+ BorderSpacing.Left = 12
MaxValue = 127
MinValue = -128
TabOrder = 3
@@ -310,10 +315,10 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Control = Label2
AnchorSideTop.Control = rbRelativeAltitudeChange
AnchorSideTop.Side = asrBottom
- Left = 30
+ Left = 48
Height = 20
- Top = 109
- Width = 50
+ Top = 170
+ Width = 78
MaxValue = 127
MinValue = -128
TabOrder = 4
@@ -325,30 +330,31 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideTop.Control = pgDrawTerrain
AnchorSideBottom.Control = pgDrawTerrain
AnchorSideBottom.Side = asrBottom
- Left = 8
+ Left = 12
Height = 333
- Top = 8
- Width = 225
+ Top = 12
+ Width = 351
Anchors = [akTop, akLeft, akBottom]
- BorderSpacing.Around = 8
+ BorderSpacing.Around = 12
Caption = 'Tiles'
- ClientHeight = 318
- ClientWidth = 223
+ ClientHeight = 309
+ ClientWidth = 349
TabOrder = 0
object lblDrawTerrainTilesDesc: TLabel
AnchorSideLeft.Control = gbDrawTerrainTiles
AnchorSideTop.Control = gbDrawTerrainTiles
AnchorSideRight.Control = gbDrawTerrainTiles
AnchorSideRight.Side = asrBottom
- Left = 4
+ Left = 6
Height = 66
Top = 0
Width = 215
Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Left = 4
- BorderSpacing.Right = 4
- BorderSpacing.Bottom = 4
+ BorderSpacing.Left = 6
+ BorderSpacing.Right = 6
+ BorderSpacing.Bottom = 6
Caption = 'Drag terrain tiles from the main window and drop them on the list. For each cell in the target area, one of these (random) will be used.'
+ Color = clDefault
ParentColor = False
WordWrap = True
end
@@ -361,15 +367,15 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnDeleteTerrain
Cursor = 63
- Left = 4
+ Left = 6
Height = 218
- Top = 70
+ Top = 110
Width = 215
Anchors = [akTop, akLeft, akRight, akBottom]
- BorderSpacing.Left = 4
- BorderSpacing.Right = 4
- BorderSpacing.Bottom = 4
- DefaultNodeHeight = 44
+ BorderSpacing.Left = 6
+ BorderSpacing.Right = 6
+ BorderSpacing.Bottom = 6
+ DefaultNodeHeight = 69
DragMode = dmAutomatic
DragType = dtVCL
Header.AutoSizeIndex = 0
@@ -381,14 +387,15 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
item
Position = 1
Text = 'Tile'
- Width = 44
+ Width = 69
end
item
Position = 2
Text = 'Name'
- Width = 100
+ Width = 156
end>
- Header.DefaultHeight = 17
+ Header.DefaultHeight = 26
+ Header.Height = 45
Header.Options = [hoColumnResize, hoDrag, hoVisible]
Header.ParentFont = True
Header.Style = hsFlatButtons
@@ -405,11 +412,11 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = btnDeleteTerrain
AnchorSideBottom.Side = asrBottom
- Left = 30
- Height = 22
+ Left = 48
+ Height = 35
Hint = 'Clear'
- Top = 292
- Width = 22
+ Top = 279
+ Width = 35
Anchors = [akLeft, akBottom]
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
@@ -455,13 +462,13 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Control = gbDrawTerrainTiles
AnchorSideBottom.Control = gbDrawTerrainTiles
AnchorSideBottom.Side = asrBottom
- Left = 4
- Height = 22
+ Left = 6
+ Height = 35
Hint = 'Delete'
- Top = 292
- Width = 22
+ Top = 279
+ Width = 35
Anchors = [akLeft, akBottom]
- BorderSpacing.Around = 4
+ BorderSpacing.Around = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -510,30 +517,31 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideTop.Control = pgDeleteStatics
AnchorSideBottom.Control = pgDeleteStatics
AnchorSideBottom.Side = asrBottom
- Left = 8
+ Left = 12
Height = 300
- Top = 8
- Width = 225
+ Top = 12
+ Width = 351
Anchors = [akTop, akLeft, akBottom]
- BorderSpacing.Around = 8
+ BorderSpacing.Around = 12
Caption = 'Tiles'
- ClientHeight = 284
- ClientWidth = 223
+ ClientHeight = 276
+ ClientWidth = 349
TabOrder = 0
object lblDeleteStaticsTilesDesc: TLabel
AnchorSideLeft.Control = gbDeleteStaticsTiles
AnchorSideTop.Control = gbDeleteStaticsTiles
AnchorSideRight.Control = gbDeleteStaticsTiles
AnchorSideRight.Side = asrBottom
- Left = 4
+ Left = 6
Height = 78
Top = 0
Width = 213
Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Left = 4
- BorderSpacing.Right = 4
- BorderSpacing.Bottom = 4
+ BorderSpacing.Left = 6
+ BorderSpacing.Right = 6
+ BorderSpacing.Bottom = 6
Caption = 'Drag statics tiles from the main window and drop them on the list. Only statics matching these tiles will be deleted. If the list is empty, every static will be deleted.'
+ Color = clDefault
ParentColor = False
WordWrap = True
end
@@ -546,15 +554,15 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnDeleteDStaticsTiles
Cursor = 63
- Left = 4
+ Left = 6
Height = 184
- Top = 82
+ Top = 128
Width = 213
Anchors = [akTop, akLeft, akRight, akBottom]
- BorderSpacing.Left = 4
- BorderSpacing.Right = 4
- BorderSpacing.Bottom = 4
- DefaultNodeHeight = 44
+ BorderSpacing.Left = 6
+ BorderSpacing.Right = 6
+ BorderSpacing.Bottom = 6
+ DefaultNodeHeight = 69
DragMode = dmAutomatic
DragType = dtVCL
Header.AutoSizeIndex = 0
@@ -566,14 +574,15 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
item
Position = 1
Text = 'Tile'
- Width = 44
+ Width = 69
end
item
Position = 2
Text = 'Name'
- Width = 100
+ Width = 156
end>
- Header.DefaultHeight = 17
+ Header.DefaultHeight = 26
+ Header.Height = 45
Header.Options = [hoColumnResize, hoDrag, hoVisible]
Header.ParentFont = True
Header.Style = hsFlatButtons
@@ -590,11 +599,11 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = btnDeleteDStaticsTiles
AnchorSideBottom.Side = asrBottom
- Left = 30
- Height = 22
+ Left = 48
+ Height = 35
Hint = 'Clear'
- Top = 270
- Width = 22
+ Top = 257
+ Width = 35
Anchors = [akLeft, akBottom]
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
@@ -640,13 +649,13 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Control = gbDeleteStaticsTiles
AnchorSideBottom.Control = gbDeleteStaticsTiles
AnchorSideBottom.Side = asrBottom
- Left = 4
- Height = 22
+ Left = 6
+ Height = 35
Hint = 'Delete'
- Top = 270
- Width = 22
+ Top = 257
+ Width = 35
Anchors = [akLeft, akBottom]
- BorderSpacing.Around = 4
+ BorderSpacing.Around = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -692,13 +701,13 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Control = gbDeleteStaticsTiles
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbDeleteStaticsTiles
- Left = 241
+ Left = 376
Height = 79
- Top = 8
+ Top = 12
Width = 176
AutoSize = True
Caption = 'Z Boundaries'
- ClientHeight = 63
+ ClientHeight = 55
ClientWidth = 174
TabOrder = 1
object Label7: TLabel
@@ -706,15 +715,16 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideTop.Control = GroupBox1
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
- Left = 4
+ Left = 6
Height = 30
Top = 0
Width = 164
Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Left = 4
- BorderSpacing.Right = 4
- BorderSpacing.Bottom = 4
+ BorderSpacing.Left = 6
+ BorderSpacing.Right = 6
+ BorderSpacing.Bottom = 6
Caption = 'Only statics within this Z range will be deleted.'
+ Color = clDefault
ParentColor = False
WordWrap = True
end
@@ -723,21 +733,22 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = seDeleteStaticsZ1
AnchorSideTop.Side = asrCenter
- Left = 62
+ Left = 98
Height = 14
- Top = 40
+ Top = 62
Width = 12
Caption = 'to'
+ Color = clDefault
ParentColor = False
end
object seDeleteStaticsZ1: TSpinEdit
AnchorSideTop.Control = Label7
AnchorSideTop.Side = asrBottom
- Left = 4
+ Left = 6
Height = 19
- Top = 38
- Width = 50
- BorderSpacing.Around = 8
+ Top = 60
+ Width = 78
+ BorderSpacing.Around = 12
MaxValue = 127
MinValue = -128
TabOrder = 0
@@ -747,11 +758,11 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Control = Label8
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = seDeleteStaticsZ1
- Left = 82
+ Left = 128
Height = 19
- Top = 38
- Width = 50
- BorderSpacing.Left = 8
+ Top = 60
+ Width = 78
+ BorderSpacing.Left = 12
MaxValue = 127
MinValue = -128
TabOrder = 1
@@ -765,30 +776,31 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideTop.Control = pgInsertStatics
AnchorSideBottom.Control = pgInsertStatics
AnchorSideBottom.Side = asrBottom
- Left = 8
+ Left = 12
Height = 300
- Top = 8
- Width = 225
+ Top = 12
+ Width = 351
Anchors = [akTop, akLeft, akBottom]
- BorderSpacing.Around = 8
+ BorderSpacing.Around = 12
Caption = 'Tiles'
- ClientHeight = 284
- ClientWidth = 223
+ ClientHeight = 276
+ ClientWidth = 349
TabOrder = 0
object lblInsertStaticsTiles: TLabel
AnchorSideLeft.Control = gbInserStaticsTiles
AnchorSideTop.Control = gbInserStaticsTiles
AnchorSideRight.Control = gbInserStaticsTiles
AnchorSideRight.Side = asrBottom
- Left = 4
+ Left = 6
Height = 62
Top = 0
Width = 213
Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Left = 4
- BorderSpacing.Right = 4
- BorderSpacing.Bottom = 4
+ BorderSpacing.Left = 6
+ BorderSpacing.Right = 6
+ BorderSpacing.Bottom = 6
Caption = 'Drag statics tiles from the main window and drop them on the list. For each cell in the target area, one of these (random) will be used.'
+ Color = clDefault
ParentColor = False
WordWrap = True
end
@@ -800,15 +812,15 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideRight.Control = gbInserStaticsTiles
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnDeleteIStaticsTiles
- Left = 4
+ Left = 6
Height = 200
- Top = 66
+ Top = 102
Width = 213
Anchors = [akTop, akLeft, akRight, akBottom]
- BorderSpacing.Left = 4
- BorderSpacing.Right = 4
- BorderSpacing.Bottom = 4
- DefaultNodeHeight = 44
+ BorderSpacing.Left = 6
+ BorderSpacing.Right = 6
+ BorderSpacing.Bottom = 6
+ DefaultNodeHeight = 69
DragMode = dmAutomatic
DragType = dtVCL
Header.AutoSizeIndex = 0
@@ -820,14 +832,15 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
item
Position = 1
Text = 'Tile'
- Width = 44
+ Width = 69
end
item
Position = 2
Text = 'Name'
- Width = 100
+ Width = 156
end>
- Header.DefaultHeight = 17
+ Header.DefaultHeight = 26
+ Header.Height = 45
Header.Options = [hoColumnResize, hoDrag, hoVisible]
Header.ParentFont = True
Header.Style = hsFlatButtons
@@ -843,11 +856,11 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Control = btnDeleteIStaticsTiles
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnDeleteIStaticsTiles
- Left = 30
- Height = 22
+ Left = 48
+ Height = 35
Hint = 'Clear'
- Top = 270
- Width = 22
+ Top = 422
+ Width = 35
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -892,13 +905,13 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Control = gbInserStaticsTiles
AnchorSideBottom.Control = gbInserStaticsTiles
AnchorSideBottom.Side = asrBottom
- Left = 4
- Height = 22
+ Left = 6
+ Height = 35
Hint = 'Delete'
- Top = 270
- Width = 22
+ Top = 257
+ Width = 35
Anchors = [akLeft, akBottom]
- BorderSpacing.Around = 4
+ BorderSpacing.Around = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -944,13 +957,13 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Control = gbInserStaticsTiles
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbInserStaticsTiles
- Left = 241
+ Left = 376
Height = 75
- Top = 8
+ Top = 12
Width = 185
AutoSize = True
Caption = 'Probability'
- ClientHeight = 59
+ ClientHeight = 51
ClientWidth = 183
TabOrder = 1
object Label5: TLabel
@@ -958,15 +971,16 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideTop.Control = gbStaticsProbability
AnchorSideRight.Control = gbStaticsProbability
AnchorSideRight.Side = asrBottom
- Left = 4
+ Left = 6
Height = 30
Top = 0
Width = 173
Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Left = 4
- BorderSpacing.Right = 4
- BorderSpacing.Bottom = 4
+ BorderSpacing.Left = 6
+ BorderSpacing.Right = 6
+ BorderSpacing.Bottom = 6
Caption = 'A tile will only be placed with this probability:'
+ Color = clDefault
ParentColor = False
WordWrap = True
end
@@ -975,23 +989,24 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = seStaticsProbability
AnchorSideTop.Side = asrCenter
- Left = 58
+ Left = 90
Height = 14
- Top = 36
+ Top = 56
Width = 12
- BorderSpacing.Left = 4
+ BorderSpacing.Left = 6
Caption = '%'
+ Color = clDefault
ParentColor = False
end
object seStaticsProbability: TSpinEdit
AnchorSideLeft.Control = Label5
AnchorSideTop.Control = Label5
AnchorSideTop.Side = asrBottom
- Left = 4
+ Left = 6
Height = 19
- Top = 34
- Width = 50
- BorderSpacing.Bottom = 8
+ Top = 52
+ Width = 78
+ BorderSpacing.Bottom = 12
TabOrder = 0
Value = 100
end
@@ -1003,15 +1018,15 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbStaticsProbability
AnchorSideRight.Side = asrBottom
- Left = 241
+ Left = 376
Height = 111
- Top = 87
+ Top = 136
Width = 185
Anchors = [akTop, akLeft, akRight]
AutoSize = True
- BorderSpacing.Top = 4
+ BorderSpacing.Top = 6
Caption = 'Z Placement'
- ClientHeight = 95
+ ClientHeight = 87
ClientWidth = 183
TabOrder = 2
object rbPlaceStaticsOnTerrain: TRadioButton
@@ -1019,14 +1034,14 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideTop.Control = gbStaticsPlacement
AnchorSideRight.Control = gbStaticsPlacement
AnchorSideRight.Side = asrBottom
- Left = 4
+ Left = 6
Height = 22
- Top = 4
+ Top = 6
Width = 173
Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Left = 4
- BorderSpacing.Top = 4
- BorderSpacing.Right = 4
+ BorderSpacing.Left = 6
+ BorderSpacing.Top = 6
+ BorderSpacing.Right = 6
Caption = 'Place tiles on terrain'
Checked = True
TabOrder = 0
@@ -1038,9 +1053,9 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = rbPlaceStaticsOnTerrain
AnchorSideRight.Side = asrBottom
- Left = 4
+ Left = 6
Height = 22
- Top = 26
+ Top = 40
Width = 173
Anchors = [akTop, akLeft, akRight]
Caption = 'Place tiles on top'
@@ -1052,9 +1067,9 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = rbPlaceStaticsOnTop
AnchorSideRight.Side = asrBottom
- Left = 4
+ Left = 6
Height = 22
- Top = 48
+ Top = 75
Width = 173
Anchors = [akTop, akLeft, akRight]
Caption = 'Place tiles on:'
@@ -1064,12 +1079,12 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Control = rbPlaceStaticsOnZ
AnchorSideTop.Control = rbPlaceStaticsOnZ
AnchorSideTop.Side = asrBottom
- Left = 26
+ Left = 40
Height = 19
- Top = 70
- Width = 50
- BorderSpacing.Left = 22
- BorderSpacing.Bottom = 8
+ Top = 110
+ Width = 78
+ BorderSpacing.Left = 35
+ BorderSpacing.Bottom = 12
TabOrder = 3
end
end
@@ -1080,13 +1095,13 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
- Left = 548
- Height = 25
- Top = 357
- Width = 64
+ Left = 857
+ Height = 39
+ Top = 559
+ Width = 100
Anchors = [akRight, akBottom]
- BorderSpacing.Around = 8
- BorderSpacing.InnerBorder = 4
+ BorderSpacing.Around = 12
+ BorderSpacing.InnerBorder = 6
Caption = 'Close'
OnClick = btnCloseClick
TabOrder = 1
@@ -1095,12 +1110,12 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideRight.Control = btnClose
AnchorSideBottom.Control = btnClose
AnchorSideBottom.Side = asrBottom
- Left = 476
- Height = 25
- Top = 357
- Width = 64
+ Left = 745
+ Height = 39
+ Top = 559
+ Width = 100
Anchors = [akRight, akBottom]
- BorderSpacing.InnerBorder = 4
+ BorderSpacing.InnerBorder = 6
Caption = 'Execute'
OnClick = btnExecuteClick
TabOrder = 2
@@ -1112,16 +1127,18 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideRight.Control = Label1
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnDeleteArea
- Left = 4
- Height = 119
- Top = 153
- Width = 144
+ Left = 6
+ Height = 176
+ Top = 244
+ Width = 226
Anchors = [akTop, akLeft, akRight, akBottom]
- BorderSpacing.Bottom = 4
+ BorderSpacing.Bottom = 6
+ DefaultNodeHeight = 26
DefaultText = 'Node'
Header.AutoSizeIndex = 0
Header.Columns = <>
- Header.DefaultHeight = 17
+ Header.DefaultHeight = 26
+ Header.Height = 36
Header.MainColumn = -1
Header.Options = [hoColumnResize, hoDrag]
TabOrder = 3
@@ -1136,33 +1153,36 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = vstActions
AnchorSideRight.Side = asrBottom
- Left = 4
- Height = 13
- Top = 140
- Width = 144
+ Left = 6
+ Height = 26
+ Top = 218
+ Width = 226
Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Left = 4
- BorderSpacing.Top = 4
- BorderSpacing.Right = 4
+ BorderSpacing.Left = 6
+ BorderSpacing.Top = 6
+ BorderSpacing.Right = 6
Caption = 'Area:'
+ Color = clDefault
ParentColor = False
end
object vstActions: TLazVirtualStringTree
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 0
- Height = 136
+ Height = 212
Top = 0
- Width = 152
+ Width = 238
+ DefaultNodeHeight = 26
DefaultText = 'Node'
Header.AutoSizeIndex = 0
Header.Columns = <
item
Position = 0
Text = 'Actions'
- Width = 148
+ Width = 236
end>
- Header.DefaultHeight = 17
+ Header.DefaultHeight = 26
+ Header.Height = 45
Header.Options = [hoAutoResize, hoVisible]
Header.ParentFont = True
Header.Style = hsFlatButtons
@@ -1178,11 +1198,11 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
object btnAddArea: TSpeedButton
AnchorSideTop.Control = btnDeleteArea
AnchorSideRight.Control = btnDeleteArea
- Left = 39
- Height = 22
+ Left = 61
+ Height = 35
Hint = 'Add area'
- Top = 276
- Width = 22
+ Top = 426
+ Width = 35
Anchors = [akTop, akRight]
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
@@ -1229,14 +1249,14 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = vstArea
AnchorSideBottom.Control = seX1
- Left = 65
- Height = 22
+ Left = 102
+ Height = 35
Hint = 'Delete area'
- Top = 276
- Width = 22
+ Top = 426
+ Width = 35
Anchors = [akLeft, akBottom]
- BorderSpacing.Bottom = 4
- BorderSpacing.Around = 4
+ BorderSpacing.Bottom = 6
+ BorderSpacing.Around = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -1281,11 +1301,11 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Control = btnDeleteArea
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnDeleteArea
- Left = 91
- Height = 22
+ Left = 143
+ Height = 35
Hint = 'Delete all areas'
- Top = 276
- Width = 22
+ Top = 426
+ Width = 35
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -1330,23 +1350,24 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Control = lblY
AnchorSideTop.Control = seX1
AnchorSideTop.Side = asrCenter
- Left = 4
- Height = 13
- Top = 310
- Width = 6
+ Left = 6
+ Height = 26
+ Top = 478
+ Width = 11
Caption = 'X'
+ Color = clDefault
Enabled = False
ParentColor = False
end
object seX1: TSpinEdit
AnchorSideLeft.Control = seY1
AnchorSideBottom.Control = seY1
- Left = 17
- Height = 21
- Top = 306
- Width = 50
+ Left = 28
+ Height = 36
+ Top = 473
+ Width = 78
Anchors = [akLeft, akBottom]
- BorderSpacing.Bottom = 8
+ BorderSpacing.Bottom = 12
Enabled = False
OnChange = seX1Change
TabOrder = 5
@@ -1356,11 +1377,11 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Control = seX1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = seX1
- Left = 75
- Height = 21
- Top = 306
- Width = 50
- BorderSpacing.Left = 8
+ Left = 118
+ Height = 36
+ Top = 473
+ Width = 78
+ BorderSpacing.Left = 12
Enabled = False
OnChange = seX1Change
TabOrder = 6
@@ -1370,12 +1391,13 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = seY1
AnchorSideTop.Side = asrCenter
- Left = 4
- Height = 13
- Top = 339
- Width = 5
- BorderSpacing.Left = 4
+ Left = 6
+ Height = 26
+ Top = 526
+ Width = 10
+ BorderSpacing.Left = 6
Caption = 'Y'
+ Color = clDefault
Enabled = False
ParentColor = False
end
@@ -1383,13 +1405,13 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Control = lblY
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = btnGrab1
- Left = 17
- Height = 21
- Top = 335
- Width = 50
+ Left = 28
+ Height = 36
+ Top = 521
+ Width = 78
Anchors = [akLeft, akBottom]
- BorderSpacing.Left = 8
- BorderSpacing.Bottom = 4
+ BorderSpacing.Left = 12
+ BorderSpacing.Bottom = 6
Enabled = False
OnChange = seX1Change
TabOrder = 7
@@ -1398,10 +1420,10 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
object seY2: TSpinEdit
AnchorSideLeft.Control = seX2
AnchorSideTop.Control = seY1
- Left = 75
- Height = 21
- Top = 335
- Width = 50
+ Left = 118
+ Height = 36
+ Top = 521
+ Width = 78
Enabled = False
OnChange = seX1Change
TabOrder = 8
@@ -1412,13 +1434,13 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Side = asrCenter
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
- Left = 31
- Height = 22
+ Left = 50
+ Height = 35
Hint = 'Grab coordinates from the main window.'
- Top = 360
- Width = 22
+ Top = 563
+ Width = 35
Anchors = [akLeft, akBottom]
- BorderSpacing.Bottom = 8
+ BorderSpacing.Bottom = 12
Enabled = False
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
@@ -1465,11 +1487,11 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
AnchorSideLeft.Side = asrCenter
AnchorSideBottom.Control = btnGrab1
AnchorSideBottom.Side = asrBottom
- Left = 89
- Height = 22
+ Left = 140
+ Height = 35
Hint = 'Grab coordinates from the main window.'
- Top = 360
- Width = 22
+ Top = 563
+ Width = 35
Anchors = [akLeft, akBottom]
Enabled = False
Glyph.Data = {
@@ -1513,8 +1535,8 @@ object frmLargeScaleCommand: TfrmLargeScaleCommand
ParentShowHint = False
end
object pmSelectOffset: TPopupMenu
- left = 421
- top = 82
+ Left = 658
+ Top = 129
object mnuSelectTopLeft: TMenuItem
Caption = 'Select Top-Left Corner'
OnClick = mnuSelectTopLeftClick
diff --git a/Client/UfrmLogin.lfm b/Client/UfrmLogin.lfm
index 4ebe09b..5f36632 100644
--- a/Client/UfrmLogin.lfm
+++ b/Client/UfrmLogin.lfm
@@ -1,20 +1,19 @@
object frmLogin: TfrmLogin
Left = 290
- Height = 265
+ Height = 331
Top = 201
- Width = 483
+ Width = 604
ActiveControl = btnOK
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'UO CentrED'
- ClientHeight = 265
- ClientWidth = 483
- Font.Height = -11
+ ClientHeight = 331
+ ClientWidth = 604
+ Font.Height = -14
OnClose = FormClose
OnCreate = FormCreate
Position = poScreenCenter
ShowInTaskBar = stAlways
- LCLVersion = '0.9.31'
object lblCopyright: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = gbData
@@ -24,13 +23,14 @@ object frmLogin: TfrmLogin
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 0
- Height = 14
- Top = 249
- Width = 483
+ Height = 20
+ Top = 311
+ Width = 604
Alignment = taCenter
Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Top = 8
+ BorderSpacing.Top = 10
Caption = ' '
+ Color = clDefault
ParentColor = False
end
object gbConnection: TGroupBox
@@ -38,42 +38,46 @@ object frmLogin: TfrmLogin
AnchorSideTop.Control = Owner
AnchorSideRight.Control = gbActions
AnchorSideBottom.Side = asrCenter
- Left = 8
- Height = 138
- Top = 4
- Width = 316
+ Left = 10
+ Height = 172
+ Top = 5
+ Width = 395
Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Left = 8
- BorderSpacing.Top = 4
- BorderSpacing.Right = 8
+ BorderSpacing.Left = 10
+ BorderSpacing.Top = 5
+ BorderSpacing.Right = 10
Caption = 'Connection'
- ClientHeight = 120
- ClientWidth = 312
+ ClientHeight = 151
+ ClientWidth = 393
TabOrder = 0
object lblHost: TLabel
AnchorSideLeft.Control = imgHost
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edHost
AnchorSideTop.Side = asrCenter
- Left = 32
- Height = 14
- Top = 11
- Width = 28
- BorderSpacing.Left = 8
+ Left = 36
+ Height = 20
+ Top = 16
+ Width = 34
+ BorderSpacing.Left = 10
Caption = 'Host:'
+ Color = clDefault
+ Font.Height = -14
ParentColor = False
+ ParentFont = False
end
object lblUsername: TLabel
AnchorSideLeft.Control = imgUsername
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edUsername
AnchorSideTop.Side = asrCenter
- Left = 32
- Height = 14
- Top = 49
- Width = 55
- BorderSpacing.Left = 8
+ Left = 36
+ Height = 20
+ Top = 69
+ Width = 73
+ BorderSpacing.Left = 10
Caption = 'Username:'
+ Color = clDefault
ParentColor = False
end
object lblPassword: TLabel
@@ -81,24 +85,25 @@ object frmLogin: TfrmLogin
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edPassword
AnchorSideTop.Side = asrCenter
- Left = 32
- Height = 14
- Top = 86
- Width = 53
- BorderSpacing.Left = 8
+ Left = 36
+ Height = 20
+ Top = 121
+ Width = 68
+ BorderSpacing.Left = 10
Caption = 'Password:'
+ Color = clDefault
ParentColor = False
end
object imgHost: TImage
AnchorSideLeft.Control = gbConnection
AnchorSideTop.Control = lblHost
AnchorSideTop.Side = asrCenter
- Left = 8
+ Left = 10
Height = 16
- Top = 10
+ Top = 18
Width = 16
AutoSize = True
- BorderSpacing.Left = 8
+ BorderSpacing.Left = 10
Picture.Data = {
07545069786D61702E0A00002F2A2058504D202A2F0A73746174696320636861
72202A64756D6D795B5D3D7B0A223136203136203132342032222C0A22517420
@@ -189,9 +194,9 @@ object frmLogin: TfrmLogin
AnchorSideLeft.Control = imgHost
AnchorSideTop.Control = lblUsername
AnchorSideTop.Side = asrCenter
- Left = 8
+ Left = 10
Height = 16
- Top = 48
+ Top = 71
Width = 16
AutoSize = True
Picture.Data = {
@@ -284,9 +289,9 @@ object frmLogin: TfrmLogin
AnchorSideLeft.Control = imgUsername
AnchorSideTop.Control = lblPassword
AnchorSideTop.Side = asrCenter
- Left = 8
+ Left = 10
Height = 16
- Top = 85
+ Top = 123
Width = 16
AutoSize = True
Picture.Data = {
@@ -370,13 +375,13 @@ object frmLogin: TfrmLogin
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbConnection
AnchorSideRight.Control = edPort
- Left = 95
- Height = 21
- Top = 8
- Width = 146
+ Left = 119
+ Height = 32
+ Top = 10
+ Width = 185
Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Left = 8
- BorderSpacing.Top = 8
+ BorderSpacing.Left = 10
+ BorderSpacing.Top = 10
TabOrder = 0
Text = 'localhost'
end
@@ -386,12 +391,12 @@ object frmLogin: TfrmLogin
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edPort
AnchorSideRight.Side = asrBottom
- Left = 95
- Height = 21
- Top = 46
- Width = 209
+ Left = 119
+ Height = 32
+ Top = 63
+ Width = 264
Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Top = 17
+ BorderSpacing.Top = 21
TabOrder = 2
end
object edPassword: TEdit
@@ -400,13 +405,13 @@ object frmLogin: TfrmLogin
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edUsername
AnchorSideRight.Side = asrBottom
- Left = 95
- Height = 21
- Top = 83
- Width = 209
+ Left = 119
+ Height = 32
+ Top = 115
+ Width = 264
Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Top = 16
- BorderSpacing.Bottom = 16
+ BorderSpacing.Top = 20
+ BorderSpacing.Bottom = 20
EchoMode = emPassword
PasswordChar = '*'
TabOrder = 3
@@ -419,13 +424,13 @@ object frmLogin: TfrmLogin
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = edHost
AnchorSideBottom.Side = asrBottom
- Left = 249
- Height = 21
- Top = 8
- Width = 55
+ Left = 314
+ Height = 32
+ Top = 10
+ Width = 69
Anchors = [akTop, akRight, akBottom]
- BorderSpacing.Left = 8
- BorderSpacing.Right = 8
+ BorderSpacing.Left = 10
+ BorderSpacing.Right = 10
MaxValue = 65565
MinValue = 1024
TabOrder = 1
@@ -438,28 +443,28 @@ object frmLogin: TfrmLogin
AnchorSideTop.Control = gbConnection
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
- Left = 332
- Height = 92
- Top = 4
- Width = 143
+ Left = 415
+ Height = 115
+ Top = 5
+ Width = 179
Anchors = [akTop, akRight]
- BorderSpacing.Left = 8
- BorderSpacing.Right = 8
- ClientHeight = 74
- ClientWidth = 139
+ BorderSpacing.Left = 10
+ BorderSpacing.Right = 10
+ ClientHeight = 113
+ ClientWidth = 177
TabOrder = 2
object btnOK: TButton
AnchorSideLeft.Control = gbActions
AnchorSideTop.Control = gbActions
AnchorSideRight.Control = gbActions
AnchorSideRight.Side = asrBottom
- Left = 8
- Height = 25
- Top = 8
- Width = 123
+ Left = 10
+ Height = 31
+ Top = 10
+ Width = 157
Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Around = 8
- BorderSpacing.InnerBorder = 4
+ BorderSpacing.Around = 10
+ BorderSpacing.InnerBorder = 5
Caption = '&OK'
Default = True
OnClick = btnOKClick
@@ -471,13 +476,13 @@ object frmLogin: TfrmLogin
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnOK
AnchorSideRight.Side = asrBottom
- Left = 8
- Height = 25
- Top = 41
- Width = 123
+ Left = 10
+ Height = 31
+ Top = 51
+ Width = 157
Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Bottom = 8
- BorderSpacing.InnerBorder = 4
+ BorderSpacing.Bottom = 10
+ BorderSpacing.InnerBorder = 5
Caption = '&Cancel'
ModalResult = 2
OnClick = btnCancelClick
@@ -490,30 +495,31 @@ object frmLogin: TfrmLogin
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbConnection
AnchorSideRight.Side = asrBottom
- Left = 8
- Height = 95
- Top = 146
- Width = 316
+ Left = 10
+ Height = 119
+ Top = 182
+ Width = 395
Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Top = 4
+ BorderSpacing.Top = 5
Caption = 'Data files'
- ClientHeight = 77
- ClientWidth = 312
+ ClientHeight = 98
+ ClientWidth = 393
TabOrder = 1
object lblData: TLabel
AnchorSideLeft.Control = gbData
AnchorSideTop.Control = gbData
AnchorSideRight.Control = gbData
AnchorSideRight.Side = asrBottom
- Left = 8
- Height = 40
- Top = 4
- Width = 296
+ Left = 10
+ Height = 60
+ Top = 5
+ Width = 373
Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Left = 8
- BorderSpacing.Top = 4
- BorderSpacing.Right = 8
+ BorderSpacing.Left = 10
+ BorderSpacing.Top = 5
+ BorderSpacing.Right = 10
Caption = 'Select the directory containing art.mul, artidx.mul, hues.mul, tiledata.mul, animdata.mul, texmaps.mul, texidx.mul, light.mul and lightidx.mul.'
+ Color = clDefault
ParentColor = False
WordWrap = True
end
@@ -521,16 +527,16 @@ object frmLogin: TfrmLogin
AnchorSideLeft.Control = lblData
AnchorSideTop.Control = lblData
AnchorSideTop.Side = asrBottom
- Left = 8
- Height = 21
- Top = 48
- Width = 272
+ Left = 10
+ Height = 26
+ Top = 70
+ Width = 340
ShowHidden = False
- ButtonWidth = 23
+ ButtonWidth = 29
NumGlyphs = 1
AutoSize = False
- BorderSpacing.Top = 4
- BorderSpacing.Bottom = 8
+ BorderSpacing.Top = 5
+ BorderSpacing.Bottom = 10
MaxLength = 0
TabOrder = 0
end
@@ -541,26 +547,26 @@ object frmLogin: TfrmLogin
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbActions
AnchorSideRight.Side = asrBottom
- Left = 332
- Height = 81
- Top = 104
- Width = 143
+ Left = 415
+ Height = 101
+ Top = 130
+ Width = 179
Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Top = 8
+ BorderSpacing.Top = 10
Caption = 'Profiles'
- ClientHeight = 63
- ClientWidth = 139
+ ClientHeight = 80
+ ClientWidth = 177
TabOrder = 3
object btnSaveProfile: TSpeedButton
AnchorSideTop.Control = btnDeleteProfile
AnchorSideRight.Control = btnDeleteProfile
- Left = 79
- Height = 22
+ Left = 101
+ Height = 28
Hint = 'Save profile'
- Top = 33
- Width = 22
+ Top = 51
+ Width = 28
Anchors = [akTop, akRight]
- BorderSpacing.Right = 8
+ BorderSpacing.Right = 10
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000BA6A36FFB969
@@ -597,7 +603,6 @@ object frmLogin: TfrmLogin
36FFBC6B36FFBC6B36FFBC6B36FFBB6B36FFBB6B36FFBB6A36FFBB6A36FFBC6C
39FFBD6E3BFFBB6D3AFFBB6B38FFBB703EFF0000000000000000
}
- NumGlyphs = 0
OnClick = btnSaveProfileClick
ShowCaption = False
ShowHint = True
@@ -608,14 +613,14 @@ object frmLogin: TfrmLogin
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cbProfile
AnchorSideRight.Side = asrBottom
- Left = 109
- Height = 22
+ Left = 139
+ Height = 28
Hint = 'Delete profile'
- Top = 33
- Width = 22
+ Top = 51
+ Width = 28
Anchors = [akTop, akRight]
- BorderSpacing.Top = 8
- BorderSpacing.Bottom = 8
+ BorderSpacing.Top = 10
+ BorderSpacing.Bottom = 10
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -652,7 +657,6 @@ object frmLogin: TfrmLogin
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
- NumGlyphs = 0
OnClick = btnDeleteProfileClick
ShowCaption = False
ShowHint = True
@@ -663,15 +667,15 @@ object frmLogin: TfrmLogin
AnchorSideTop.Control = gbProfiles
AnchorSideRight.Control = gbProfiles
AnchorSideRight.Side = asrBottom
- Left = 8
- Height = 21
- Top = 4
- Width = 123
+ Left = 10
+ Height = 36
+ Top = 5
+ Width = 157
Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Left = 8
- BorderSpacing.Top = 4
- BorderSpacing.Right = 8
- ItemHeight = 13
+ BorderSpacing.Left = 10
+ BorderSpacing.Top = 5
+ BorderSpacing.Right = 10
+ ItemHeight = 0
OnChange = cbProfileChange
Style = csDropDownList
TabOrder = 0
diff --git a/Client/UfrmMain.lfm b/Client/UfrmMain.lfm
index 96b1d98..ecf1481 100644
--- a/Client/UfrmMain.lfm
+++ b/Client/UfrmMain.lfm
@@ -1,16 +1,16 @@
object frmMain: TfrmMain
Left = 257
- Height = 724
+ Height = 905
Top = 141
- Width = 944
+ Width = 1180
ActiveControl = oglGameWindow
Caption = 'UO CentrED'
- ClientHeight = 724
- ClientWidth = 944
- Constraints.MinHeight = 625
- Constraints.MinWidth = 938
+ ClientHeight = 905
+ ClientWidth = 1180
+ Constraints.MinHeight = 781
+ Constraints.MinWidth = 1172
DesignTimePPI = 120
- Font.Height = -14
+ Font.Height = -18
Menu = MainMenu1
OnActivate = FormActivate
OnClose = FormClose
@@ -22,90 +22,90 @@ object frmMain: TfrmMain
WindowState = wsMaximized
object pnlBottom: TPanel
Left = 0
- Height = 39
- Top = 685
- Width = 944
+ Height = 49
+ Top = 856
+ Width = 1180
Align = alBottom
BevelOuter = bvNone
- ClientHeight = 39
- ClientWidth = 944
+ ClientHeight = 49
+ ClientWidth = 1180
TabOrder = 0
object lblX: TLabel
- Left = 14
- Height = 20
- Top = 9
- Width = 12
+ Left = 18
+ Height = 26
+ Top = 11
+ Width = 16
Caption = 'X:'
Color = clDefault
ParentColor = False
end
object lblY: TLabel
- Left = 110
- Height = 20
- Top = 9
- Width = 12
+ Left = 138
+ Height = 26
+ Top = 11
+ Width = 15
Caption = 'Y:'
Color = clDefault
ParentColor = False
end
object lblTileInfo: TLabel
- Left = 300
- Height = 20
- Top = 9
- Width = 4
+ Left = 375
+ Height = 26
+ Top = 11
+ Width = 5
Caption = ' '
Color = clDefault
ParentColor = False
end
object lblTip: TLabel
- Left = 645
- Height = 39
+ Left = 803
+ Height = 49
Top = 0
- Width = 289
+ Width = 365
Align = alRight
Alignment = taRightJustify
- BorderSpacing.Right = 10
+ BorderSpacing.Right = 12
Caption = 'Right click shows a menu with all the tools.'
Color = clDefault
Layout = tlCenter
ParentColor = False
end
object lblTipC: TLabel
- Left = 616
- Height = 39
+ Left = 767
+ Height = 49
Top = 0
- Width = 29
+ Width = 36
Align = alRight
Caption = 'Tip: '
Color = clDefault
- Font.Height = -14
+ Font.Height = -18
Font.Style = [fsBold]
Layout = tlCenter
ParentColor = False
ParentFont = False
end
object edX: TSpinEdit
- Left = 30
- Height = 30
- Top = 4
- Width = 69
+ Left = 38
+ Height = 36
+ Top = 5
+ Width = 86
MaxValue = 100000
TabOrder = 0
end
object edY: TSpinEdit
- Left = 130
- Height = 30
- Top = 4
- Width = 65
+ Left = 162
+ Height = 36
+ Top = 5
+ Width = 81
MaxValue = 100000
TabOrder = 1
end
object btnGoTo: TButton
- Left = 210
- Height = 29
- Top = 4
- Width = 64
- BorderSpacing.InnerBorder = 5
+ Left = 262
+ Height = 36
+ Top = 5
+ Width = 80
+ BorderSpacing.InnerBorder = 6
Caption = 'GoTo'
OnClick = btnGoToClick
TabOrder = 2
@@ -113,26 +113,26 @@ object frmMain: TfrmMain
end
object pcLeft: TPageControl
Left = 0
- Height = 655
- Top = 30
- Width = 280
+ Height = 818
+ Top = 38
+ Width = 350
ActivePage = tsTiles
Align = alLeft
TabIndex = 0
TabOrder = 1
object tsTiles: TTabSheet
Caption = 'Tiles'
- ClientHeight = 623
- ClientWidth = 270
+ ClientHeight = 780
+ ClientWidth = 340
object lblFilter: TLabel
AnchorSideLeft.Control = cbTerrain
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbTerrain
- Left = 97
- Height = 20
- Top = 10
- Width = 38
- BorderSpacing.Left = 20
+ Left = 114
+ Height = 26
+ Top = 12
+ Width = 47
+ BorderSpacing.Left = 25
Caption = 'Filter:'
Color = clDefault
ParentColor = False
@@ -145,16 +145,16 @@ object frmMain: TfrmMain
AnchorSideRight.Control = tsTiles
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = spTileList
- Left = 5
- Height = 343
+ Left = 6
+ Height = 437
Hint = '-'
- Top = 59
- Width = 260
+ Top = 74
+ Width = 328
Anchors = [akTop, akLeft, akRight, akBottom]
- BorderSpacing.Left = 5
- BorderSpacing.Top = 5
- BorderSpacing.Right = 5
- DefaultNodeHeight = 55
+ BorderSpacing.Left = 6
+ BorderSpacing.Top = 6
+ BorderSpacing.Right = 6
+ DefaultNodeHeight = 69
DragMode = dmAutomatic
DragOperations = []
DragType = dtVCL
@@ -167,15 +167,15 @@ object frmMain: TfrmMain
item
Position = 1
Text = 'Tile'
- Width = 55
+ Width = 69
end
item
Position = 2
Text = 'Name'
- Width = 125
+ Width = 156
end>
- Header.DefaultHeight = 21
- Header.Height = 21
+ Header.DefaultHeight = 26
+ Header.Height = 26
Header.MainColumn = 2
Header.Options = [hoShowHint, hoVisible]
Header.ParentFont = True
@@ -206,23 +206,23 @@ object frmMain: TfrmMain
AnchorSideBottom.Control = tsTiles
AnchorSideBottom.Side = asrBottom
Left = 0
- Height = 215
- Top = 408
- Width = 270
+ Height = 261
+ Top = 519
+ Width = 340
Anchors = [akTop, akLeft, akRight, akBottom]
Caption = 'Random pool'
- ClientHeight = 194
- ClientWidth = 268
+ ClientHeight = 234
+ ClientWidth = 338
TabOrder = 1
object btnAddRandom: TSpeedButton
AnchorSideLeft.Control = gbRandom
AnchorSideTop.Control = gbRandom
- Left = 5
- Height = 28
+ Left = 6
+ Height = 35
Hint = 'Add'
Top = 0
- Width = 29
- BorderSpacing.Left = 5
+ Width = 36
+ BorderSpacing.Left = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -267,12 +267,12 @@ object frmMain: TfrmMain
AnchorSideLeft.Control = btnAddRandom
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnAddRandom
- Left = 39
- Height = 28
+ Left = 48
+ Height = 35
Hint = 'Delete'
Top = 0
- Width = 29
- BorderSpacing.Left = 5
+ Width = 36
+ BorderSpacing.Left = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -317,12 +317,12 @@ object frmMain: TfrmMain
AnchorSideLeft.Control = btnDeleteRandom
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnDeleteRandom
- Left = 73
- Height = 28
+ Left = 90
+ Height = 35
Hint = 'Clear'
Top = 0
- Width = 29
- BorderSpacing.Left = 5
+ Width = 36
+ BorderSpacing.Left = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -366,13 +366,13 @@ object frmMain: TfrmMain
object btnRandomPresetSave: TSpeedButton
AnchorSideTop.Control = cbRandomPreset
AnchorSideRight.Control = btnRandomPresetDelete
- Left = 202
- Height = 28
+ Left = 256
+ Height = 35
Hint = 'Save Preset'
- Top = 153
- Width = 28
+ Top = 186
+ Width = 35
Anchors = [akTop, akRight]
- BorderSpacing.Right = 5
+ BorderSpacing.Right = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -418,13 +418,13 @@ object frmMain: TfrmMain
AnchorSideTop.Control = btnRandomPresetSave
AnchorSideRight.Control = gbRandom
AnchorSideRight.Side = asrBottom
- Left = 235
- Height = 28
+ Left = 297
+ Height = 35
Hint = 'Delete Preset'
- Top = 153
- Width = 28
+ Top = 186
+ Width = 35
Anchors = [akTop, akRight]
- BorderSpacing.Right = 5
+ BorderSpacing.Right = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -475,16 +475,16 @@ object frmMain: TfrmMain
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = cbRandomPreset
Cursor = 63
- Left = 5
- Height = 118
- Top = 30
- Width = 258
+ Left = 6
+ Height = 143
+ Top = 37
+ Width = 326
Anchors = [akTop, akLeft, akRight, akBottom]
- BorderSpacing.Left = 5
+ BorderSpacing.Left = 6
BorderSpacing.Top = 2
- BorderSpacing.Right = 5
- BorderSpacing.Bottom = 5
- DefaultNodeHeight = 55
+ BorderSpacing.Right = 6
+ BorderSpacing.Bottom = 6
+ DefaultNodeHeight = 69
DragType = dtVCL
Header.AutoSizeIndex = 0
Header.Columns = <
@@ -495,15 +495,15 @@ object frmMain: TfrmMain
item
Position = 1
Text = 'Tile'
- Width = 55
+ Width = 69
end
item
Position = 2
Text = 'Name'
- Width = 125
+ Width = 156
end>
- Header.DefaultHeight = 21
- Header.Height = 21
+ Header.DefaultHeight = 26
+ Header.Height = 26
Header.Options = [hoColumnResize, hoDrag, hoVisible]
Header.ParentFont = True
Header.Style = hsFlatButtons
@@ -524,14 +524,14 @@ object frmMain: TfrmMain
AnchorSideRight.Control = btnRandomPresetSave
AnchorSideBottom.Control = gbRandom
AnchorSideBottom.Side = asrBottom
- Left = 5
- Height = 36
- Top = 153
- Width = 192
+ Left = 6
+ Height = 42
+ Top = 186
+ Width = 244
Anchors = [akLeft, akRight, akBottom]
- BorderSpacing.Left = 5
- BorderSpacing.Right = 5
- BorderSpacing.Bottom = 5
+ BorderSpacing.Left = 6
+ BorderSpacing.Right = 6
+ BorderSpacing.Bottom = 6
ItemHeight = 0
OnChange = cbRandomPresetChange
Sorted = True
@@ -545,9 +545,9 @@ object frmMain: TfrmMain
AnchorSideRight.Side = asrBottom
Cursor = crVSplit
Left = 0
- Height = 6
- Top = 402
- Width = 270
+ Height = 8
+ Top = 511
+ Width = 340
Align = alNone
Anchors = [akLeft, akRight, akBottom]
ResizeAnchor = akBottom
@@ -557,14 +557,14 @@ object frmMain: TfrmMain
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = vdtTiles
AnchorSideBottom.Side = asrBottom
- Left = 135
- Height = 32
+ Left = 172
+ Height = 38
Hint = 'Append S or T to restrict the search to Statics or Terrain.'
- Top = 360
- Width = 120
+ Top = 461
+ Width = 150
Anchors = [akRight, akBottom]
- BorderSpacing.Right = 10
- BorderSpacing.Bottom = 10
+ BorderSpacing.Right = 12
+ BorderSpacing.Bottom = 12
CharCase = ecUppercase
OnExit = edSearchIDExit
OnKeyPress = edSearchIDKeyPress
@@ -579,12 +579,12 @@ object frmMain: TfrmMain
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = tsTiles
AnchorSideRight.Side = asrBottom
- Left = 97
- Height = 32
- Top = 30
- Width = 153
+ Left = 114
+ Height = 38
+ Top = 38
+ Width = 201
Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Right = 20
+ BorderSpacing.Right = 25
OnEditingDone = edFilterEditingDone
TabOrder = 4
end
@@ -593,10 +593,10 @@ object frmMain: TfrmMain
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = cbTerrain
AnchorSideTop.Side = asrBottom
- Left = 7
- Height = 22
- Top = 32
- Width = 68
+ Left = 8
+ Height = 28
+ Top = 40
+ Width = 79
Caption = 'Statics'
Checked = True
OnChange = cbStaticsChange
@@ -606,12 +606,12 @@ object frmMain: TfrmMain
object cbTerrain: TCheckBox
AnchorSideLeft.Control = tsTiles
AnchorSideTop.Control = tsTiles
- Left = 5
- Height = 22
- Top = 10
- Width = 72
- BorderSpacing.Left = 5
- BorderSpacing.Top = 10
+ Left = 6
+ Height = 28
+ Top = 12
+ Width = 83
+ BorderSpacing.Left = 6
+ BorderSpacing.Top = 12
Caption = 'Terrain'
Checked = True
OnChange = cbTerrainChange
@@ -621,13 +621,13 @@ object frmMain: TfrmMain
end
object tsClients: TTabSheet
Caption = 'Clients'
- ClientHeight = 623
- ClientWidth = 270
+ ClientHeight = 780
+ ClientWidth = 340
object lbClients: TListBox
Left = 0
- Height = 623
+ Height = 780
Top = 0
- Width = 270
+ Width = 340
Align = alClient
ItemHeight = 0
OnDblClick = mnuGoToClientClick
@@ -640,18 +640,18 @@ object frmMain: TfrmMain
end
object tsLocations: TTabSheet
Caption = 'Locations'
- ClientHeight = 623
- ClientWidth = 270
+ ClientHeight = 780
+ ClientWidth = 340
object btnClearLocations: TSpeedButton
AnchorSideLeft.Control = btnDeleteLocation
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnDeleteLocation
- Left = 155
- Height = 28
+ Left = 194
+ Height = 35
Hint = 'Clear'
- Top = 590
- Width = 29
- BorderSpacing.Left = 5
+ Top = 739
+ Width = 36
+ BorderSpacing.Left = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -697,13 +697,13 @@ object frmMain: TfrmMain
AnchorSideLeft.Side = asrCenter
AnchorSideBottom.Control = tsLocations
AnchorSideBottom.Side = asrBottom
- Left = 121
- Height = 28
+ Left = 152
+ Height = 35
Hint = 'Delete'
- Top = 590
- Width = 29
+ Top = 739
+ Width = 36
Anchors = [akLeft, akBottom]
- BorderSpacing.Bottom = 5
+ BorderSpacing.Bottom = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -747,13 +747,13 @@ object frmMain: TfrmMain
object btnAddLocation: TSpeedButton
AnchorSideTop.Control = btnDeleteLocation
AnchorSideRight.Control = btnDeleteLocation
- Left = 87
- Height = 28
+ Left = 110
+ Height = 35
Hint = 'Add'
- Top = 590
- Width = 29
+ Top = 739
+ Width = 36
Anchors = [akTop, akRight]
- BorderSpacing.Right = 5
+ BorderSpacing.Right = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -801,27 +801,27 @@ object frmMain: TfrmMain
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnDeleteLocation
Cursor = 63
- Left = 5
- Height = 580
- Top = 5
- Width = 260
+ Left = 6
+ Height = 727
+ Top = 6
+ Width = 328
Anchors = [akTop, akLeft, akRight, akBottom]
- BorderSpacing.Around = 5
+ BorderSpacing.Around = 6
DefaultText = 'Node'
Header.AutoSizeIndex = 1
Header.Columns = <
item
Position = 0
Text = 'Coords'
- Width = 94
+ Width = 118
end
item
Position = 1
Text = 'Name'
- Width = 162
+ Width = 206
end>
- Header.DefaultHeight = 21
- Header.Height = 21
+ Header.DefaultHeight = 26
+ Header.Height = 26
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible]
Header.ParentFont = True
Header.Style = hsFlatButtons
@@ -840,9 +840,9 @@ object frmMain: TfrmMain
end
object tbMain: TToolBar
Left = 0
- Height = 30
+ Height = 38
Top = 0
- Width = 944
+ Width = 1180
Caption = 'tbMain'
Images = ImageList1
ParentShowHint = False
@@ -1030,24 +1030,24 @@ object frmMain: TfrmMain
AnchorSideRight.Control = pnlChat
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = spChat
- Left = 280
- Height = 28
- Top = 489
- Width = 664
+ Left = 350
+ Height = 35
+ Top = 611
+ Width = 830
Anchors = [akLeft, akRight, akBottom]
BevelInner = bvRaised
BevelOuter = bvLowered
- ClientHeight = 28
- ClientWidth = 664
+ ClientHeight = 35
+ ClientWidth = 830
TabOrder = 3
object lblChatHeaderCaption: TLabel
Cursor = crHandPoint
- Left = 12
- Height = 24
+ Left = 14
+ Height = 31
Top = 2
- Width = 132
+ Width = 164
Align = alLeft
- BorderSpacing.Left = 10
+ BorderSpacing.Left = 12
Caption = 'Chat and Messages'
Color = clDefault
Layout = tlCenter
@@ -1065,22 +1065,22 @@ object frmMain: TfrmMain
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnlBottom
- Left = 280
- Height = 162
- Top = 523
- Width = 664
+ Left = 350
+ Height = 202
+ Top = 654
+ Width = 830
Anchors = [akTop, akLeft, akRight, akBottom]
BevelOuter = bvNone
- ClientHeight = 162
- ClientWidth = 664
+ ClientHeight = 202
+ ClientWidth = 830
TabOrder = 4
Visible = False
object vstChat: TLazVirtualStringTree
Cursor = 63
Left = 0
- Height = 130
+ Height = 164
Top = 0
- Width = 664
+ Width = 830
Align = alClient
DefaultText = 'Node'
Header.AutoSizeIndex = 2
@@ -1088,20 +1088,20 @@ object frmMain: TfrmMain
item
Position = 0
Text = 'Time'
- Width = 94
+ Width = 118
end
item
Position = 1
Text = 'Sender'
- Width = 94
+ Width = 118
end
item
Position = 2
Text = 'Message'
- Width = 474
+ Width = 592
end>
- Header.DefaultHeight = 21
- Header.Height = 21
+ Header.DefaultHeight = 26
+ Header.Height = 26
Header.MainColumn = 2
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoVisible]
Header.ParentFont = True
@@ -1117,9 +1117,9 @@ object frmMain: TfrmMain
end
object edChat: TEdit
Left = 0
- Height = 32
- Top = 130
- Width = 664
+ Height = 38
+ Top = 164
+ Width = 830
Align = alBottom
OnKeyPress = edChatKeyPress
TabOrder = 1
@@ -1131,10 +1131,10 @@ object frmMain: TfrmMain
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Cursor = crVSplit
- Left = 280
- Height = 6
- Top = 517
- Width = 664
+ Left = 350
+ Height = 8
+ Top = 646
+ Width = 830
Align = alNone
Anchors = [akLeft, akRight, akBottom]
AutoSnap = False
@@ -1149,10 +1149,10 @@ object frmMain: TfrmMain
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnlChatHeader
- Left = 280
- Height = 459
- Top = 30
- Width = 664
+ Left = 350
+ Height = 573
+ Top = 38
+ Width = 830
Anchors = [akTop, akLeft, akRight, akBottom]
OnDblClick = oglGameWindowDblClick
OnKeyDown = oglGameWindowKeyDown
@@ -1167,8 +1167,8 @@ object frmMain: TfrmMain
end
object MainMenu1: TMainMenu
Images = ImageList1
- Left = 290
- Top = 41
+ Left = 363
+ Top = 51
object mnuCentrED: TMenuItem
Caption = '&CentrED'
object mnuChangePassword: TMenuItem
@@ -1249,8 +1249,8 @@ object frmMain: TfrmMain
end
end
object ImageList1: TImageList
- Left = 330
- Top = 40
+ Left = 413
+ Top = 50
Bitmap = {
4C7A170000001000000010000000312A00000000000078DAED9C09588EE9DFF7
FFC632C832CC8CFFCC3CC318A41D95BD7DA710B2B4D0AA22420A49254AFB5E68
@@ -1594,8 +1594,8 @@ object frmMain: TfrmMain
}
end
object pmTileList: TPopupMenu
- Left = 230
- Top = 160
+ Left = 288
+ Top = 200
object mnuAddToRandom: TMenuItem
Caption = 'Add to random pool'
OnClick = btnAddRandomClick
@@ -1604,13 +1604,13 @@ object frmMain: TfrmMain
object ApplicationProperties1: TApplicationProperties
OnIdle = ApplicationProperties1Idle
OnShowHint = ApplicationProperties1ShowHint
- Left = 369
- Top = 41
+ Left = 461
+ Top = 51
end
object pmTools: TPopupMenu
Images = ImageList1
- Left = 410
- Top = 41
+ Left = 513
+ Top = 51
object mnuSelect: TMenuItem
Action = acSelect
GroupIndex = 1
@@ -1660,8 +1660,8 @@ object frmMain: TfrmMain
end
end
object pmClients: TPopupMenu
- Left = 230
- Top = 220
+ Left = 288
+ Top = 275
object mnuGoToClient: TMenuItem
Caption = 'GoTo'
Default = True
@@ -1673,13 +1673,13 @@ object frmMain: TfrmMain
Interval = 500
OnTimer = tmMovementTimer
OnStartTimer = tmMovementTimer
- Left = 290
- Top = 100
+ Left = 363
+ Top = 125
end
object ActionList1: TActionList
Images = ImageList1
- Left = 330
- Top = 100
+ Left = 413
+ Top = 125
object acSelect: TAction
Category = 'Tools'
Caption = 'Select'
@@ -1818,13 +1818,13 @@ object frmMain: TfrmMain
Enabled = False
Interval = 250
OnTimer = tmGrabTileInfoTimer
- Left = 460
- Top = 100
+ Left = 575
+ Top = 125
end
object pmGrabTileInfo: TPopupMenu
OnPopup = pmGrabTileInfoPopup
- Left = 460
- Top = 41
+ Left = 575
+ Top = 51
object mnuGrabTileID: TMenuItem
Caption = 'Grab TileID'
OnClick = mnuGrabTileIDClick
@@ -1836,8 +1836,8 @@ object frmMain: TfrmMain
end
object pmFlatViewSettings: TPopupMenu
OnClose = pmFlatViewSettingsClose
- Left = 460
- Top = 170
+ Left = 575
+ Top = 213
object mnuFlatShowHeight: TMenuItem
AutoCheck = True
Caption = 'Show Height'
@@ -1849,14 +1849,14 @@ object frmMain: TfrmMain
RootNodePath = 'Forms/frmMain'
Active = False
OnRestoreProperties = XMLPropStorage1RestoreProperties
- Left = 460
- Top = 260
+ Left = 575
+ Top = 325
end
object pmViewStaticSettings: TPopupMenu
Images = ImageList1
OnClose = pmFlatViewSettingsClose
- Left = 730
- Top = 41
+ Left = 913
+ Top = 51
object mnuShowWalls: TMenuItem
AutoCheck = True
Caption = 'Walls and Windows'
@@ -1904,13 +1904,13 @@ object frmMain: TfrmMain
Enabled = False
Interval = 25
OnTimer = tmToolbarFixTimer
- Left = 730
- Top = 370
+ Left = 913
+ Top = 463
end
object pmViewTerrainSettings: TPopupMenu
OnClose = pmFlatViewSettingsClose
- Left = 730
- Top = 110
+ Left = 913
+ Top = 138
object mnuShowGrid: TMenuItem
Caption = 'Show Grid'
OnClick = mnuShowGridClick
diff --git a/Client/UfrmRadar.lfm b/Client/UfrmRadar.lfm
index d108a02..e3f44af 100644
--- a/Client/UfrmRadar.lfm
+++ b/Client/UfrmRadar.lfm
@@ -1,59 +1,61 @@
object frmRadarMap: TfrmRadarMap
Left = 290
- Height = 360
+ Height = 450
Top = 171
- Width = 479
+ Width = 599
HorzScrollBar.Page = 478
VertScrollBar.Page = 359
ActiveControl = sbMain
Caption = 'Radar Map (1:8)'
- ClientHeight = 360
- ClientWidth = 479
+ ClientHeight = 450
+ ClientWidth = 599
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnResize = FormResize
Position = poOwnerFormCenter
ShowInTaskBar = stAlways
- LCLVersion = '0.9.29'
object pnlBottom: TPanel
Left = 0
- Height = 21
- Top = 339
- Width = 479
+ Height = 26
+ Top = 424
+ Width = 599
Align = alBottom
BevelOuter = bvNone
- ClientHeight = 21
- ClientWidth = 479
+ ClientHeight = 26
+ ClientWidth = 599
TabOrder = 0
object lblPosition: TLabel
- Left = 8
- Height = 21
+ Left = 10
+ Height = 26
Top = 0
- Width = 41
+ Width = 1
Align = alLeft
- BorderSpacing.Left = 8
+ BorderSpacing.Left = 10
+ Color = clDefault
Layout = tlCenter
ParentColor = False
end
end
object sbMain: TScrollBox
Left = 0
- Height = 339
+ Height = 424
Top = 0
- Width = 479
+ Width = 599
+ HorzScrollBar.Page = 365
+ VertScrollBar.Page = 252
Align = alClient
- ClientHeight = 335
- ClientWidth = 475
+ ClientHeight = 422
+ ClientWidth = 597
TabOrder = 1
object pbRadar: TPaintBox
Left = 0
- Height = 202
+ Height = 252
Top = 0
- Width = 292
+ Width = 365
OnMouseDown = pbRadarMouseDown
- OnMouseMove = pbRadarMouseMove
OnMouseLeave = pbRadarMouseLeave
+ OnMouseMove = pbRadarMouseMove
OnPaint = pbRadarPaint
end
end
diff --git a/Client/UfrmRegionControl.lfm b/Client/UfrmRegionControl.lfm
index 18cb581..d63de46 100644
--- a/Client/UfrmRegionControl.lfm
+++ b/Client/UfrmRegionControl.lfm
@@ -1,21 +1,20 @@
object frmRegionControl: TfrmRegionControl
Left = 247
- Height = 516
+ Height = 645
Top = 139
- Width = 775
+ Width = 1007
ActiveControl = vstRegions
Caption = 'Region Control'
- ClientHeight = 516
- ClientWidth = 775
+ ClientHeight = 645
+ ClientWidth = 1007
DesignTimePPI = 120
- Font.Height = -14
+ Font.Height = -18
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
Position = poOwnerFormCenter
ShowInTaskBar = stAlways
- LCLVersion = '2.3.0.0'
object sbArea: TScrollBox
AnchorSideLeft.Control = vstRegions
AnchorSideLeft.Side = asrBottom
@@ -23,21 +22,21 @@ object frmRegionControl: TfrmRegionControl
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnClose
- Left = 200
- Height = 372
+ Left = 250
+ Height = 582
Top = 0
- Width = 460
- HorzScrollBar.Page = 456
- VertScrollBar.Page = 368
+ Width = 757
+ HorzScrollBar.Page = 164
+ VertScrollBar.Page = 164
Anchors = [akTop, akLeft, akRight, akBottom]
- ClientHeight = 368
- ClientWidth = 456
+ ClientHeight = 580
+ ClientWidth = 755
TabOrder = 0
object pbArea: TPaintBox
Left = 0
- Height = 131
+ Height = 164
Top = 0
- Width = 131
+ Width = 164
OnMouseDown = pbAreaMouseDown
OnMouseMove = pbAreaMouseMove
OnPaint = pbAreaPaint
@@ -48,12 +47,12 @@ object frmRegionControl: TfrmRegionControl
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
- Left = 532
- Height = 31
- Top = 374
- Width = 80
+ Left = 895
+ Height = 39
+ Top = 594
+ Width = 100
Anchors = [akRight, akBottom]
- BorderSpacing.Around = 10
+ BorderSpacing.Around = 12
Caption = 'Close'
OnClick = btnCloseClick
TabOrder = 1
@@ -62,12 +61,12 @@ object frmRegionControl: TfrmRegionControl
AnchorSideRight.Control = btnClose
AnchorSideBottom.Control = btnClose
AnchorSideBottom.Side = asrBottom
- Left = 460
- Height = 31
- Top = 374
- Width = 80
+ Left = 783
+ Height = 39
+ Top = 594
+ Width = 100
Anchors = [akRight, akBottom]
- BorderSpacing.Right = 5
+ BorderSpacing.Right = 6
Caption = 'Save'
Enabled = False
OnClick = btnSaveClick
@@ -78,20 +77,21 @@ object frmRegionControl: TfrmRegionControl
AnchorSideTop.Control = Owner
AnchorSideBottom.Control = btnAddRegion
Left = 0
- Height = 130
+ Height = 203
Top = 0
- Width = 200
+ Width = 250
Anchors = [akTop, akLeft, akBottom]
+ DefaultNodeHeight = 26
DefaultText = 'Node'
Header.AutoSizeIndex = 0
Header.Columns = <
item
Position = 0
Text = 'Regions'
- Width = 200
+ Width = 248
end>
- Header.DefaultHeight = 21
- Header.Height = 36
+ Header.DefaultHeight = 26
+ Header.Height = 45
Header.Options = [hoAutoResize, hoVisible]
Header.ParentFont = True
Header.Style = hsFlatButtons
@@ -107,13 +107,13 @@ object frmRegionControl: TfrmRegionControl
object btnAddRegion: TSpeedButton
AnchorSideLeft.Control = vstRegions
AnchorSideBottom.Control = spRegionsArea
- Left = 5
- Height = 28
+ Left = 6
+ Height = 35
Hint = 'Add region'
- Top = 128
- Width = 28
+ Top = 209
+ Width = 35
Anchors = [akLeft, akBottom]
- BorderSpacing.Around = 5
+ BorderSpacing.Around = 6
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
@@ -159,13 +159,13 @@ object frmRegionControl: TfrmRegionControl
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = btnAddRegion
AnchorSideBottom.Side = asrBottom
- Left = 38
- Height = 28
+ Left = 47
+ Height = 35
Hint = 'Delete region'
- Top = 128
- Width = 28
+ Top = 209
+ Width = 35
Anchors = [akLeft, akBottom]
- BorderSpacing.Left = 5
+ BorderSpacing.Left = 6
Enabled = False
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
@@ -214,19 +214,20 @@ object frmRegionControl: TfrmRegionControl
AnchorSideRight.Control = spRegionsArea
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnDeleteArea
- Left = 5
- Height = 121
- Top = 222
- Width = 152
+ Left = 6
+ Height = 177
+ Top = 284
+ Width = 238
Anchors = [akTop, akLeft, akRight, akBottom]
- BorderSpacing.Left = 5
- BorderSpacing.Right = 5
- BorderSpacing.Bottom = 5
+ BorderSpacing.Left = 6
+ BorderSpacing.Right = 6
+ BorderSpacing.Bottom = 6
+ DefaultNodeHeight = 26
DefaultText = 'Node'
Header.AutoSizeIndex = 0
Header.Columns = <>
- Header.DefaultHeight = 21
- Header.Height = 29
+ Header.DefaultHeight = 26
+ Header.Height = 36
Header.MainColumn = -1
Header.Options = [hoColumnResize, hoDrag]
TabOrder = 4
@@ -241,13 +242,13 @@ object frmRegionControl: TfrmRegionControl
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = spRegionsArea
AnchorSideRight.Side = asrBottom
- Left = 5
- Height = 13
- Top = 206
- Width = 152
+ Left = 6
+ Height = 26
+ Top = 258
+ Width = 238
Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Left = 5
- BorderSpacing.Right = 5
+ BorderSpacing.Left = 6
+ BorderSpacing.Right = 6
Caption = 'Area:'
Color = clDefault
ParentColor = False
@@ -258,9 +259,9 @@ object frmRegionControl: TfrmRegionControl
AnchorSideRight.Side = asrBottom
Cursor = crVSplit
Left = 0
- Height = 6
- Top = 200
- Width = 160
+ Height = 8
+ Top = 250
+ Width = 250
Align = alNone
Anchors = [akTop, akLeft, akRight]
AutoSnap = False
@@ -269,11 +270,11 @@ object frmRegionControl: TfrmRegionControl
object btnAddArea: TSpeedButton
AnchorSideTop.Control = btnDeleteArea
AnchorSideRight.Control = btnDeleteArea
- Left = 37
- Height = 28
+ Left = 67
+ Height = 35
Hint = 'Add area'
- Top = 379
- Width = 28
+ Top = 467
+ Width = 35
Anchors = [akTop, akRight]
Enabled = False
Glyph.Data = {
@@ -320,14 +321,14 @@ object frmRegionControl: TfrmRegionControl
AnchorSideLeft.Control = vstArea
AnchorSideLeft.Side = asrCenter
AnchorSideBottom.Control = seX1
- Left = 86
- Height = 28
+ Left = 108
+ Height = 35
Hint = 'Delete area'
- Top = 297
- Width = 28
+ Top = 467
+ Width = 35
Anchors = [akLeft, akBottom]
- BorderSpacing.Bottom = 5
- BorderSpacing.Around = 5
+ BorderSpacing.Bottom = 6
+ BorderSpacing.Around = 6
Enabled = False
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
@@ -373,11 +374,11 @@ object frmRegionControl: TfrmRegionControl
AnchorSideLeft.Control = btnDeleteArea
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnDeleteArea
- Left = 119
- Height = 28
+ Left = 149
+ Height = 35
Hint = 'Delete all areas'
- Top = 379
- Width = 28
+ Top = 467
+ Width = 35
Enabled = False
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
@@ -423,11 +424,11 @@ object frmRegionControl: TfrmRegionControl
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = seX1
AnchorSideTop.Side = asrCenter
- Left = 5
- Height = 13
- Top = 421
- Width = 6
- BorderSpacing.Left = 5
+ Left = 6
+ Height = 26
+ Top = 519
+ Width = 11
+ BorderSpacing.Left = 6
Caption = 'X'
Color = clDefault
Enabled = False
@@ -435,13 +436,15 @@ object frmRegionControl: TfrmRegionControl
end
object seX1: TSpinEdit
AnchorSideLeft.Control = seY1
+ AnchorSideRight.Control = seY1
+ AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = seY1
- Left = 21
- Height = 21
- Top = 333
- Width = 62
- Anchors = [akLeft, akBottom]
- BorderSpacing.Bottom = 10
+ Left = 28
+ Height = 36
+ Top = 514
+ Width = 76
+ Anchors = [akLeft, akRight, akBottom]
+ BorderSpacing.Bottom = 12
Enabled = False
OnChange = seX1Change
TabOrder = 6
@@ -451,11 +454,11 @@ object frmRegionControl: TfrmRegionControl
AnchorSideLeft.Control = seX1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = seX1
- Left = 94
- Height = 21
- Top = 416
- Width = 62
- BorderSpacing.Left = 10
+ Left = 116
+ Height = 36
+ Top = 514
+ Width = 76
+ BorderSpacing.Left = 12
Enabled = False
OnChange = seX1Change
TabOrder = 7
@@ -465,10 +468,10 @@ object frmRegionControl: TfrmRegionControl
AnchorSideLeft.Control = lblX
AnchorSideTop.Control = seY1
AnchorSideTop.Side = asrCenter
- Left = 5
- Height = 13
- Top = 458
- Width = 5
+ Left = 6
+ Height = 26
+ Top = 567
+ Width = 10
Caption = 'Y'
Color = clDefault
Enabled = False
@@ -480,16 +483,16 @@ object frmRegionControl: TfrmRegionControl
AnchorSideRight.Control = seX1
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = btnGrab1
- Left = 21
- Height = 21
- Top = 362
- Width = 53
- Anchors = [akLeft, akRight, akBottom]
- BorderSpacing.Left = 10
+ Left = 28
+ Height = 36
+ Top = 562
+ Width = 76
+ Anchors = [akLeft, akBottom]
+ BorderSpacing.Left = 12
Enabled = False
OnChange = seX1Change
TabOrder = 8
- Value = 1
+ Value = 2
end
object seY2: TSpinEdit
AnchorSideLeft.Control = seX2
@@ -497,12 +500,12 @@ object frmRegionControl: TfrmRegionControl
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = seX2
AnchorSideRight.Side = asrBottom
- Left = 94
- Height = 21
- Top = 452
- Width = 50
+ Left = 116
+ Height = 36
+ Top = 562
+ Width = 76
Anchors = [akTop, akLeft, akRight]
- BorderSpacing.Top = 10
+ BorderSpacing.Top = 12
Enabled = False
OnChange = seX1Change
TabOrder = 9
@@ -513,13 +516,13 @@ object frmRegionControl: TfrmRegionControl
AnchorSideLeft.Side = asrCenter
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
- Left = 40
- Height = 28
+ Left = 49
+ Height = 35
Hint = 'Grab coordinates from the main window.'
- Top = 381
- Width = 28
+ Top = 604
+ Width = 35
Anchors = [akLeft, akBottom]
- BorderSpacing.Around = 5
+ BorderSpacing.Around = 6
Enabled = False
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
@@ -566,11 +569,11 @@ object frmRegionControl: TfrmRegionControl
AnchorSideLeft.Side = asrCenter
AnchorSideBottom.Control = btnGrab1
AnchorSideBottom.Side = asrBottom
- Left = 111
- Height = 28
+ Left = 137
+ Height = 35
Hint = 'Grab coordinates from the main window.'
- Top = 381
- Width = 28
+ Top = 604
+ Width = 35
Anchors = [akLeft, akBottom]
Enabled = False
Glyph.Data = {
@@ -614,8 +617,8 @@ object frmRegionControl: TfrmRegionControl
ParentShowHint = False
end
object pmRegions: TPopupMenu
- Left = 60
- Top = 54
+ Left = 75
+ Top = 68
object mnuAddRegion: TMenuItem
Caption = 'Add'
OnClick = mnuAddRegionClick