Fix for shadow in fxmaterialbutton.pas

bgrabitmap · Oct 26, 2016 · 00c09b0 · 00c09b0
1 parent 0039177
commit 00c09b0
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 2 deletions.
diff --git a/bgracontrolsfx.lpk b/bgracontrolsfx.lpk
@@ -17,7 +17,7 @@
         </Optimizations>
       </CodeGeneration>
     </CompilerOptions>
-    <Version Minor="1" Release="4"/>
+    <Version Minor="1" Release="5"/>
     <Files Count="5">
       <Item1>
         <Filename Value="fxbutton.pas"/>

diff --git a/bgracontrolsfx.pas b/bgracontrolsfx.pas
@@ -4,7 +4,6 @@
 
 unit BGRAControlsFX;
 
-{$warn 5023 off : no warning about unused units}
 interface
 
 uses

diff --git a/fxmaterialbutton.pas b/fxmaterialbutton.pas
@@ -442,6 +442,7 @@ procedure TFXMaterialButton.UpdateShadow;
     temp.Free;
   end;
   FNeedDraw := True;
+  FXLayers[0].Texture := nil;
 end;
 
 procedure TFXMaterialButton.DrawTextShadow(AHeight: integer; ATextColor: TColor);
@@ -558,6 +559,8 @@ procedure TFXMaterialButton.Draw;
   end
   else
   begin
+    FXLayers[0].BGRA.FillTransparent;
+    FXLayers[0].Texture := nil;
     FXLayers[1].BGRA.FillTransparent;
     FXLayers[1].Texture := nil;
   end;