diff --git a/MainForm.pas b/MainForm.pas index b8ba0dd..345051c 100644 --- a/MainForm.pas +++ b/MainForm.pas @@ -5437,12 +5437,22 @@ procedure TMainForm.PushFilterEdgesToView; // Кромки в спектр: RX — то, что реально стоит в приёмнике (фильтр может быть // произвольным), TX — из TXSignedEdges движка. Полоса на экране обязана // совпадать с тем, что слышно и что уходит в эфир. -var Lo, Hi: Integer; +var Lo, Hi, i: Integer; begin if FSpecView = nil then Exit; FSpecView.SetRXEdges(FController.FilterLo, FController.FilterHi); FController.TXFilterEdges(Lo, Hi); FSpecView.SetTXEdges(Lo, Hi); + // Доп. паны рисуют полосу передающего слайса теми же кромками + // (CalcSliceBandX). Без этого их FTXEdge* оставались нулями, ветка TX не + // срабатывала, и слайс на передаче показывал RX-ширину. RX-кромки главного + // сюда не отдаём: на панах N главный VFO не рисуется. + for i := 1 to MAX_PANS - 1 do + if FPans[i] <> nil then + begin + FPans[i].View.SetTXEdges(Lo, Hi); + FPanSpecDirty[i] := True; + end; end; procedure TMainForm.BtnFilterMouseDown(Sender: TObject; Button: TMouseButton;