From 047c9b09973f5699c2ab6f498e6dc05e93deb0a2 Mon Sep 17 00:00:00 2001
From: Uladzimir Karpenka <i@vladimir.cc>
Date: Wed, 27 May 2026 09:53:41 +0300
Subject: [PATCH] Make VFO overlay more transparent

---
 SpectrumViewOpengl.pas | 4 ++--
 VfoOverlay.pas         | 5 ++++-
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/SpectrumViewOpengl.pas b/SpectrumViewOpengl.pas
index b3817e4..31a5b2f 100644
--- a/SpectrumViewOpengl.pas
+++ b/SpectrumViewOpengl.pas
@@ -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;
diff --git a/VfoOverlay.pas b/VfoOverlay.pas
index 246bb20..f8e8633 100644
--- a/VfoOverlay.pas
+++ b/VfoOverlay.pas
@@ -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);