Merge pull request #173 from bgrabitmap/dev-bgracontrols

Dev bgracontrols
bgrabitmap · May 8, 2024 · 4d0cd5e · 4d0cd5e
2 parents cf906b8 + 7923874
commit 4d0cd5e
Show file tree

Hide file tree

Showing 5 changed files with 8 additions and 6 deletions.
diff --git a/bcfluentslider.pas b/bcfluentslider.pas
@@ -213,6 +213,7 @@ procedure TBCFluentSlider.SetOrientation(AValue: TSliderOrientation);
   if FOrientation=AValue then Exit;
   k:= ord(FOrientation) + ord(AValue)+1;
   FOrientation:=AValue;
+  if csLoading in ComponentState then exit;
   if odd(k) or (Width=Height) then
     DiscardBitmap
   else
@@ -340,7 +341,7 @@ procedure TBCFluentSlider.DrawTicks;
     else
     begin
       if FBorderWidth<2 then y:= round(p.y) else y:= p.y;
-      Bitmap.DrawLineAntialias(x + xy1, y, x+ xy2, y, c, FBorderWidth);
+      Bitmap.DrawLineAntialias(p.x + xy1, y, p.x+ xy2, y, c, FBorderWidth);
     end;
     v+= FTickFrequency;
   end;
@@ -559,6 +560,7 @@ function TBCFluentSlider.GetThumbRadius: integer;
 
 procedure TBCFluentSlider.RedrawBitmapContent;
 begin
+  Bitmap.FillTransparent;
   CalculateThumbRect;
   DrawBackground;
   FRealLineColor:= FLineColor;

diff --git a/bgracontrols.lpk b/bgracontrols.lpk
@@ -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="9" Release="1"/>
+    <Version Major="9" Release="1" Build="3"/>
     <Files Count="70">
       <Item1>
         <Filename Value="atshapelinebgra.pas"/>

diff --git a/bgracontrolsinfo.pas b/bgracontrolsinfo.pas
@@ -9,7 +9,7 @@ interface
   Classes, SysUtils;
 
 const
-  BGRAControlsVersion = 9000100;
+  BGRAControlsVersion = 9000103;
 
   function BGRAControlsVersionStr: string;
 

diff --git a/bgrapascalscriptcomponent.lpk b/bgrapascalscriptcomponent.lpk
@@ -11,7 +11,7 @@
         <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
       </SearchPaths>
     </CompilerOptions>
-    <Version Major="9" Release="1"/>
+    <Version Major="9" Release="1" Build="3"/>
     <Files Count="3">
       <Item1>
         <Filename Value="bgrapascalscript.pas"/>

diff --git a/update_bgracontrols_force.json b/update_bgracontrols_force.json
@@ -8,13 +8,13 @@
       "ForceNotify" : true,
       "InternalVersion" : 25,
       "Name" : "bgracontrols.lpk",
-      "Version" : "9.0.1.0"
+      "Version" : "9.0.1.3"
     },
     {
       "ForceNotify" : false,
       "InternalVersion" : 1,
       "Name" : "bgrapascalscriptcomponent.lpk",
-      "Version" : "9.0.1.0"
+      "Version" : "9.0.1.3"
     }
   ]
 }