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
WaterfallView.pas
+10 -10
View File
@@ -17,7 +17,7 @@ uses
type
TWaterfallView = class
private
protected
FWaterfallBitmap: TBitmap;
FWfBitmap: TBitmap;
FWfBitmapW: Integer;
@@ -45,7 +45,7 @@ type
FMarkerX: Integer;
FTheme: TAppTheme;
FLightTheme: Boolean;
FPbWaterfall: TPaintBox;
FPbWaterfall: TControl;
procedure DrawMarkerLine(C: TCanvas; W, H: Integer);
public
@@ -66,15 +66,15 @@ type
property WfFrameInterval: Integer read FWfFrameInterval write FWfFrameInterval;
property MarkerActive: Boolean read FMarkerActive write FMarkerActive;
property MarkerX: Integer read FMarkerX write FMarkerX;
property PbWaterfall: TPaintBox write FPbWaterfall;
property PbWaterfall: TControl write FPbWaterfall;
procedure SetWaterfallData(const Pixels: array of Single; Count: Integer);
procedure DrawWaterfall;
procedure PaintWaterfall(Sender: TObject);
procedure SetWaterfallBitmapSize(W, H: Integer);
procedure ResetWfAvgBuf;
procedure ResetWfBuf;
procedure SetTheme(const T: TAppTheme);
procedure SetWaterfallData(const Pixels: array of Single; Count: Integer); virtual;
procedure DrawWaterfall; virtual;
procedure PaintWaterfall(Sender: TObject); virtual;
procedure SetWaterfallBitmapSize(W, H: Integer); virtual;
procedure ResetWfAvgBuf; virtual;
procedure ResetWfBuf; virtual;
procedure SetTheme(const T: TAppTheme); virtual;
end;
implementation