Change optimization level to O3. Hide hints.

bcimagebutton.pas

@@ -82,7 +82,7 @@ type
     procedure DoMouseUp; virtual;
     procedure DoMouseEnter; virtual;
     procedure DoMouseLeave; virtual;
-    procedure DoMouseMove(x, y: integer); virtual;
+    procedure DoMouseMove({%H-}x, {%H-}y: integer); virtual;
   protected
     procedure Click; override;
     procedure MouseDown(Button: TMouseButton; Shift: TShiftState;

bcrtti.pas

@@ -82,7 +82,7 @@ procedure SaveStyle(AControl: TObject; const AAuthor, ADescription: String;
 
 implementation
 
-uses typinfo, variants, sysutils, strutils;
+uses typinfo, variants, sysutils, {%H-}strutils;
 
 const
   tIGNORED_PROPS: array[0..5] of string =

bgracontrols.lpk

@@ -21,7 +21,7 @@
       </Parsing>
       <CodeGeneration>
         <Optimizations>
-          <OptimizationLevel Value="0"/>
+          <OptimizationLevel Value="3"/>
           <VariablesInRegisters Value="True"/>
         </Optimizations>
       </CodeGeneration>
@@ -33,7 +33,7 @@
     </CompilerOptions>
     <Description Value="BGRA Controls is a set of graphical UI elements that you can use with Lazarus LCL applications."/>
     <License Value="Modified LGPL"/>
-    <Version Major="6" Release="3"/>
+    <Version Major="6" Release="4"/>
     <Files Count="47">
       <Item1>
         <Filename Value="bcbasectrls.pas"/>

colorspeedbutton.pas

@@ -64,13 +64,13 @@ type
     procedure SetFToggle(AValue: boolean);
   protected
     {$ifdef overridepaint}
-    procedure DrawText(ACanvas: TPersistent; Details: TThemedElementDetails;
-      const S: string; R: TRect; Flags, Flags2: cardinal);
+    procedure DrawText({%H-}ACanvas: TPersistent; {%H-}Details: TThemedElementDetails;
+      const S: string; R: TRect; Flags, {%H-}Flags2: cardinal);
     procedure MeasureDraw(Draw: boolean; PaintRect: TRect;
       out PreferredWidth, PreferredHeight: integer);
     procedure Paint; override;
     procedure CalculatePreferredSize(var PreferredWidth, PreferredHeight: integer;
-      WithThemeSpace: boolean); override;
+      {%H-}WithThemeSpace: boolean); override;
     {$endif}
     procedure PaintBackground(var PaintRect: TRect); {$IFDEF FPC}override;{$ENDIF}
   public

update_bgracontrols_force.json

@@ -6,9 +6,9 @@
   "UpdatePackageFiles" : [
     {
       "ForceNotify" : true,
-      "InternalVersion" : 21,
+      "InternalVersion" : 22,
       "Name" : "bgracontrols.lpk",
-      "Version" : "6.0.3.0"
+      "Version" : "6.0.4.0"
     },
     {
       "ForceNotify" : false,