Improved speed of Material design button

bcmaterialdesignbutton.pas

@@ -30,6 +30,7 @@ type
     FTextStyle: TFontStyles;
     FTimer: TTimer;
     FBGRA: TBGRABitmap;
+    FBGRAShadow: TBGRABitmap;
     FMousePos: TPoint;
     FCircleSize: single;
     FCircleAlpha: byte;
@@ -54,6 +55,7 @@ type
       X, Y: integer); override;
     class function GetControlClassDefaultSize: TSize; override;
     procedure TextChanged; override;
+    procedure UpdateShadow;
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -139,6 +141,7 @@ begin
   if FShadowColor = AValue then
     Exit;
   FShadowColor := AValue;
+  UpdateShadow;
   Invalidate;
 end;
 
@@ -147,6 +150,7 @@ begin
   if FShadowSize = AValue then
     Exit;
   FShadowSize := AValue;
+  UpdateShadow;
   Invalidate;
 end;
 
@@ -171,6 +175,7 @@ begin
   if FTextShadowColor = AValue then
     Exit;
   FTextShadowColor := AValue;
+  UpdateShadow;
   Invalidate;
 end;
 
@@ -250,22 +255,16 @@ var
   temp: TBGRABitmap;
 begin
   if (FBGRA.Width <> Width) or (FBGRA.Height <> Height) then
+  begin
     FBGRA.SetSize(Width, Height);
+    FBGRAShadow.SetSize(Width, Height);
+    UpdateShadow;
+  end;
 
-  { Shadow }
-  FBGRA.Fill(BGRAPixelTransparent);
-  FBGRA.RoundRectAntialias(FShadowSize, FShadowSize, Width - FShadowSize,
-    Height - FShadowSize, FRoundBorders, FRoundBorders,
-    ColorToBGRA(FShadowColor), 1, ColorToBGRA(FShadowColor), [rrDefault]);
-
-  temp := FBGRA.FilterBlurRadial(FShadowSize, FShadowSize, rbFast) as TBGRABitmap;
-  FBGRA.Fill(BGRAPixelTransparent);
-  FBGRA.PutImage(0, 0, temp, dmDrawWithTransparency);
-  temp.Free;
+  FBGRA.FillTransparent;
+  FBGRA.PutImage(0, 0, FBGRAShadow, dmDrawWithTransparency);
 
-  { Round Rectangle }
   temp := TBGRABitmap.Create(Width, Height, FNormalColor);
-  { Circle Effect }
   temp.EllipseAntialias(FMousePos.X, FMousePos.Y, FCircleSize, FCircleSize,
     ColorToBGRA(FNormalColorEffect, FCircleAlpha), 1,
     ColorToBGRA(FNormalColorEffect, FCircleAlpha));
@@ -273,7 +272,6 @@ begin
     FRoundBorders, FRoundBorders, temp, [rrDefault], False);
   temp.Free;
 
-  { Text }
   if Caption <> '' then
   begin
     temp := TextShadow(Width, Height - FShadowSize, Caption, FTextSize,
@@ -307,6 +305,16 @@ begin
   Invalidate;
 end;
 
+procedure TBCMaterialDesignButton.UpdateShadow;
+begin
+  FBGRAShadow.FillTransparent;
+  FBGRAShadow.RoundRectAntialias(FShadowSize, FShadowSize, Width - FShadowSize,
+    Height - FShadowSize, FRoundBorders, FRoundBorders,
+    ColorToBGRA(FShadowColor), 1, ColorToBGRA(FShadowColor), [rrDefault]);
+  BGRAReplace(FBGRAShadow, FBGRAShadow.FilterBlurRadial(FShadowSize,
+    FShadowSize, rbFast) as TBGRABitmap);
+end;
+
 constructor TBCMaterialDesignButton.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
@@ -318,6 +326,7 @@ begin
   FTimer.OnStartTimer := @OnStartTimer;
   FTimer.OnTimer := @OnTimer;
   FBGRA := TBGRABitmap.Create(Width, Height);
+  FBGRAShadow := TBGRABitmap.Create(Width, Height);
   FRoundBorders := 5;
   FNormalColor := clWhite;
   FNormalColorEffect := clSilver;
@@ -340,6 +349,7 @@ begin
   FTimer.OnStartTimer := nil;
   FTimer.OnTimer := nil;
   FreeAndNil(FBGRA);
+  FreeAndNil(FBGRAShadow);
   inherited Destroy;
 end;
 

test/test_extra/material_design_animation/umain.lfm

@@ -1,11 +1,11 @@
 object Form1: TForm1
   Left = 465
-  Height = 240
+  Height = 343
   Top = 182
-  Width = 320
+  Width = 538
   Caption = 'Form1'
-  ClientHeight = 240
-  ClientWidth = 320
+  ClientHeight = 343
+  ClientWidth = 538
   Color = clWhite
   LCLVersion = '1.6.0.4'
   object Button1: TBGRAGraphicControl
@@ -13,7 +13,6 @@ object Form1: TForm1
     Height = 57
     Top = 48
     Width = 196
-    Anchors = [akTop, akLeft, akRight, akBottom]
     OnRedraw = Button1Redraw
     Color = clWhite
     ColorOpacity = 128
@@ -22,20 +21,21 @@ object Form1: TForm1
   end
   object BCMaterialDesignButton1: TBCMaterialDesignButton
     Left = 48
-    Height = 49
+    Height = 152
     Top = 112
-    Width = 196
+    Width = 414
     TextColor = 8404992
     TextSize = 22
     TextStyle = [fsItalic]
     TextFont = 'default'
+    Anchors = [akTop, akLeft, akRight, akBottom]
     Caption = 'Material Design'
     OnClick = BCMaterialDesignButton1Click
   end
   object BCMaterialDesignButton2: TBCMaterialDesignButton
-    Left = 240
-    Height = 58
-    Top = 176
+    Left = 458
+    Height = 53
+    Top = 284
     Width = 66
     RoundBorders = 25
     NormalColor = 8404992
@@ -45,6 +45,7 @@ object Form1: TForm1
     TextColor = clWhite
     TextSize = 30
     TextFont = 'default'
+    Anchors = [akRight, akBottom]
     Caption = '@'
   end
   object Timer1: TTimer

test/test_extra/material_design_animation/umain.pas

@@ -52,7 +52,7 @@ end;
 
 procedure TForm1.BCMaterialDesignButton1Click(Sender: TObject);
 begin
-  ShowMessage('Click');
+  //ShowMessage('Click');
 end;
 
 procedure TForm1.Button1Redraw(Sender: TObject; Bitmap: TBGRABitmap);