🚧 Implement actions as objects

Client/UfrmMain.lfm

@@ -1,11 +1,11 @@
 object frmMain: TfrmMain
-  Left = 283
+  Left = 87
   Height = 961
-  Top = 179
+  Top = 70
   Width = 1180
   ActiveControl = oglGameWindow
   Caption = 'UO CentrED'
-  ClientHeight = 928
+  ClientHeight = 961
   ClientWidth = 1180
   Constraints.MinHeight = 781
   Constraints.MinWidth = 1172
@@ -19,12 +19,11 @@ object frmMain: TfrmMain
   Position = poScreenCenter
   SessionProperties = 'acFlat.Checked;acNoDraw.Checked;Height;Left;mnuFlatShowHeight.Checked;mnuSecurityQuestion.Checked;mnuShowAnimations.Checked;spTileList.Top;tbStatics.Down;tbTerrain.Down;Top;Width;WindowState;mnuWhiteBackground.Checked'
   ShowInTaskBar = stAlways
-  LCLVersion = '2.2.3.0'
   WindowState = wsMaximized
   object pnlBottom: TPanel
     Left = 0
     Height = 49
-    Top = 879
+    Top = 912
     Width = 1180
     Align = alBottom
     BevelOuter = bvNone
@@ -119,7 +118,7 @@ object frmMain: TfrmMain
   end
   object pcLeft: TPageControl
     Left = 0
-    Height = 841
+    Height = 874
     Top = 38
     Width = 350
     ActivePage = tsTiles
@@ -128,7 +127,7 @@ object frmMain: TfrmMain
     TabOrder = 1
     object tsTiles: TTabSheet
       Caption = 'Tiles'
-      ClientHeight = 803
+      ClientHeight = 836
       ClientWidth = 340
       object lblFilter: TLabel
         AnchorSideLeft.Control = cbTerrain
@@ -153,7 +152,7 @@ object frmMain: TfrmMain
         AnchorSideRight.Side = asrBottom
         AnchorSideBottom.Control = spTileList
         Left = 6
-        Height = 460
+        Height = 493
         Hint = '-'
         Top = 74
         Width = 328
@@ -214,7 +213,7 @@ object frmMain: TfrmMain
         AnchorSideBottom.Side = asrBottom
         Left = 0
         Height = 261
-        Top = 542
+        Top = 575
         Width = 340
         Anchors = [akTop, akLeft, akRight, akBottom]
         Caption = 'Random pool'
@@ -553,7 +552,7 @@ object frmMain: TfrmMain
         Cursor = crVSplit
         Left = 0
         Height = 8
-        Top = 534
+        Top = 567
         Width = 340
         Align = alNone
         Anchors = [akLeft, akRight, akBottom]
@@ -567,7 +566,7 @@ object frmMain: TfrmMain
         Left = 172
         Height = 38
         Hint = 'Append S or T to restrict the search to Statics or Terrain.'
-        Top = 484
+        Top = 517
         Width = 150
         Anchors = [akRight, akBottom]
         BorderSpacing.Right = 12
@@ -628,11 +627,11 @@ object frmMain: TfrmMain
     end
     object tsClients: TTabSheet
       Caption = 'Clients'
-      ClientHeight = 803
+      ClientHeight = 836
       ClientWidth = 340
       object lbClients: TListBox
         Left = 0
-        Height = 803
+        Height = 836
         Top = 0
         Width = 340
         Align = alClient
@@ -647,7 +646,7 @@ object frmMain: TfrmMain
     end
     object tsLocations: TTabSheet
       Caption = 'Locations'
-      ClientHeight = 803
+      ClientHeight = 836
       ClientWidth = 340
       object btnClearLocations: TSpeedButton
         AnchorSideLeft.Control = btnDeleteLocation
@@ -656,7 +655,7 @@ object frmMain: TfrmMain
         Left = 194
         Height = 35
         Hint = 'Clear'
-        Top = 762
+        Top = 795
         Width = 36
         BorderSpacing.Left = 6
         Glyph.Data = {
@@ -707,7 +706,7 @@ object frmMain: TfrmMain
         Left = 152
         Height = 35
         Hint = 'Delete'
-        Top = 762
+        Top = 795
         Width = 36
         Anchors = [akLeft, akBottom]
         BorderSpacing.Bottom = 6
@@ -757,7 +756,7 @@ object frmMain: TfrmMain
         Left = 110
         Height = 35
         Hint = 'Add'
-        Top = 762
+        Top = 795
         Width = 36
         Anchors = [akTop, akRight]
         BorderSpacing.Right = 6
@@ -809,7 +808,7 @@ object frmMain: TfrmMain
         AnchorSideBottom.Control = btnDeleteLocation
         Cursor = 63
         Left = 6
-        Height = 750
+        Height = 783
         Top = 6
         Width = 328
         Anchors = [akTop, akLeft, akRight, akBottom]
@@ -1039,7 +1038,7 @@ object frmMain: TfrmMain
     AnchorSideBottom.Control = spChat
     Left = 350
     Height = 35
-    Top = 634
+    Top = 667
     Width = 830
     Anchors = [akLeft, akRight, akBottom]
     BevelInner = bvRaised
@@ -1075,7 +1074,7 @@ object frmMain: TfrmMain
     AnchorSideBottom.Control = pnlBottom
     Left = 350
     Height = 202
-    Top = 677
+    Top = 710
     Width = 830
     Anchors = [akTop, akLeft, akRight, akBottom]
     BevelOuter = bvNone
@@ -1141,7 +1140,7 @@ object frmMain: TfrmMain
     Cursor = crVSplit
     Left = 350
     Height = 8
-    Top = 669
+    Top = 702
     Width = 830
     Align = alNone
     Anchors = [akLeft, akRight, akBottom]
@@ -1158,7 +1157,7 @@ object frmMain: TfrmMain
     AnchorSideRight.Side = asrBottom
     AnchorSideBottom.Control = pnlChatHeader
     Left = 350
-    Height = 596
+    Height = 629
     Top = 38
     Width = 830
     Anchors = [akTop, akLeft, akRight, akBottom]