less warnings

bcsvgbutton.pas

@@ -219,8 +219,6 @@ begin
 end;
 
 procedure TBCSVGButton.setFFileNameDown(const AValue: string);
-var li,st:ansistring;
-    F:Text;
 begin
   If AValue<>'' then ReadSVGFileAndSetString(Avalue,2);
 End;

bgracontrols.pas

@@ -15,7 +15,7 @@ uses
   BGRAImageList, BGRAImageManipulation, BGRAKnob, BGRAResizeSpeedButton, 
   BGRAShape, BGRASpeedButton, BGRASpriteAnimation, BGRAVirtualScreen, 
   ColorSpeedButton, DTAnalogClock, DTAnalogGauge, dtthemedclock, 
-  dtthemedgauge, MaterialColors, bcmdbutton, bcmdbuttonfocus, 
+  dtthemedgauge, MaterialColors, BCMDButton, BCMDButtonFocus, 
   LazarusPackageIntf;
 
 implementation
@@ -50,8 +50,8 @@ begin
   RegisterUnit('DTAnalogGauge', @DTAnalogGauge.Register);
   RegisterUnit('dtthemedclock', @dtthemedclock.Register);
   RegisterUnit('dtthemedgauge', @dtthemedgauge.Register);
-  RegisterUnit('bcmdbutton', @bcmdbutton.Register);
-  RegisterUnit('bcmdbuttonfocus', @bcmdbuttonfocus.Register);
+  RegisterUnit('BCMDButton', @BCMDButton.Register);
+  RegisterUnit('BCMDButtonFocus', @BCMDButtonFocus.Register);
 end;
 
 initialization

bgraflashprogressbar.pas

@@ -161,7 +161,6 @@ procedure TBGRAFlashProgressBar.Paint;
 var
   content: TRect;
   xpos, y, tx, ty: integer;
-  grayValue: integer;
   bgColor: TBGRAPixel;
 
   function ApplyLightness(c: TBGRAPixel; lightness: word): TBGRAPixel;

bgraspeedbutton.pas

@@ -60,8 +60,8 @@ type
     { Protected declarations }
     {$IFDEF BGRA_DRAW}
     function DrawGlyph(ACanvas: TCanvas; const AClient: TRect;
-      const AOffset: TPoint; AState: TButtonState; ATransparent: boolean;
-      BiDiFlags: longint): TRect; override;
+      const AOffset: TPoint; AState: TButtonState; {%H-}ATransparent: boolean;
+      {%H-}BiDiFlags: longint): TRect; override;
     {$ENDIF}
   public
     { Public declarations }
@@ -94,19 +94,21 @@ begin
   {Result := inherited DrawGlyph(ACanvas, AClient, AOffset, AState,
     ATransparent, BiDiFlags); }
 
-  if Glyph = nil then
+  if not Assigned(Glyph) then
+  begin
+    Result := Rect(0,0,0,0);
     Exit;
+  end;
+
   { It's not good solution assigning glyph on each draw call but FGlyph and SetGlyph is
     in private section }
   FBGRA.Assign(Glyph);
 
-  if Assigned(Glyph) then
-  begin
-    if (AState = bsDown) or (Down = True) then
-      FBGRA.Draw(ACanvas, AOffset.x + 1, AOffset.y + 1, False)
-    else
-      FBGRA.Draw(ACanvas, AOffset.x, AOffset.y, False);
-  end;
+  if (AState = bsDown) or (Down = True) then
+    FBGRA.Draw(ACanvas, AOffset.x + 1, AOffset.y + 1, False)
+  else
+    FBGRA.Draw(ACanvas, AOffset.x, AOffset.y, False);
+  Result:= AClient;
 end;
 
 constructor TBGRASpeedButton.Create(AOwner: TComponent);

colorspeedbutton.pas

@@ -10,7 +10,7 @@ interface
 
 uses
   Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
-  Buttons, BGRASpeedButton, Types, LCLType, Themes, Math, LCLProc;
+  Buttons, BGRASpeedButton, Types, LCLType, Themes, LCLProc;
 
 type
 
@@ -37,7 +37,9 @@ type
 
   TColorSpeedButton = class(TBGRASpeedButton)
   private
+    {$ifdef overridepaint}
     FLastDrawDetails: TThemedElementDetails;
+    {$endif}
     FPopupMode: boolean;
     FPressed: boolean;
     FStateActive: TColorState;