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 OpenGL waterfall renderer

Browse Source
This commit is contained in:
ew8bak
2026-05-25 20:41:06 +03:00
parent 5090838563
commit 08c5f0ddb7
6 changed files with 578 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files
SpectrumView.pas
+3 -3
View File
@@ -117,7 +117,7 @@ type
procedure SetWfAGCOffset(V: Double);
function GetWfFrameInterval: Integer;
procedure SetWfFrameInterval(V: Integer);
procedure SetPbWaterfall(V: TPaintBox);
procedure SetPbWaterfall(V: TControl);
// SMeter sub-view delegating accessors
function GetLastSMeter: Double;
procedure SetLastSMeter(V: Double);
@@ -195,7 +195,7 @@ type
property WfFrameInterval: Integer read GetWfFrameInterval write SetWfFrameInterval;
// ── Ссылки на PaintBox ────────────────────────────────────────────────────
property PbWaterfall: TPaintBox write SetPbWaterfall;
property PbWaterfall: TControl write SetPbWaterfall;
property PbRuler: TPaintBox write SetPbRuler;
property PbSMeterRight: TPaintBox write SetPbSMeterRight;
property SampleRateOverlay: TSampleRateOverlay read FSampleRateOverlay write FSampleRateOverlay;
@@ -410,7 +410,7 @@ function TSpectrumView.GetWfAGCOffset: Double; begin Result := FWaterfall.
procedure TSpectrumView.SetWfAGCOffset(V: Double); begin FWaterfall.WfAGCOffset := V; end;
function TSpectrumView.GetWfFrameInterval: Integer; begin Result := FWaterfall.WfFrameInterval; end;
procedure TSpectrumView.SetWfFrameInterval(V: Integer); begin FWaterfall.WfFrameInterval := V; end;
procedure TSpectrumView.SetPbWaterfall(V: TPaintBox); begin FWaterfall.PbWaterfall := V; end;
procedure TSpectrumView.SetPbWaterfall(V: TControl); begin FWaterfall.PbWaterfall := V; end;
function TSpectrumView.GetLastSMeter: Double; begin Result := FSMeter.LastSMeter; end;
procedure TSpectrumView.SetLastSMeter(V: Double); begin FSMeter.LastSMeter := V; end;