ew8bak/ewsdr
1
0
Fork 0
mirror of https://git.vladimir.cc/vladimir/ewsdr.git synced 2026-08-25 17:27:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix(slices): pop-out при wideband + читаемость шапки; бейдж АЦП → RX1/RX2

Browse Source 
1) LayoutPanStack прятал шапку пана 0 по числу застекованных панов, а wideband
ставится со сдвигом Pan0HeaderH по общему числу (вкл. плавающие) — спектр
накрывал линейку частот wideband. Теперь видимость шапки по PanCount.
2) Лейблы шапки наследовали шрифт формы (ParentFont) — в pop-out окне текст
был дефолтно-тёмным на тёмном. Темизация шапки вынесена в ApplyPanHeaderTheme
(зовётся из UpdatePanHeaders: создание пана/pop-out/dock), окну — шрифт формы.
3) Бейдж ADC-источника переименован A1/A2 → RX1/RX2.

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
ew8bak
2026-07-12 11:05:10 +03:00
co-authored by Claude Fable 5
parent e26434575a
commit 209e490dfa
2 changed files with 40 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PanafallPanel.pas
+3 -3
View File
@@ -98,7 +98,7 @@ type
FHeaderRateLabel: TLabel; // «NNN kHz»; у панов N>0 кликабелен (селектор rate)
FRateClickable: Boolean;
FOnRateClick: TNotifyEvent;
FHeaderADCLabel: TLabel; // «A1»/«A2»; кликабелен при 2 АЦП (тумблер, 3.4)
FHeaderADCLabel: TLabel; // «RX1»/«RX2»; кликабелен при 2 АЦП (тумблер, 3.4)
FADCClickable: Boolean;
FOnADCClick: TNotifyEvent;
FBtnPopPan: TFlatButton; // «⧉» pop-out в отдельное окно (паны N>0, 3.5)
@@ -194,7 +194,7 @@ type
procedure SetHeaderRate(const S: string);
property RateClickable: Boolean read FRateClickable write SetRateClickable;
property OnRateClick: TNotifyEvent read FOnRateClick write FOnRateClick;
// Бейдж ADC-источника «A1»/«A2» (3.4): показывается при NumADCs>1,
// Бейдж ADC-источника «RX1»/«RX2» (3.4): показывается при NumADCs>1,
// клик = тумблер АЦП (хозяин).
procedure SetHeaderADC(const S: string);
property ADCClickable: Boolean read FADCClickable write SetADCClickable;
@@ -401,7 +401,7 @@ begin
FHeaderRateLabel.Parent := FHeaderPanel;
FHeaderRateLabel.AutoSize := True;
FHeaderRateLabel.OnClick := HeaderRateClick;
// ADC-бейдж «A1»/«A2» (3.4): пустой текст = скрыт (одноАЦПшные платы).
// ADC-бейдж «RX1»/«RX2» (3.4): пустой текст = скрыт (одноАЦПшные платы).
FHeaderADCLabel := TLabel.Create(Self);
FHeaderADCLabel.Parent := FHeaderPanel;
FHeaderADCLabel.AutoSize := True;