From 37de08ec82401f6a958c9ffcf2deb6dc22b92b14 Mon Sep 17 00:00:00 2001
From: Uladzimir Karpenka <i@vladimir.cc>
Date: Tue, 28 Apr 2026 22:13:25 +0300
Subject: [PATCH] Align top VFO frequency displays

---
 MainForm.pas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/MainForm.pas b/MainForm.pas
index ba64f06..26e322f 100644
--- a/MainForm.pas
+++ b/MainForm.pas
@@ -1807,6 +1807,7 @@ const
 var
   BlockH: Integer;
   BtnY: Integer;
+  FreqTop: Integer;
   SafeLeft: Integer;
   SafeRight: Integer;
   GroupLeft: Integer;
@@ -1869,8 +1870,11 @@ begin
   PanelTopVfoGroup.SetBounds(GroupLeft, GroupTop, GroupW, BlockH);
   PanelTopVfoA.SetBounds(0, 0, TopVfoAW, BlockH);
   PanelVfoA.SetBounds(0, 0, TopVfoAW, TOP_VFO_FREQ_H);
+  FreqTop := ((BtnTopVfoASelect.Top + BtnTopVfoASelect.Height +
+    BtnTopVfoATX.Top) div 2) - (TOP_VFO_FREQ_H div 2);
   FreqDispA.SetBounds(FreqDispA.Left, FreqDispA.Top,
     FreqTextW + VFO_FREQ_PAD * 2, TOP_VFO_FREQ_H);
+  FreqDispA.Top := FreqTop;
   BtnTopVfoASelect.Left := 0;
   BtnTopVfoATX.Left := 0;
 
@@ -1887,8 +1891,11 @@ begin
     TRANSFER_RIGHT_GAP,
     0, TopVfoBW, BlockH);
   PanelVfoB.SetBounds(0, 0, TopVfoBW, TOP_VFO_FREQ_H);
+  FreqTop := ((BtnTopVfoBSelect.Top + BtnTopVfoBSelect.Height +
+    BtnTopVfoBTX.Top) div 2) - (TOP_VFO_FREQ_H div 2);
   FreqDispB.SetBounds(FreqDispB.Left, FreqDispB.Top,
     FreqTextW + VFO_FREQ_PAD * 2, TOP_VFO_FREQ_H);
+  FreqDispB.Top := FreqTop;
   BtnTopVfoBSelect.Left := 0;
   BtnTopVfoBTX.Left := 0;
   PanelTopVfoGroup.BringToFront;