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

Make VFO overlay more transparent

Browse Source
This commit is contained in:
ew8bak
2026-05-27 09:53:41 +03:00
parent dd9e0da29e
commit 047c9b0997
2 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
SpectrumViewOpengl.pas
+2 -2
View File
@@ -17,7 +17,7 @@ interface
uses uses
Classes, SysUtils, Graphics, Controls, Math, Types, Classes, SysUtils, Graphics, Controls, Math, Types,
OpenGLContext, GL, OpenGLContext, GL,
AppTheme, SpectrumView, WaterfallViewOpengl; AppTheme, SpectrumView, VfoOverlay, WaterfallViewOpengl;
type type
TGLTextureCache = record TGLTextureCache = record
@@ -723,7 +723,7 @@ begin
B := TBitmap.Create; B := TBitmap.Create;
try try
FVfoOverlay.DrawOverlayBitmap(B); FVfoOverlay.DrawOverlayBitmap(B);
UploadBitmap(FVfoOverlayTex, B, True, 218); UploadBitmap(FVfoOverlayTex, B, True, VFO_OVERLAY_ALPHA);
finally finally
B.Free; B.Free;
end; end;
VfoOverlay.pas
+4 -1
View File
@@ -7,6 +7,9 @@ interface
uses uses
Classes, SysUtils, Controls, Graphics, Types, Math; Classes, SysUtils, Controls, Graphics, Types, Math;
const
VFO_OVERLAY_ALPHA = 200;
type type
TModeFilterEvent = procedure(Mode: Integer; FilterBW: Integer) of object; TModeFilterEvent = procedure(Mode: Integer; FilterBW: Integer) of object;
TDSPChangeEvent = procedure(NRMode, NBMode: Integer; SNBOn, ANFOn: Boolean) of object; TDSPChangeEvent = procedure(NRMode, NBMode: Integer; SNBOn, ANFOn: Boolean) of object;
@@ -630,7 +633,7 @@ begin
DrawSelf(FCacheBitmap.Canvas, Width, Height); DrawSelf(FCacheBitmap.Canvas, Width, Height);
FCacheDirty := False; FCacheDirty := False;
end; end;
BlendBitmapKey(Target, FCacheBitmap, Left, Top, 218); BlendBitmapKey(Target, FCacheBitmap, Left, Top, VFO_OVERLAY_ALPHA);
end; end;
procedure TVfoOverlay.DrawOverlayBitmap(Target: TBitmap); procedure TVfoOverlay.DrawOverlayBitmap(Target: TBitmap);