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

Add wideband display pane

Browse Source
This commit is contained in:
ew8bak
2026-05-26 16:24:07 +03:00
parent 762fad420e
commit e0d49c7bfa
5 changed files with 1139 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
SettingsForm.pas
+18 -4
View File
@@ -49,7 +49,7 @@ type
TOnAudioDevChange = procedure(DevIndex: Integer; const DevName: string) of object;
TOnAudioInDevChange = procedure(DevIndex: Integer; const DevName: string) of object;
TOnAudioBufferChange = procedure(BufferSize: Integer) of object;
TOnVisibilityChange = procedure(ShowSpectrum, ShowWaterfall: Boolean) of object;
TOnVisibilityChange = procedure(ShowSpectrum, ShowWaterfall, ShowWideband: Boolean) of object;
TOnFPSChange = procedure(FPS: Integer) of object;
TOnThemeChange = procedure(LightTheme: Boolean) of object;
TOnWfAGCNFChange = procedure(WfAGC, WfNF: Boolean) of object;
@@ -120,6 +120,7 @@ type
// ---- General display tab controls ----
FChkShowSpectrum: TFlatCheckBox;
FChkShowWaterfall: TFlatCheckBox;
FChkShowWideband: TFlatCheckBox;
FCmbFPS: TFlatComboBox;
FChkLightTheme: TFlatCheckBox;
FCmbFreqMhzDigits: TFlatComboBox;
@@ -371,7 +372,7 @@ type
procedure RefreshAudioDevices(AudioOut: TAudioOutput; AudioIn: TAudioInput);
procedure LoadAudioBufferSize(BufferSize: Integer);
procedure LoadVisibility(ShowSpectrum, ShowWaterfall: Boolean);
procedure LoadVisibility(ShowSpectrum, ShowWaterfall, ShowWideband: Boolean);
procedure LoadFPS(FPS: Integer);
procedure LoadLightTheme(ALight: Boolean);
procedure LoadFreqMhzDigits(Digits: Integer);
@@ -822,6 +823,16 @@ begin
FChkShowWaterfall.Font.Size := 9;
FChkShowWaterfall.OnChange := OnVisibilityChkChange;
FChkShowWideband := TFlatCheckBox.Create(Self);
FChkShowWideband.Parent := Grp;
FChkShowWideband.Caption := 'Wideband';
FChkShowWideband.SetBounds(PAD + (CHKW + 20) * 2, R1, CHKW, 22);
FChkShowWideband.Checked := False;
FChkShowWideband.Font.Color := CLR_TEXT;
FChkShowWideband.Font.Name := UI_FONT;
FChkShowWideband.Font.Size := 9;
FChkShowWideband.OnChange := OnVisibilityChkChange;
Grp := MakeGroupPanel(FPageDisplay, 'Performance', MARGIN, 186, 650, 92);
MakeLbl(Grp, 'Refresh rate', PAD, R1 + 5, LW);
@@ -2301,12 +2312,14 @@ begin
FOnAudioBufferChange(BufferSize);
end;
procedure TSettingsForm.LoadVisibility(ShowSpectrum, ShowWaterfall: Boolean);
procedure TSettingsForm.LoadVisibility(ShowSpectrum, ShowWaterfall,
ShowWideband: Boolean);
begin
FLoading := True;
try
FChkShowSpectrum.Checked := ShowSpectrum;
FChkShowWaterfall.Checked := ShowWaterfall;
FChkShowWideband.Checked := ShowWideband;
finally
FLoading := False;
end;
@@ -2327,7 +2340,8 @@ procedure TSettingsForm.OnVisibilityChkChange(Sender: TObject);
begin
if FLoading then Exit;
if not Assigned(FOnVisibilityChange) then Exit;
FOnVisibilityChange(FChkShowSpectrum.Checked, FChkShowWaterfall.Checked);
FOnVisibilityChange(FChkShowSpectrum.Checked, FChkShowWaterfall.Checked,
FChkShowWideband.Checked);
end;
procedure TSettingsForm.OnLightThemeChkChange(Sender: TObject);