From 6c38777c582d65db272f1804628981af87c7319d Mon Sep 17 00:00:00 2001 From: Vladimir Date: Wed, 22 Jul 2026 12:08:06 +0300 Subject: [PATCH] =?UTF-8?q?ui(pans):=20=D0=B3=D1=80=D0=B8=D0=B4=20=D0=B8?= =?UTF-8?q?=D0=B7=20=D0=B4=D0=B2=D1=83=D1=85=20=D0=BA=D0=BE=D0=BB=D0=BE?= =?UTF-8?q?=D0=BD=D0=BE=D0=BA=20=E2=80=94=20=D0=BF=D0=B0=D0=BD=200=20?= =?UTF-8?q?=D0=B8=20=D0=B4=D0=BE=D0=BF.=20=D0=BF=D0=B0=D0=BD=20=D0=B1?= =?UTF-8?q?=D0=BE=D0=BA=20=D0=BE=20=D0=B1=D0=BE=D0=BA?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Раньше «▦» имел смысл только при >=2 доп. панах (с одним грид совпадал со стеком) — основной и единственный дополнительный приёмник могли стоять лишь друг под другом. Теперь при ОДНОМ доп. пане грид = две колонки во всю высоту: пан 0 слева, доп. справа, между ними тот же вертикальный сплиттер. Wideband при этом остаётся сверху во всю ширину PanelRight, обе колонки начинаются под ним (StackTop=AWideH, пан 0 раскладывается с ATopOffset=0, шапки панов уходят в свои колонки — Pan0HeaderH над wideband не резервируется). MainForm: ExtraPanCount/PanGridTwoCol; FPanColShare расширен на индекс 0 (пан 0 — тоже колонка), доля персистится через Cfg.Pans[0].ColShare — ключ col_share в Settings уже был, теперь пишется для всех панов; отдельная ветка в LayoutPanStack (горизонтальные сплиттеры спрятаны, кламп 15% ширины на колонку); vsplit-хендлеры ищут левую колонку downto 0 в two-col и нормируют доли с учётом пана 0; PanSplitMouseDown/Up гейтятся not PanGridTwoCol; кнопка «▦» видна уже при одном доп. пане. Отдельно исправлен sync-гард в тике дисплея: он сверял PbWideband.Width с FPan.SpectrumWidth, а в two-col пан 0 — половина ширины при wideband во всю, поэтому условие было вечно истинным и ResizeSpectrumPanels вызывался каждый кадр — раскладка пересчитывалась под курсором (вертикальный сплиттер не тянулся) и зря сбрасывались битмапы. Теперь wideband сверяется с PanelRight.ClientWidth — его настоящим инвариантом. Co-Authored-By: Claude Opus 4.8 --- MainForm.pas | 126 +++++++++++++++++++++++++++++++++++++++------------ ewsdr.lpi | 9 +++- 2 files changed, 104 insertions(+), 31 deletions(-) diff --git a/MainForm.pas b/MainForm.pas index 3334ebb..f0d98f6 100644 --- a/MainForm.pas +++ b/MainForm.pas @@ -189,11 +189,12 @@ type FPanSplitTop0: Integer; FPanSplitMinTop: Integer; FPanSplitMaxTop: Integer; - // Грид-раскладка: пан 0 сверху во всю ширину, доп. паны колонками снизу. - // Активна при FPanGridMode и >=2 доп. панах в стеке (иначе обычный стек). + // Грид-раскладка: при >=2 доп. панах — пан 0 сверху во всю ширину, доп. + // паны колонками снизу; при ОДНОМ доп. пане — две колонки бок о бок + // (пан 0 слева, доп. справа). Активна при FPanGridMode и >=1 доп. пане. FPanGridMode: Boolean; FPanGridRowShare: Double; // доля высоты верхнего ряда (пан 0), 0.15..0.85 - FPanColShare: array[1..MAX_PANS-1] of Double; // доли ширины колонок + FPanColShare: array[0..MAX_PANS-1] of Double; // доли ширины колонок FPanVSplitters: array[1..MAX_PANS-1] of TPanel; // слева от колонки пана i FPansRestored: Boolean; // персист панов восстановлен в этой Run-сессии // Drag вертикального сплиттера (индекс пана справа; 0 = нет). @@ -684,6 +685,8 @@ type procedure PanSplitMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure OnPanGridToggle(Sender: TObject); // «▦/▤» в ряду зума пана 0 function PanGridActive: Boolean; // грид реально применён + function PanGridTwoCol: Boolean; // грид из 2 колонок (пан 0 + 1) + function ExtraPanCount: Integer; // доп. паны в раскладке procedure PanVSplitMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure PanVSplitMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); @@ -1170,8 +1173,9 @@ begin FPan.OnAddPan := OnAddPanClick; FPan.OnADCClick := OnPanADCClick; // бейдж RX1/RX2 (3.4, платы с 2 АЦП) FPan.OnDisplayClick := OnPanDisplayClick; // «◑» дисплей-поповер (3.6) - FPans[0] := FPan; - FPanShare[0] := 1.0; + FPans[0] := FPan; + FPanShare[0] := 1.0; + FPanColShare[0] := 1.0; // грид «две колонки»: пан 0 — тоже колонка FPanGridMode := False; FPanGridRowShare := 0.5; // грид: пан 0 — верхняя половина FPanCbLock := SyncObjs.TCriticalSection.Create; @@ -2700,7 +2704,7 @@ procedure TMainForm.ResizeSpectrumPanels; const WB_H = 118; var - RW, RH, WideH, WideSpecH: Integer; + RW, RH, WideH, WideSpecH, WideTop: Integer; RULER_H: Integer; PANZOOM_H: Integer; begin @@ -2721,10 +2725,13 @@ begin WideH := Min(MulDiv(WB_H, Screen.PixelsPerInch, 96), Max(40, RH div 2)); if WideH > 0 then WideSpecH := Max(1, WideH - RULER_H); + // Wideband — всегда во всю ширину PanelRight, самой верхней полосой. + // В обычном стеке над ним стоит шапка пана 0; в гриде «две колонки» шапки + // панов уходят в свои колонки ПОД wideband, поэтому он начинается с нуля. + WideTop := IfThen(PanGridTwoCol, 0, Pan0HeaderH); if PbWideband <> nil then begin - // При стеке панов над wideband стоит шапка пана 0. - PbWideband.SetBounds(0, Pan0HeaderH, RW, WideSpecH); + PbWideband.SetBounds(0, WideTop, RW, WideSpecH); PbWideband.Visible := FController.FShowWideband and (WideSpecH > 0); if FController.FShowWideband and (RW > 0) and (WideSpecH > 0) then begin @@ -2734,7 +2741,7 @@ begin end; if PbWidebandRuler <> nil then begin - PbWidebandRuler.SetBounds(0, Pan0HeaderH + WideSpecH, RW, IfThen(FController.FShowWideband and (WideH > 0), RULER_H, 0)); + PbWidebandRuler.SetBounds(0, WideTop + WideSpecH, RW, IfThen(FController.FShowWideband and (WideH > 0), RULER_H, 0)); PbWidebandRuler.Visible := FController.FShowWideband and (WideH > 0); if FController.FShowWideband and (RW > 0) and (WideH > 0) then begin @@ -2768,15 +2775,26 @@ begin Result := 0; end; -function TMainForm.PanGridActive: Boolean; -// Грид реально применён: включён юзером и в стеке >=2 доп. панов -// (с одним доп. паном грид совпадает со стеком). -var i, N: Integer; +function TMainForm.ExtraPanCount: Integer; +// Доп. паны (без пана 0), участвующие в раскладке (плавающие не в счёт). +var i: Integer; begin - N := 0; + Result := 0; for i := 1 to MAX_PANS - 1 do - if (FPans[i] <> nil) and not PanFloating(i) then Inc(N); - Result := FPanGridMode and (N >= 2); + if (FPans[i] <> nil) and not PanFloating(i) then Inc(Result); +end; + +function TMainForm.PanGridActive: Boolean; +// Грид реально применён: включён юзером и есть хотя бы один доп. пан в стеке. +begin + Result := FPanGridMode and (ExtraPanCount >= 1); +end; + +function TMainForm.PanGridTwoCol: Boolean; +// Частный случай грида: пан 0 + ОДИН доп. пан = две колонки бок о бок во всю +// высоту (верхнего ряда/горизонтального сплиттера нет). +begin + Result := FPanGridMode and (ExtraPanCount = 1); end; function TMainForm.PanMinHeight(PanId: Integer): Integer; @@ -2795,7 +2813,7 @@ const var ActiveIds: array[0..MAX_PANS-1] of Integer; MinH: array[0..MAX_PANS-1] of Integer; - N, i, k, TotalH, TotalW, UsableH, UsableW, Y, X, Hi, Wi: Integer; + N, i, k, TotalH, TotalW, UsableH, UsableW, Y, X, Hi, Wi, MinW: Integer; Row0H, RowTop, RowH, M, MinRest, RemainH, BotMin: Integer; ShareSum: Double; Grid: Boolean; @@ -2809,14 +2827,15 @@ begin FPanWideH := AWideH; // для PanMinHeight (в т.ч. из сплиттер-драга) TotalH := PanelRight.ClientHeight; TotalW := PanelRight.ClientWidth; - Grid := PanGridActive; // пан 0 + >=2 доп. панов колонками + Grid := PanGridActive; // 2 колонки (пан 0 + 1 доп.) либо ряд + колонки - // Тумблер «▦/▤» в ряду зума пана 0: есть смысл при >=2 доп. панах в стеке. + // Тумблер «▦/▤» в ряду зума пана 0: есть смысл уже при ОДНОМ доп. пане + // (грид = пан 0 и доп. пан бок о бок вместо «друг под другом»). if FPans[0] <> nil then begin - // Виден при >=2 доп. панах; при включённом гриде — всегда (выключить можно + // Виден при >=1 доп. пане; при включённом гриде — всегда (выключить можно // даже когда паны закрылись и раскладка сама откатилась в стек). - FPans[0].GridBtnEnabled := FPanGridMode or (N >= 3); + FPans[0].GridBtnEnabled := FPanGridMode or (N >= 2); if FPans[0].BtnGrid <> nil then begin if FPanGridMode then FPans[0].BtnGrid.Caption := '▤' @@ -2885,6 +2904,47 @@ begin Exit; end; + if PanGridTwoCol then + begin + // ---- Грид «две колонки»: пан 0 слева, единственный доп. пан справа ---- + // Wideband остаётся сверху во всю ширину (его полосу кладёт + // ResizeSpectrumPanels), обе колонки начинаются ПОД ним и идут до низа; + // между ними вертикальный сплиттер (доли FPanColShare[0]/FPanColShare[доп]). + i := ActiveIds[1]; // единственный застекованный доп. пан + for k := 1 to MAX_PANS - 1 do + begin + if FPanSplitters[k] <> nil then FPanSplitters[k].Visible := False; + if (k <> i) and (FPanVSplitters[k] <> nil) then + FPanVSplitters[k].Visible := False; + end; + FPans[0].HeaderVisible := Pan0HeaderVisible; + FPans[i].HeaderVisible := True; + UsableW := TotalW - PAN_SPLIT_H; + ShareSum := FPanColShare[0] + FPanColShare[i]; + if ShareSum <= 0 then ShareSum := 1; + MinW := Round(0.15 * TotalW); // = кламп драга вертикального сплиттера + Wi := Round(UsableW * FPanColShare[0] / ShareSum); + if Wi < MinW then Wi := MinW; + if Wi > UsableW - MinW then Wi := UsableW - MinW; + if Wi < 1 then Wi := 1; + RowTop := AWideH; // низ полосы wideband = верх обеих колонок + RowH := TotalH - RowTop; + FPans[0].StackTop := RowTop; + FPans[0].StackHeight := RowH; + FPans[0].StackLeft := 0; + FPans[0].StackWidth := Wi; + // ATopOffset=0: wideband вне региона пана 0 (он уже учтён в StackTop). + FPans[0].Layout(0, FController.FShowSpectrum, FController.FShowWaterfall); + FPanVSplitters[i].Visible := True; + FPanVSplitters[i].SetBounds(Wi, RowTop, PAN_SPLIT_H, RowH); + FPans[i].StackTop := RowTop; + FPans[i].StackHeight := RowH; + FPans[i].StackLeft := Wi + PAN_SPLIT_H; + FPans[i].StackWidth := TotalW - Wi - PAN_SPLIT_H; + FPans[i].Layout(0, FController.FShowSpectrum, FController.FShowWaterfall); + Exit; + end; + // ---- Грид: пан 0 сверху во всю ширину, доп. паны колонками снизу ---- FPanGridRowShare := EnsureRange(FPanGridRowShare, 0.15, 0.85); Row0H := Round((TotalH - PAN_SPLIT_H) * FPanGridRowShare); @@ -3466,8 +3526,13 @@ begin // Важно: проверяем только видимые панели — когда спектр скрыт, // PbSpectrum.Height может быть ненулевым при FPan.SpectrumHeight=0, // что вызвало бы сброс буфера водопада на каждом тике. + // Wideband сверяем с шириной PanelRight, а НЕ со спектром пана 0: в гриде + // «две колонки» пан 0 — половина ширины, а wideband остаётся во всю (иначе + // условие вечно истинно и тик дёргает ResizeSpectrumPanels каждый кадр — + // раскладка пересчитывается под курсором и сплиттеры не тянутся). if (FPan.SpectrumWidth = 0) or - (FController.FShowWideband and (PbWideband.Width <> FPan.SpectrumWidth)) or + (FController.FShowWideband and (PanelRight <> nil) and + (PbWideband.Width <> PanelRight.ClientWidth)) or (FController.FShowSpectrum and ((PbSpectrum.Width <> FPan.SpectrumWidth) or (PbSpectrum.Height <> FPan.SpectrumHeight))) or (FController.FShowWaterfall and not FController.FShowSpectrum and @@ -6714,6 +6779,7 @@ begin for i := 0 to MAX_PANS - 1 do begin Cfg.Pans[i].StackShare := FPanShare[i]; + Cfg.Pans[i].ColShare := FPanColShare[i]; // пан 0 — колонка в гриде «2 колонки» if FPans[i] <> nil then Cfg.Pans[i].SplitRatio := FPans[i].SplitterRatio; if i > 0 then begin @@ -6724,7 +6790,6 @@ begin Cfg.Pans[i].ADC := FController.PanADC(i); Cfg.Pans[i].Zoom := FController.PanZoomFactor(i); Cfg.Pans[i].PanSlider := FController.PanPanSlider(i); - Cfg.Pans[i].ColShare := FPanColShare[i]; // Per-pan дисплей (3.6): пишем override только если пан его задал. if (FPans[i] <> nil) and FPans[i].DisplayOverride then begin @@ -6822,7 +6887,8 @@ begin FPanGridRowShare := Cfg.GridRowShare; // Пан 0: восстановить его доп. слайсы (главный VFO — не слайс) + доли. - FPanShare[0] := Cfg.Pans[0].StackShare; + FPanShare[0] := Cfg.Pans[0].StackShare; + FPanColShare[0] := Cfg.Pans[0].ColShare; FPan.SplitterRatio := Cfg.Pans[0].SplitRatio; for k := 0 to High(Cfg.Pans[0].Slices) do RestoreSliceInto(FPan, 0, Cfg.Pans[0].Slices[k]); @@ -7086,6 +7152,7 @@ var Split: TPanel; begin if Button <> mbLeft then Exit; + if PanGridTwoCol then Exit; // две колонки: горизонтальных сплиттеров нет Split := TPanel(Sender); BelowId := Split.Tag; TotalH := PanelRight.ClientHeight; @@ -7148,7 +7215,7 @@ begin TPanel(Sender).Color := TColor($00303030); TotalH := PanelRight.ClientHeight; if TotalH <= 0 then Exit; - if PanGridActive then + if PanGridActive and not PanGridTwoCol then begin // Грид: сплиттер задаёт долю высоты верхнего ряда (пан 0) напрямую. FPanGridRowShare := EnsureRange(TPanel(Sender).Top / TotalH, 0.15, 0.85); @@ -7190,9 +7257,10 @@ begin if (Button <> mbLeft) or not PanGridActive then Exit; Split := TPanel(Sender); RightId := Split.Tag; - // Колонка слева — ближайший застекованный доп. пан с меньшим PanId. + // Колонка слева — ближайший застекованный пан с меньшим PanId (в гриде из + // двух колонок левая колонка — сам пан 0, в ряду колонок — доп. пан). LeftId := -1; - for i := RightId - 1 downto 1 do + for i := RightId - 1 downto IfThen(PanGridTwoCol, 0, 1) do if (FPans[i] <> nil) and not PanFloating(i) then begin LeftId := i; Break; end; if (LeftId < 0) or (FPans[RightId] = nil) then Exit; TotalW := PanelRight.ClientWidth; @@ -7231,14 +7299,14 @@ begin FPanVSplitDrag := 0; TPanel(Sender).Color := TColor($00303030); LeftId := -1; - for i := RightId - 1 downto 1 do + for i := RightId - 1 downto IfThen(PanGridTwoCol, 0, 1) do if (FPans[i] <> nil) and not PanFloating(i) then begin LeftId := i; Break; end; if (LeftId < 0) or (FPans[RightId] = nil) then Exit; TotalW := PanelRight.ClientWidth; if TotalW <= 0 then Exit; // Доли колонок нормируются суммой (init 1.0 на пан) — пиксели → доли через неё. ShareSum := 0; - for i := 1 to MAX_PANS - 1 do + for i := IfThen(PanGridTwoCol, 0, 1) to MAX_PANS - 1 do if (FPans[i] <> nil) and not PanFloating(i) then ShareSum := ShareSum + FPanColShare[i]; if ShareSum <= 0 then ShareSum := 1; diff --git a/ewsdr.lpi b/ewsdr.lpi index 421591e..36c821f 100644 --- a/ewsdr.lpi +++ b/ewsdr.lpi @@ -17,9 +17,9 @@ - + - + @@ -130,6 +130,11 @@ + + + + +