From 4e6703e59050ab8e8c7dd177f7ad9b21a3a9a810 Mon Sep 17 00:00:00 2001 From: Vladimir Date: Tue, 4 Aug 2026 19:40:59 +0300 Subject: [PATCH] =?UTF-8?q?fix(xvtr):=20TUN=20=D0=B8=D0=B4=D1=91=D1=82=20?= =?UTF-8?q?=D0=BE=D1=82=20=D0=B3=D0=BB=D0=BE=D0=B1=D0=B0=D0=BB=D1=8C=D0=BD?= =?UTF-8?q?=D0=BE=D0=B3=D0=BE=20=D1=83=D1=80=D0=BE=D0=B2=D0=BD=D1=8F,=20?= =?UTF-8?q?=D0=BC=D0=BE=D1=89=D0=BD=D0=BE=D1=81=D1=82=D1=8C=20=D1=81=D0=BB?= =?UTF-8?q?=D0=BE=D1=82=D0=B0=20=E2=80=94=20=D0=BC=D0=BD=D0=BE=D0=B6=D0=B8?= =?UTF-8?q?=D1=82=D0=B5=D0=BB=D1=8C?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit При включённой опции TUN в трансвертере брал мощность слота ВМЕСТО глобального TUN Level, из-за чего ручка «Tune level» на вкладке Transmit в трансвертере была мёртвой, а настройка уходила в эфир на мощности слота (у 70cm и QO-100 — все 100 %). Теперь уровень всегда от TUN Level, а слотовая TX Power работает множителем: Pos = TUNLevel * слот/100 — та же формула, по которой в трансвертере уже масштабировался обычный drive. Смысл поля становится единым: «сколько мощности трансивера разрешено этому трансвертеру», и к настройке это относится так же, как к передаче. Галка сохранена (кому нужен неотмасштабированный TUN), но переименована в «Scale TUN by XVTR power» — прежнее название описывало снятое поведение. Co-Authored-By: Claude Opus 5 --- RadioController.pas | 11 ++++++++--- SettingsForm.pas | 4 ++-- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/RadioController.pas b/RadioController.pas index a352dcf..7ed9f52 100644 --- a/RadioController.pas +++ b/RadioController.pas @@ -3385,10 +3385,15 @@ begin if FTuning then begin + // Уровень настройки всегда идёт от глобального TUN Level — иначе ручка в + // Transmit в трансвертере оказывалась мёртвой. Мощность слота (если + // включена галка) работает МНОЖИТЕЛЕМ, ровно как для обычного drive ниже: + // это «сколько мощности трансиверa разрешено этому трансвертеру», и к + // настройке оно относится так же, как к передаче. + Pos := EnsureRange(FTXSettings.TUNLevel, 0, 100); if XvtrActive and FXvtrSettings.UseXVTRTunePower then - Pos := EnsureRange(FXvtrSettings.Entries[FCurrentXvtr].TXPower, 0, 100) - else - Pos := EnsureRange(FTXSettings.TUNLevel, 0, 100); + Pos := Round(Pos * EnsureRange(FXvtrSettings.Entries[FCurrentXvtr].TXPower, + 0, 100) / 100.0); end else begin diff --git a/SettingsForm.pas b/SettingsForm.pas index 4629344..effcf52 100644 --- a/SettingsForm.pas +++ b/SettingsForm.pas @@ -4896,8 +4896,8 @@ begin MARGIN, GrpY, GRP_W, GRP_TITLE_H + 36); FChkXvtrTunPwr := TFlatCheckBox.Create(Self); FChkXvtrTunPwr.Parent := GrpOpts; - FChkXvtrTunPwr.Caption := 'Use XVTR power for TUN ' - + '(TUN button uses the per-slot TX Power instead of the global TUN Level)'; + FChkXvtrTunPwr.Caption := 'Scale TUN by XVTR power ' + + '(TUN level from Transmit is multiplied by the per-slot TX Power)'; FChkXvtrTunPwr.SetBounds(DpiScale(14), DpiScale(GRP_TITLE_H + 8), DpiScale(GRP_W - 28), DpiScale(20)); FChkXvtrTunPwr.Font.Color := CLR_TEXT; FChkXvtrTunPwr.Font.Name := UI_FONT;