diff --git a/MainForm.pas b/MainForm.pas index 33954e4..c926ab0 100644 --- a/MainForm.pas +++ b/MainForm.pas @@ -769,6 +769,8 @@ begin FChannelController.OnActiveChanged := OnChannelActiveChanged; FChannelController.OnActivateXvtr := ActivateXvtrBand; FChannelController.OnDeactivateXvtr := DeactivateXvtr; + // Канал-оркестрация фаером из контроллера в конце SetVfoA (любой путь тюнинга). + FController.OnAfterTune := FChannelController.OnVfoTuned; FController.FVfoA := 14200000; FController.FVfoB := 7100000; FController.FActiveVfo := 0; @@ -3760,14 +3762,10 @@ end; // --------------------------------------------------------------------------- procedure TMainForm.ApplyVfoA(NewFreq: Int64); begin - // Движок (XVTR-клэмп, CTUN shift/center/scroll, детект диапазона, FM авто-RPT, - // сеть) — в контроллере SetVfoA; рендер FreqDisp/спектра/band-кнопок — в - // OnControllerState(rfVfoA/rfBand). + // Тонкий делегат: движок (XVTR-клэмп, CTUN, band-detect, FM авто-RPT, сеть) — + // в SetVfoA; канальная оркестрация — в FController.OnAfterTune (хук в конце + // SetVfoA → FChannelController.OnVfoTuned); рендер — OnControllerState. FController.SetVfoA(NewFreq); - - // Канальная оркестрация (авто-CTCSS/pre-channel-drive + деактивация при уходе - // с частоты канала) — в адаптере каналов. - FChannelController.OnVfoTuned; end; // --------------------------------------------------------------------------- diff --git a/RadioController.pas b/RadioController.pas index 2e97e2d..bd1ef92 100644 --- a/RadioController.pas +++ b/RadioController.pas @@ -109,6 +109,7 @@ type private FOnInvoke: TUIInvokeEvent; FOnStateChanged: TRadioStateEvent; + FOnAfterTune: TThreadMethod; // пост-тюн хук: канал-оркестрация после SetVfoA procedure Changed(Field: TRadioField); procedure ApplyAGCToEngine; // применяет FAGCMode к WDSP (единый маппинг) procedure ApplyModeDefaults; // дефолтный фильтр/девиация под текущий FMode @@ -423,6 +424,10 @@ type // ---- События наружу ---- property OnInvoke: TUIInvokeEvent read FOnInvoke write FOnInvoke; property OnStateChanged: TRadioStateEvent read FOnStateChanged write FOnStateChanged; + // Пост-тюн хук: вызывается в КОНЦЕ SetVfoA (после Changed(rfVfoA), т.е. вне + // рендера) — сюда вешается канальная оркестрация (ChannelController.OnVfoTuned), + // чтобы любой путь тюнинга (desktop/web/CAT/энкодер) был канал-aware headless. + property OnAfterTune: TThreadMethod read FOnAfterTune write FOnAfterTune; end; implementation @@ -1233,6 +1238,10 @@ begin PushNetworkState; Changed(rfVfoA); + // Канальная оркестрация — ПОСЛЕ рендера rfVfoA (вне его try/finally-гарда), без + // ре-ентранси: OnVfoTuned зовёт команды (SetDrive/SetFMRpt), которым нужен + // чистый верхний уровень OnControllerState. + if Assigned(FOnAfterTune) then FOnAfterTune; end; procedure TRadioController.SetVfoB(Hz: Double);