✨ Load and list UOA designs

Client/UfrmMain.lfm

@@ -1,12 +1,12 @@
 object frmMain: TfrmMain
   Left = 87
-  Height = 961
+  Height = 781
   Top = 70
-  Width = 1180
+  Width = 1172
   ActiveControl = oglGameWindow
   Caption = 'UO CentrED'
-  ClientHeight = 961
-  ClientWidth = 1180
+  ClientHeight = 781
+  ClientWidth = 1172
   Constraints.MinHeight = 781
   Constraints.MinWidth = 1172
   DesignTimePPI = 120
@@ -23,12 +23,12 @@ object frmMain: TfrmMain
   object pnlBottom: TPanel
     Left = 0
     Height = 49
-    Top = 912
-    Width = 1180
+    Top = 732
+    Width = 1172
     Align = alBottom
     BevelOuter = bvNone
     ClientHeight = 49
-    ClientWidth = 1180
+    ClientWidth = 1172
     TabOrder = 0
     object lblX: TLabel
       Left = 18
@@ -61,7 +61,7 @@ object frmMain: TfrmMain
       Transparent = False
     end
     object lblTip: TLabel
-      Left = 803
+      Left = 795
       Height = 49
       Top = 0
       Width = 365
@@ -75,7 +75,7 @@ object frmMain: TfrmMain
       Transparent = False
     end
     object lblTipC: TLabel
-      Left = 767
+      Left = 759
       Height = 49
       Top = 0
       Width = 36
@@ -118,16 +118,16 @@ object frmMain: TfrmMain
   end
   object pcLeft: TPageControl
     Left = 0
-    Height = 874
+    Height = 694
     Top = 38
     Width = 350
-    ActivePage = tsTiles
+    ActivePage = tsUoaDesigns
     Align = alLeft
-    TabIndex = 0
+    TabIndex = 3
     TabOrder = 1
     object tsTiles: TTabSheet
       Caption = 'Tiles'
-      ClientHeight = 836
+      ClientHeight = 656
       ClientWidth = 340
       object lblFilter: TLabel
         AnchorSideLeft.Control = cbTerrain
@@ -152,7 +152,7 @@ object frmMain: TfrmMain
         AnchorSideRight.Side = asrBottom
         AnchorSideBottom.Control = spTileList
         Left = 6
-        Height = 493
+        Height = 313
         Hint = '-'
         Top = 74
         Width = 328
@@ -213,7 +213,7 @@ object frmMain: TfrmMain
         AnchorSideBottom.Side = asrBottom
         Left = 0
         Height = 261
-        Top = 575
+        Top = 395
         Width = 340
         Anchors = [akTop, akLeft, akRight, akBottom]
         Caption = 'Random pool'
@@ -552,7 +552,7 @@ object frmMain: TfrmMain
         Cursor = crVSplit
         Left = 0
         Height = 8
-        Top = 567
+        Top = 387
         Width = 340
         Align = alNone
         Anchors = [akLeft, akRight, akBottom]
@@ -566,7 +566,7 @@ object frmMain: TfrmMain
         Left = 172
         Height = 38
         Hint = 'Append S or T to restrict the search to Statics or Terrain.'
-        Top = 517
+        Top = 337
         Width = 150
         Anchors = [akRight, akBottom]
         BorderSpacing.Right = 12
@@ -627,11 +627,11 @@ object frmMain: TfrmMain
     end
     object tsClients: TTabSheet
       Caption = 'Clients'
-      ClientHeight = 836
+      ClientHeight = 656
       ClientWidth = 340
       object lbClients: TListBox
         Left = 0
-        Height = 836
+        Height = 656
         Top = 0
         Width = 340
         Align = alClient
@@ -646,7 +646,7 @@ object frmMain: TfrmMain
     end
     object tsLocations: TTabSheet
       Caption = 'Locations'
-      ClientHeight = 836
+      ClientHeight = 656
       ClientWidth = 340
       object btnClearLocations: TSpeedButton
         AnchorSideLeft.Control = btnDeleteLocation
@@ -655,7 +655,7 @@ object frmMain: TfrmMain
         Left = 194
         Height = 35
         Hint = 'Clear'
