ew8bak/ewsdr
1
0
Fork 0
mirror of https://git.vladimir.cc/vladimir/ewsdr.git synced 2026-08-25 18:43:51 +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
Classes, SysUtils, Graphics, Controls, Math, Types,
OpenGLContext, GL,
AppTheme, SpectrumView, WaterfallViewOpengl;
AppTheme, SpectrumView, VfoOverlay, WaterfallViewOpengl;
type
TGLTextureCache = record
@@ -723,7 +723,7 @@ begin
B := TBitmap.Create;
try
FVfoOverlay.DrawOverlayBitmap(B);
UploadBitmap(FVfoOverlayTex, B, True, 218);
UploadBitmap(FVfoOverlayTex, B, True, VFO_OVERLAY_ALPHA);
finally
B.Free;
end;
VfoOverlay.pas
+4 -1
View File
@@ -7,6 +7,9 @@ interface
uses
Classes, SysUtils, Controls, Graphics, Types, Math;
const
VFO_OVERLAY_ALPHA = 200;
type
TModeFilterEvent = procedure(Mode: Integer; FilterBW: Integer) of object;
TDSPChangeEvent = procedure(NRMode, NBMode: Integer; SNBOn, ANFOn: Boolean) of object;
@@ -630,7 +633,7 @@ begin
DrawSelf(FCacheBitmap.Canvas, Width, Height);
FCacheDirty := False;
end;
BlendBitmapKey(Target, FCacheBitmap, Left, Top, 218);
BlendBitmapKey(Target, FCacheBitmap, Left, Top, VFO_OVERLAY_ALPHA);
end;
procedure TVfoOverlay.DrawOverlayBitmap(Target: TBitmap);