Phase 3 (batch 9): route FM repeater shift through controller commands

FM Rpt is the first FM-Rpt heavy-class item (XvtrTranslate/ActiveTXFreqHz
blocker already lifted in d895800). Following the established pattern:

- TRadioController.SetFMRpt(Dir): explicit direction, clears auto-active,
  pushes network state; rendered via OnControllerState(rfFMRpt).
- SetFMRptOffset(Hz): updates offset, re-pushes when RPT engaged.
- UpdateRptAutoState: 2 m auto-MINUS logic moved into controller, fires
  Changed(rfFMRpt) instead of inline StyleButton.
- Extracted private PushNetworkState helper (full HP frame); SetCTun now
  reuses it (dedupes the UpdateState+SendFullHP block).

MainForm: Btn/EdFMRpt handlers are thin wrappers (toggle decision +
SaveCurrentBand stay in UI); UpdateRptAutoState delegates to controller;
ApplyFMRpt removed. OnControllerState(rfFMRpt) restyles both buttons and
sets the offset edit text only when unfocused (avoids disrupting typing).
Direct FFMRptDir writes in band/channel/xvtr restore paths left as-is
(migrate with their own commands later). Builds clean.

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

RadioController.pas

@@ -110,6 +110,7 @@ type
     procedure Changed(Field: TRadioField);
     procedure ApplyAGCToEngine;   // применяет FAGCMode к WDSP (единый маппинг)
     procedure ApplyModeDefaults;  // дефолтный фильтр/девиация под текущий FMode
+    procedure PushNetworkState;   // полный HP-кадр в радио (RX/TX freq+drive)
   public
     // ============================================================
     //  ПУБЛИЧНЫЕ ПОЛЯ (миграционные — имена совпадают с TMainForm).
@@ -277,7 +278,9 @@ type
     procedure SetFMCTCSSTone(Idx: Integer);
     procedure SetFMSquelch(On_: Boolean);
     procedure SetFMSquelchLevel(V: Integer);
-    procedure SetFMRpt(Dir: Integer);
+    procedure SetFMRpt(Dir: Integer);         // явное направление; снимает авто-флаг
+    procedure SetFMRptOffset(Hz: Double);     // сдвиг репитера; применяет, если RPT вкл
+    procedure UpdateRptAutoState;             // авто-MINUS для 2 м под FVfoA
 
     // Каналы
     procedure ApplyChannel(Idx: Integer);
@@ -323,6 +326,18 @@ begin
   if Assigned(FOnStateChanged) then FOnStateChanged(Self, Field);
 end;
 
+procedure TRadioController.PushNetworkState;
+// Полный HP-кадр в радио: RX/TX частоты (через трансвертор), drive, состояние
+// MOX. Вызывается командами, которые меняют центр/частоту/репитер-сдвиг.
+begin
+  if Assigned(FNetwork) and FNetwork.Connected and FNetwork.Running then
+  begin
+    FNetwork.UpdateState(XvtrTranslate(FCenterFreq), XvtrTranslate(ActiveTXFreqHz),
+                         FDriveLevel, FTransmitting, True, True);
+    FNetwork.SendFullHP;
+  end;
+end;
+
 procedure TRadioController.Invoke(M: TThreadMethod);
 begin
   if Assigned(FOnInvoke) then FOnInvoke(M)
@@ -586,12 +601,7 @@ begin
     // движок — FCenterFreq остаётся как есть, спектр не прыгает.)
     FCenterFreq := FVfoA;
     if FWDSPReady and Assigned(FDSPEngine) then FDSPEngine.SetShift(0.0);
-    if Assigned(FNetwork) and FNetwork.Connected and FNetwork.Running then
-    begin
-      FNetwork.UpdateState(XvtrTranslate(FCenterFreq), XvtrTranslate(ActiveTXFreqHz),
-                           FDriveLevel, FTransmitting, True, True);
-      FNetwork.SendFullHP;
-    end;
+    PushNetworkState;
   end;
   Changed(rfCTun);
 end;
@@ -682,7 +692,44 @@ begin
 end;
 
 procedure TRadioController.SetFMRpt(Dir: Integer);
-begin FFMRptDir := Dir; Changed(rfFMRpt); { TODO wiring } end;
+begin
+  FFMRptDir        := Dir;
+  FFMRptAutoActive := False;   // явная установка направления — ручное действие
+  PushNetworkState;            // TX-сдвиг применяется через ActiveTXFreqHz
+  Changed(rfFMRpt);
+end;
+
+procedure TRadioController.SetFMRptOffset(Hz: Double);
+begin
+  if Hz <= 0.0 then Exit;
+  FFMRptOffsetHz := Hz;
+  if FFMRptDir <> RPT_NONE then PushNetworkState;
+  Changed(rfFMRpt);
+end;
+
+procedure TRadioController.UpdateRptAutoState;
+// Авто-включение MINUS-сдвига в 2-метровом репитерном сегменте и авто-снятие
+// при уходе из него (только если MINUS был выставлен автоматически).
+begin
+  if RptAutoDir(FVfoA) = RPT_MINUS then
+  begin
+    if FFMRptDir = RPT_NONE then
+    begin
+      FFMRptDir        := RPT_MINUS;
+      FFMRptAutoActive := True;
+      Changed(rfFMRpt);
+    end;
+  end
+  else
+  begin
+    if (FFMRptDir = RPT_MINUS) and FFMRptAutoActive then
+    begin
+      FFMRptDir        := RPT_NONE;
+      FFMRptAutoActive := False;
+      Changed(rfFMRpt);
+    end;
+  end;
+end;
 
 procedure TRadioController.ApplyChannel(Idx: Integer);
 begin Changed(rfChannel); { TODO wiring } end;