Make VFO overlay more transparent

This commit is contained in:
2026-05-27 09:53:41 +03:00
parent dd9e0da29e
commit 047c9b0997
2 changed files with 6 additions and 3 deletions
+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);