mirror of
https://git.vladimir.cc/vladimir/ewsdr.git
synced 2026-08-25 20:37:33 +00:00
Make VFO overlay more transparent
This commit is contained in:
+4
-1
@@ -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);
|
||||
|
||||
Reference in New Issue
Block a user