fix(cw): в статусе терминала пропадала расстройка тона

Format(', tone %+d Hz', ...) печатал ', tone d Hz' — без значения. Флага '+' в
Format Object Pascal нет, синтаксис здесь %[индекс:][-][ширина][.точность]тип;
встретив '%+', FPC съедает процент с плюсом и копирует остаток спецификатора
как обычный текст. Знак ставим руками, отрицательные %d печатает со своим
минусом сам.

Найдено попутно — тот же промах был в новом коде лупы маяка.

Сборка ewsdr (--ws=qt6) — ОК.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
This commit is contained in:
2026-08-14 12:13:33 +03:00
co-authored by Claude Opus 5
parent a5daf33cc9
commit 504265f8ad
+5 -1
View File
@@ -8280,7 +8280,11 @@ begin
begin
St := Format('RX %d WPM', [FController.CWDecSpeedWPM]);
if FController.CWDecToneOffsetHz <> 0 then
St := St + Format(', tone %+d Hz', [FController.CWDecToneOffsetHz]);
// Знак руками: флага '+' в Format Object Pascal нет, '%+d' съедается
// молча и в строку попадает голая 'd'.
St := St + Format(', tone %s%d Hz',
[IfThen(FController.CWDecToneOffsetHz > 0, '+', ''),
FController.CWDecToneOffsetHz]);
if not FController.CWDecSignal then St := St + ', no signal';
end
else