Update unit1.pas

test/test_bgravirtualscreen_blur/unit1.pas

@@ -57,7 +57,7 @@ begin
   if TControl(Sender).Tag = 1 then
   begin
     Bitmap.StretchPutImageProportionally(Rect(-TControl(Sender).Left,-TControl(Sender).Top,Width-TControl(Sender).Left,Height-TControl(Sender).Top), taCenter, tlCenter, backgroundblur, dmSet);
-    Bitmap.RoundRectAntialias(0, 0, Bitmap.Width-1, Bitmap.Height-1, 5, 5, BGRA(255, 255, 255, 100), 1, BGRA(255, 255, 255, 10));
+    Bitmap.RoundRectAntialias(0, 0, Bitmap.Width-1, Bitmap.Height-1, 5, 5, BGRA(255, 255, 255, 30), 1, BGRA(255, 255, 255, 10));
     Bitmap.PutImage(0, 0, backgroundnoise, dmDrawWithTransparency, 2);
   end
   else