diff --git a/MainForm.pas b/MainForm.pas index 5199b73..59b7512 100644 --- a/MainForm.pas +++ b/MainForm.pas @@ -1661,7 +1661,19 @@ begin PbSpectrum.Invalidate; end; rfBeaconLock: - UpdateBeaconButton; // статус/коррекция QO-100 beacon lock + begin + // Наведение ставит не только клик по спектру: есть AUTO в окне маяка, + // web и CAT. Как только декодер куда-то наведён — снимаем «вооружение», + // иначе следующий случайный ЛКМ по панораме утащил бы маяк на пустое + // место. Перерисовку просим только в этот момент: маркеры и так едут с + // кадрами, а на стопе спектр статичен. + if FBeaconArming and (FController.BeaconDecodeFreqHz > 0) then + begin + FBeaconArming := False; + FSpectrumDirty := True; + end; + UpdateBeaconButton; // статус/коррекция QO-100 beacon lock + end; rfCTun: begin StyleButton(BtnCTun, FController.FCTun);