Phase 3 (batch 13): route active-VFO switch through controller command

- TRadioController.SetActiveVfo(Idx): switches the active RX VFO and retunes
  the receiver to its frequency. CTUN handling preserved: if the new VFO's
  freq is visible in the current window, only the demodulator shift changes
  (DDC/network untouched); otherwise CTUN is dropped and the window centers
  on the freq. HF band-detect + network push as before. Fires
  Changed(rfActiveVfo) (+ rfBand / rfCTun when those change).
- OnControllerState(rfActiveVfo): UpdateVfoDisplay (freq displays + RX/TX
  button highlights) and a full spectrum/waterfall/ruler redraw.

MainForm.ActivateVfo is now a thin delegate; all callers (VFO select/TX
buttons, freq-display clicks, web ActivateVfo) go through it unchanged.
Band-detect keeps the historical no-drive-recalc behavior. Builds clean.

Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>

MainForm.pas

@@ -1410,6 +1410,17 @@ begin
             if PbWaterfall <> nil then PbWaterfall.Invalidate;
           end;
         end;
+      rfActiveVfo:
+        begin
+          UpdateVfoDisplay;   // дисплеи A/B + подсветка RX/TX-кнопок
+          FSpecView.InvalidateRulerCache;
+          SyncSpecViewFreq;
+          FSpecView.DrawSpectrum;
+          PbSpectrum.Invalidate;
+          FSpecView.DrawWaterfall;
+          PbWaterfall.Invalidate;
+          if PbRuler <> nil then PbRuler.Invalidate;
+        end;
       rfVfoB:
         begin
           FreqDispB.Frequency := Round(FController.FVfoB);
@@ -4358,80 +4369,10 @@ end;
 // Перестройка на частоту выбранного VFO. CTUN не трогаем.
 // ---------------------------------------------------------------------------
 procedure TMainForm.ActivateVfo(Idx: Integer);
-var
-  ActiveFreq: Int64;
-  NewBand:    Integer;
-  Offset:     Double;
-  HalfSpan:   Double;
-  FreqVisible: Boolean;
 begin
-  FController.FActiveVfo := Idx;
-
-  // Частота нового активного VFO
-  if FController.FActiveVfo = 0 then
-    ActiveFreq := Round(FController.FVfoA)
-  else
-    ActiveFreq := Round(FController.FVfoB);
-
-  // Обновляем визуальный дисплей
-  UpdateVfoDisplay;
-
-  if FController.FCTun then
-  begin
-    // CTUN включён: проверяем, видна ли новая частота на текущем спектре
-    HalfSpan   := FController.FSpanHz / 2;
-    Offset     := ActiveFreq - FController.FCenterFreq;
-    FreqVisible := (Offset > -HalfSpan) and (Offset < HalfSpan);
-
-    if FreqVisible then
-    begin
-      // Частота видна в окне — просто меняем shift, DDC не трогаем
-      if FController.FWDSPReady then FController.FDSPEngine.SetShift(Offset);
-      // Сеть не трогаем — DDC (FController.FCenterFreq) остаётся прежним
-    end
-    else
-    begin
-      // Частота за пределами спектра — центрируем окно и сбрасываем CTUN
-      FController.FCTun := False;
-      StyleButton(BtnCTun, False);
-      FController.FBandCache[FController.FCurrentBand].CTun := False;
-      FController.FCenterFreq := ActiveFreq;
-      if FController.FWDSPReady then FController.FDSPEngine.SetShift(0.0);
-      if FController.FNetwork.Connected and FController.FNetwork.Running then
-      begin
-        FController.FNetwork.UpdateState(XvtrTranslate(FController.FCenterFreq), XvtrTranslate(ActiveTXFreqHz), FController.FDriveLevel, FController.FTransmitting, True, True);
-        FController.FNetwork.SendFullHP;
-      end;
-    end;
-  end
-  else
-  begin
-    // CTUN выключен: перестраиваем DDC на новую частоту
-    FController.FCenterFreq := ActiveFreq;
-    if FController.FWDSPReady then FController.FDSPEngine.SetShift(0.0);
-    if FController.FNetwork.Connected and FController.FNetwork.Running then
-    begin
-      FController.FNetwork.UpdateState(XvtrTranslate(FController.FCenterFreq), XvtrTranslate(ActiveTXFreqHz), FController.FDriveLevel, FController.FTransmitting, True, True);
-      FController.FNetwork.SendFullHP;
-    end;
-  end;
-
-  // Переключаем кнопку диапазона по новой частоте
-  NewBand := FreqToBandIdx(ActiveFreq);
-  if (NewBand >= 0) and (NewBand <> FController.FCurrentBand) then
-  begin
-    StyleButton(BtnBand[FController.FCurrentBand], False);
-    FController.FCurrentBand := NewBand;
-    StyleButton(BtnBand[FController.FCurrentBand], True);
-  end;
-
-  FSpecView.InvalidateRulerCache;
-  SyncSpecViewFreq;
-  FSpecView.DrawSpectrum;
-  PbSpectrum.Invalidate;
-  FSpecView.DrawWaterfall;
-  PbWaterfall.Invalidate;
-  if PbRuler <> nil then PbRuler.Invalidate;
+  // Движок (переключение RX-VFO, CTUN-логика, центр/сеть, диапазон) — в
+  // контроллере; рендер — OnControllerState(rfActiveVfo/rfBand/rfCTun).
+  FController.SetActiveVfo(Idx);
 end;
 
 procedure TMainForm.FreqDispAClick(Sender: TObject);