feat: re-enable clickable "Analyze query" label on host > processes

ansgarbecker · ansgarbecker · commit 678c7b8a3703 · 2026-02-16T13:11:25.000+01:00
diff --git a/source/main.lfm b/source/main.lfm
@@ -1344,30 +1344,48 @@ object MainForm: TMainForm
                 ClientWidth = 607
                 TabOrder = 0
                 object pnlProcessView: TPanel
+                  AnchorSideRight.Side = asrBottom
                   Left = 0
-                  Height = 14
+                  Height = 25
                   Top = 0
                   Width = 607
                   Align = alTop
-                  ClientHeight = 14
+                  Alignment = taLeftJustify
+                  AutoSize = True
+                  BevelOuter = bvNone
+                  Caption = 'Process SQL:'
+                  ClientHeight = 25
                   ClientWidth = 607
                   TabOrder = 0
                   object lblExplainProcess: TLabel
+                    AnchorSideLeft.Control = pnlProcessView
+                    AnchorSideTop.Control = pnlProcessView
+                    AnchorSideRight.Control = pnlProcessView
+                    AnchorSideRight.Side = asrBottom
                     Cursor = crHandPoint
-                    Left = 1
-                    Height = 12
-                    Top = 1
+                    Left = 506
+                    Height = 15
+                    Top = 5
                     Width = 96
-                    Align = alLeft
+                    Anchors = [akTop, akRight]
+                    BorderSpacing.Around = 5
                     Caption = 'Analyze this query'
+                    OnClick = lblExplainProcessClick
                   end
                 end
                 inline SynMemoProcessView: TSynEdit
+                  AnchorSideLeft.Control = pnlProcessViewBox
+                  AnchorSideTop.Control = pnlProcessView
+                  AnchorSideTop.Side = asrBottom
+                  AnchorSideRight.Control = pnlProcessViewBox
+                  AnchorSideRight.Side = asrBottom
+                  AnchorSideBottom.Control = pnlProcessViewBox
+                  AnchorSideBottom.Side = asrBottom
                   Left = 0
-                  Height = 41
-                  Top = 14
+                  Height = 30
+                  Top = 25
                   Width = 607
-                  Align = alClient
+                  Anchors = [akTop, akLeft, akRight, akBottom]
                   Font.Height = -10
                   Font.Name = 'Courier New'
                   Font.Pitch = fpFixed
@@ -1822,14 +1840,14 @@ object MainForm: TMainForm
                 Cursor = crVSplit
                 Left = 0
                 Height = 5
-                Top = 111
+                Top = 116
                 Width = 607
                 Align = alBottom
                 ResizeAnchor = akBottom
               end
               object ListProcesses: TLazVirtualStringTree
                 Left = 0
-                Height = 111
+                Height = 116
                 Top = 0
                 Width = 607
                 Align = alClient
