improved demo

test/test_bgravirtualscreen_blur/unit1.lfm

@@ -1,26 +1,27 @@
 object Form1: TForm1
   Left = 404
-  Height = 629
+  Height = 768
   Top = 289
-  Width = 1013
+  Width = 1024
   Caption = 'Form1'
-  ClientHeight = 629
-  ClientWidth = 1013
+  ClientHeight = 768
+  ClientWidth = 1024
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   OnResize = FormResize
+  Position = poScreenCenter
   LCLVersion = '2.2.6.0'
   object BGRAVirtualScreen1: TBGRAVirtualScreen
     Left = 0
-    Height = 629
+    Height = 768
     Top = 0
-    Width = 1013
+    Width = 1024
     OnRedraw = BGRAVirtualScreen2Redraw
     Align = alClient
     Alignment = taLeftJustify
     BevelOuter = bvRaised
-    ClientHeight = 629
-    ClientWidth = 1013
+    ClientHeight = 768
+    ClientWidth = 1024
     Color = clWhite
     ParentColor = False
     TabOrder = 0
@@ -32,7 +33,6 @@ object Form1: TForm1
       Width = 170
       OnRedraw = BGRAVirtualScreen2Redraw
       Alignment = taLeftJustify
-      BevelOuter = bvRaised
       ClientHeight = 224
       ClientWidth = 170
       Color = clWhite
@@ -74,13 +74,12 @@ object Form1: TForm1
     end
     object BGRAVirtualScreen3: TBGRAVirtualScreen
       Tag = 1
-      Left = 184
+      Left = 200
       Height = 224
       Top = 8
       Width = 170
       OnRedraw = BGRAVirtualScreen2Redraw
       Alignment = taLeftJustify
-      BevelOuter = bvRaised
       ClientHeight = 224
       ClientWidth = 170
       Color = clWhite
@@ -684,15 +683,14 @@ object Form1: TForm1
     object BGRAVirtualScreen4: TBGRAVirtualScreen
       Tag = 1
       Left = 8
-      Height = 352
+      Height = 491
       Top = 264
-      Width = 992
+      Width = 1003
       OnRedraw = BGRAVirtualScreen2Redraw
       Alignment = taLeftJustify
       Anchors = [akTop, akLeft, akRight, akBottom]
-      BevelOuter = bvRaised
-      ClientHeight = 352
-      ClientWidth = 992
+      ClientHeight = 491
+      ClientWidth = 1003
       Color = clWhite
       ParentColor = False
       TabOrder = 2

test/test_bgravirtualscreen_blur/unit1.pas

@@ -6,7 +6,8 @@ interface
 
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, BGRAVirtualScreen,
-  BCLabel, BGRABitmap, BCTypes, BCPanel, BCButton, BGRABitmapTypes, Types;
+  BCLabel, BGRABitmap, BCTypes, BCPanel, BCButton, BGRABitmapTypes, Types,
+  BCFilters;
 
 type
 
@@ -31,6 +32,7 @@ type
     procedure FormResize(Sender: TObject);
   private
     background: TBGRABitmap;
+    backgroundnoise: TBGRABitmap;
     backgroundblur: TBGRABitmap;
   public
 
@@ -47,17 +49,32 @@ implementation
 
 procedure TForm1.BGRAVirtualScreen2Redraw(Sender: TObject; Bitmap: TBGRABitmap);
 var
-  blur: TBGRABitmap;
+  i: integer;
+  vs: TBGRAVirtualScreen;
+  shadow: TBGRABitmap;
 begin
   Bitmap.Fill(BGRABlack);
   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.Rectangle(0, 0, Bitmap.Width, Bitmap.Height, BGRA(255, 255, 255, 100), BGRA(255, 255, 255, 10), dmDrawWithTransparency);
+    Bitmap.RoundRectAntialias(0, 0, Bitmap.Width-1, Bitmap.Height-1, 5, 5, BGRA(255, 255, 255, 100), 1, BGRA(255, 255, 255, 10));
+    Bitmap.StretchPutImageProportionally(Rect(-TControl(Sender).Left,-TControl(Sender).Top,Width-TControl(Sender).Left,Height-TControl(Sender).Top), taCenter, tlCenter, backgroundnoise, dmDrawWithTransparency, 2);
   end
   else
   begin
+    shadow := TBGRABitmap.Create(Width, Height, BGRAPixelTransparent);
     Bitmap.StretchPutImageProportionally(Rect(0,0,Width,Height), taCenter, tlCenter,  background, dmSet);
+    for i:=0 to TWinControl(Sender).ControlCount-1 do
+    begin
+      if (TWinControl(Sender).Controls[i] is TBGRAVirtualScreen) then
+      begin
+        vs := (TWinControl(Sender).Controls[i] as TBGRAVirtualScreen);
+        shadow.FillRect(vs.Left, vs.Top, vs.Left+vs.Width, vs.Top+vs.Height, BGRABlack, dmSet);
+      end;
+    end;
+    BGRAReplace(shadow, shadow.FilterBlurRadial(8, 8, rbBox));
+    Bitmap.PutImage(0, 0, shadow, dmDrawWithTransparency);
+    shadow.Free;
   end;
 end;
 
@@ -65,13 +82,16 @@ procedure TForm1.FormCreate(Sender: TObject);
 begin
   background := TBGRABitmap.Create('background.jpg');
   //BGRAReplace(background, background.Resample(Width, Height, rmFineResample));
-  backgroundblur := background.FilterBlurRadial(10, 10, rbBox);
+  backgroundblur := background.FilterBlurRadial(20, 20, rbBox);
+  backgroundnoise := TBGRABitmap.Create(Width, Height, BGRABlack);
+  NoiseBW(backgroundnoise);
 end;
 
 procedure TForm1.FormDestroy(Sender: TObject);
 begin
   background.Free;
   backgroundblur.Free;
+  backgroundnoise.Free;
 end;
 
 procedure TForm1.FormResize(Sender: TObject);