Merge pull request #138 from dalfy15/master

Update bcradialprogressbar.pas
bgrabitmap · Jun 17, 2023 · da56f38 · da56f38
2 parents 3e54a92 + 791bdbb
commit da56f38
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/bcradialprogressbar.pas b/bcradialprogressbar.pas
@@ -282,7 +282,7 @@ procedure TBCRadialProgressBar.RenderControl;
   if MaxValue = 0 then
     textStr := '0%'
   else
-    textStr := FloatToStr((Value / MaxValue) * 100) + '%';
+    textStr := FloatToStr(Round((Value / MaxValue) * 100)) + '%';
 
   if DrawText then
   begin