-        Top = 795
+        Top = 615
         Width = 36
         BorderSpacing.Left = 6
         Glyph.Data = {
@@ -706,7 +706,7 @@ object frmMain: TfrmMain
         Left = 152
         Height = 35
         Hint = 'Delete'
-        Top = 795
+        Top = 615
         Width = 36
         Anchors = [akLeft, akBottom]
         BorderSpacing.Bottom = 6
@@ -756,7 +756,7 @@ object frmMain: TfrmMain
         Left = 110
         Height = 35
         Hint = 'Add'
-        Top = 795
+        Top = 615
         Width = 36
         Anchors = [akTop, akRight]
         BorderSpacing.Right = 6
@@ -808,7 +808,7 @@ object frmMain: TfrmMain
         AnchorSideBottom.Control = btnDeleteLocation
         Cursor = 63
         Left = 6
-        Height = 783
+        Height = 603
         Top = 6
         Width = 328
         Anchors = [akTop, akLeft, akRight, akBottom]
@@ -824,7 +824,7 @@ object frmMain: TfrmMain
           item
             Position = 1
             Text = 'Name'
-            Width = 206
+            Width = 208
           end>
         Header.DefaultHeight = 26
         Header.Height = 26
@@ -843,12 +843,46 @@ object frmMain: TfrmMain
         OnSaveNode = vstLocationsSaveNode
       end
     end
+    object tsUoaDesigns: TTabSheet
+      Caption = 'UOA Designs'
+      ClientHeight = 656
+      ClientWidth = 340
+      object vstUoaDesigns: TLazVirtualStringTree
+        Cursor = 63
+        Left = 8
+        Height = 640
+        Top = 8
+        Width = 324
+        Align = alClient
+        BorderSpacing.Around = 8
+        DefaultNodeHeight = 26
+        DefaultText = 'Node'
+        Header.AutoSizeIndex = 0
+        Header.Columns = <        
+          item
+            Position = 0
+            Text = 'Name'
+            Width = 200
+          end        
+          item
+            Position = 1
+            Text = 'Category'
+            Width = 100
+          end>
+        Header.Options = [hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
+        TabOrder = 0
+        TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
+        TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
+        TreeOptions.SelectionOptions = [toFullRowSelect]
+        OnGetText = vstUoaDesignsGetText
+      end
+    end
   end
   object tbMain: TToolBar
     Left = 0
     Height = 38
     Top = 0
-    Width = 1180
+    Width = 1172
     Caption = 'tbMain'
     Images = ImageList1
     ParentShowHint = False
@@ -1038,13 +1072,13 @@ object frmMain: TfrmMain
     AnchorSideBottom.Control = spChat
     Left = 350
     Height = 35
-    Top = 667
-    Width = 830
+    Top = 487
+    Width = 822
     Anchors = [akLeft, akRight, akBottom]
     BevelInner = bvRaised
     BevelOuter = bvLowered
     ClientHeight = 35
-    ClientWidth = 830
+    ClientWidth = 822
     TabOrder = 3
     object lblChatHeaderCaption: TLabel
       Cursor = crHandPoint
@@ -1074,12 +1108,12 @@ object frmMain: TfrmMain
     AnchorSideBottom.Control = pnlBottom
     Left = 350
     Height = 202
-    Top = 710
-    Width = 830
+    Top = 530
+    Width = 822
     Anchors = [akTop, akLeft, akRight, akBottom]
     BevelOuter = bvNone
     ClientHeight = 202
-    ClientWidth = 830
+    ClientWidth = 822
     TabOrder = 4
     Visible = False
     object vstChat: TLazVirtualStringTree
@@ -1087,7 +1121,7 @@ object frmMain: TfrmMain
       Left = 0
       Height = 164
       Top = 0
-      Width = 830
+      Width = 822
       Align = alClient
       DefaultText = 'Node'
       Header.AutoSizeIndex = 2
@@ -1105,7 +1139,7 @@ object frmMain: TfrmMain
         item
           Position = 2
           Text = 'Message'
-          Width = 592
+          Width = 584
         end>
       Header.DefaultHeight = 26
       Header.Height = 26
@@ -1126,7 +1160,7 @@ object frmMain: TfrmMain
       Left = 0
       Height = 38
       Top = 164
-      Width = 830
+      Width = 822
       Align = alBottom
       OnKeyPress = edChatKeyPress
       TabOrder = 1
@@ -1140,8 +1174,8 @@ object frmMain: TfrmMain
     Cursor = crVSplit
     Left = 350
     Height = 8
-    Top = 702
-    Width = 830
+    Top = 522
+    Width = 822
     Align = alNone
     Anchors = [akLeft, akRight, akBottom]
     AutoSnap = False
@@ -1157,9 +1191,9 @@ object frmMain: TfrmMain
     AnchorSideRight.Side = asrBottom
     AnchorSideBottom.Control = pnlChatHeader
     Left = 350
-    Height = 629
+    Height = 449
     Top = 38
-    Width = 830
+    Width = 822
     Anchors = [akTop, akLeft, akRight, akBottom]
     OnDblClick = oglGameWindowDblClick
     OnKeyDown = oglGameWindowKeyDown