From 3fbde19b9f9d3b0e11ab57d52bac4dc38a6dc7b0 Mon Sep 17 00:00:00 2001
From: Uladzimir Karpenka <i@vladimir.cc>
Date: Thu, 2 Jul 2026 12:02:23 +0300
Subject: [PATCH] fix(slices): align all VFO flags to same top (Top=35)
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Slice flags (B+) were staggered by i*12 which barely helped with the
96px-tall card and looked untidy. Put every flag — main A and slices —
on one row. Overlap of near-frequency flags to be handled next (leader
lines).

Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
---
 MainForm.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/MainForm.pas b/MainForm.pas
index 93da27e..e0eb0bd 100644
--- a/MainForm.pas
+++ b/MainForm.pas
@@ -5187,7 +5187,7 @@ begin
   if NewLeft + OW > PbSpectrum.Width - 4 then
     NewLeft := FilterStartX - 6 - OW;
   NewLeft := Max(4, Min(PbSpectrum.Width - OW - 4, NewLeft));
-  NewTop := 16;
+  NewTop := 35;
   if (FVfoOverlay.Left <> NewLeft) or (FVfoOverlay.Top <> NewTop) then
   begin
     FVfoOverlay.Left := NewLeft;
@@ -5532,7 +5532,7 @@ begin
     NewLeft := FilterEndX + 6;
     if NewLeft + OW > PbSpectrum.Width - 4 then NewLeft := FilterStartX - 6 - OW;
     NewLeft := Max(4, Min(PbSpectrum.Width - OW - 4, NewLeft));
-    NewTop := 16 + i * 12;   // лёгкий вертикальный разнос, чтобы флаги не слипались
+    NewTop := 35;            // все флаги на одном уровне
     if (O.Left <> NewLeft) or (O.Top <> NewTop) then
     begin
       O.Left := NewLeft;