mirror of
https://git.vladimir.cc/vladimir/ewsdr.git
synced 2026-08-25 18:43:51 +00:00
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:
+5
-1
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user