refactor(controller): единая дверь SetTXSettings для правки TX-настроек

Применение TX-настроек (WDSP, DUC Specific при смене mic-битов/ATT, живое
обновление TUN, запись в активный профиль, персист) жило в обработчике
MainForm — то есть было недоступно ничему, кроме вкладки Transmit. CAT и web
по архитектуре ходят только в контроллер и дотянуться туда не могли.

Логика переехала в TRadioController.SetTXSettings по образцу уже
существовавшего SetCWSettings; MainForm делегирует ей и оставляет себе только
рендер. Notify=False у формы — иначе rfTXProfile перезагрузил бы вкладку
Transmit прямо под руками у того, кто её правит.

Заодно SetTXMonVolume: громкость self-monitor'а адресно, вне TX-контекста
(слайдер добирается до неё только на передаче, CAT-клиенту такой контекст
не нужен).

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

RadioController.pas

@@ -691,6 +691,11 @@ type
     function  TXProfileCount: Integer;
     function  TXProfileName(Idx: Integer): string;
     function  ActiveTXProfile: Integer;
+    // Единая дверь для правки TX-настроек снаружи (вкладка Transmit, CAT, web):
+    // применяет запись к движку/железу, дописывает активный профиль и персистит.
+    // Notify=False — вызывающий сам отрисует изменения (так делает MainForm,
+    // иначе rfTXProfile перезагрузил бы форму настроек прямо под руками).
+    procedure SetTXSettings(const T: TTXSettings; Notify: Boolean = True);
     // Auto=True — переключение сделала автоматика привязок; ручной выбор
     // (дропдаун, список настроек) дополнительно ЗАПОМИНАЕТСЯ за текущей парой
     // «источник + модуляция» (BindTXProfileToCurrentMode).
@@ -787,6 +792,9 @@ type
     // Громкость / mute / drive / аттенюатор
     procedure SetVolume(V: Integer);
     procedure VolumeBy(Delta: Integer);
+    // Громкость self-monitor'а на передаче отдельно от RX-громкости: слайдер
+    // правит её только когда MonitoringTX, а CAT (ZZTM) — в любой момент.
+    procedure SetTXMonVolume(V: Integer);
     // True — сейчас звучит self-monitor даунлинка на передаче (TX + DUP + RX MUTE
     // off). В этом контексте SetVolume/слайдер правят FTxMonVolume, иначе FVolume.
     function  MonitoringTX: Boolean;
@@ -4683,6 +4691,14 @@ end;
 procedure TRadioController.VolumeBy(Delta: Integer);
 begin SetVolume(ActiveVolume + Delta); end;
 
+procedure TRadioController.SetTXMonVolume(V: Integer);
+// Адресно правит громкость self-monitor'а. Слайдер добирается до неё только на
+// передаче (SetVolume через ActiveVolume), CAT-клиенту такой контекст не нужен.
+begin
+  FTxMonVolume := EnsureRange(V, 0, 100);
+  if MonitoringTX then ApplyActiveVolume;
+end;
+
 procedure TRadioController.SetMute(On_: Boolean);
 begin
   FMuted := On_;
@@ -5531,6 +5547,59 @@ begin
   FSettings.Save;
 end;
 
+procedure TRadioController.SetTXSettings(const T: TTXSettings; Notify: Boolean);
+// Одна дверь для правки TX-настроек — по образцу SetCWSettings. Клиенту
+// (вкладка Transmit, CAT, web) достаточно отдать запись целиком: применение к
+// WDSP, перепосыл DUC Specific при смене mic-битов/ATT, живое обновление TUN,
+// запись в активный профиль и персист — здесь.
+var
+  OldMicByte: Byte;
+  OldAtt, OldTUNLevel, OldTUNFreq: Integer;
+begin
+  OldMicByte  := BuildMicLineSelectByte;
+  OldAtt      := FTXSettings.AttOnTX;
+  OldTUNLevel := FTXSettings.TUNLevel;
+  OldTUNFreq  := FTXSettings.TUNFreq;
+  FTXSettings := T;
+  // TX-сетка спектра — рабочие поля рендера; их перерисовку заказывает вызывающий.
+  FTXSpecRefLevel := FTXSettings.TXSpecRefLevel;
+  FTXSpecRange    := FTXSettings.TXSpecRange;
+  if FTXSettings.TXSpecGridStep > 0 then FTXSpecGridStep := FTXSettings.TXSpecGridStep;
+  ApplyTXSettingsToDSP;
+  // Маршрутизация микрофона и ATT on TX живут в железе (DUC Specific), WDSP тут
+  // ни при чём — пакет перепосылаем только когда байты реально поменялись.
+  if (BuildMicLineSelectByte <> OldMicByte) or (OldAtt <> FTXSettings.AttOnTX) then
+    SendDUCSpecificFromSettings;
+  // TUN-параметры live: идёт настройка — обновить тон/уровень, иначе просто запомнить.
+  if FTuning then
+  begin
+    if (OldTUNFreq <> FTXSettings.TUNFreq) and FWDSPReady then
+      FDSPEngine.SetTXTone(True, FTXSettings.TUNFreq, 1.0);
+    if OldTUNLevel <> FTXSettings.TUNLevel then
+    begin
+      FDriveLevel := CalcDriveByte;
+      if FWDSPReady then
+        FDSPEngine.SetDriveLevel(EnsureRange(FTXSettings.TUNLevel, 0, 100) / 100.0);
+      if FNetwork.Connected and FNetwork.Running then
+      begin
+        FNetwork.UpdateState(XvtrTranslate(FCenterFreq), TXTuneFreqHz, FDriveLevel,
+                             FTransmitting, True, True, FTuning, FTwoTone);
+        FNetwork.SendFullHP;
+      end;
+    end;
+  end;
+  // Правка «звуковых» полей — это правка активного профиля: отдельной кнопки
+  // «сохранить» нет, профиль ведётся за живым состоянием (см. TTXProfile).
+  StoreActiveTXProfile;
+  if FDevConnected and Assigned(FSettings) then
+  begin
+    FSettings.SaveTX(FDevMAC, FTXSettings);
+    FSettings.SaveTXProfiles(FDevMAC, FTXProfiles);
+    FSettings.Save;
+  end;
+  if Notify then Changed(rfTXProfile);
+end;
+
 procedure TRadioController.StoreActiveTXProfile(Persist: Boolean = False);
 // Живое состояние → активный профиль. Зовётся на каждой правке TX-настроек и
 // на смене drive; Persist=False не трогает диск (drive ездит слайдером).