💄 Enable UI scaling

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

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

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

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

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

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

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

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

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