Changeset 486 for trunk/Packages

Timestamp:

Dec 8, 2023, 8:25:31 PM (5 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/Packages/CevoComponents/ScreenTools.pas (modified) (3 diffs)

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -92 +92 @@
   T: TTexture);
 procedure PaintRelativeProgressBar(Canvas: TCanvas;
-  Kind, X, Y, size, Pos, Growth, Max: Integer; IndicateComplete: Boolean;
+  Kind, X, Y, Size, Pos, Growth, Max: Integer; IndicateComplete: Boolean;
   T: TTexture);
 procedure PaintLogo(Canvas: TCanvas; X, Y, LightColor, ShadeColor: Integer);
@@ -1534 +1534 @@
     end;
     Brush.Color := $000000;
-    FillRect(Rect(X + Pos + abs(Growth), Y, X + Max, Y + 7));
+    FillRect(Rect(X + Pos + Abs(Growth), Y, X + Max, Y + 7));
     Brush.Style := TBrushStyle.bsClear;
   end;
@@ -1541 +1541 @@
 // pos and growth are relative to max, set size independent
 procedure PaintRelativeProgressBar(Canvas: TCanvas;
-  Kind, X, Y, size, Pos, Growth, Max: Integer; IndicateComplete: Boolean;
+  Kind, X, Y, Size, Pos, Growth, Max: Integer; IndicateComplete: Boolean;
   T: TTexture);
 begin
   if Growth > 0 then
-    PaintProgressBar(Canvas, Kind, X, Y, Pos * size div Max,
-      (Growth * size + Max div 2) div Max, size, T)
+    PaintProgressBar(Canvas, Kind, X, Y, Pos * Size div Max,
+      (Growth * Size + Max div 2) div Max, Size, T)
   else
-    PaintProgressBar(Canvas, Kind, X, Y, Pos * size div Max,
-      (Growth * size - Max div 2) div Max, size, T);
+    PaintProgressBar(Canvas, Kind, X, Y, Pos * Size div Max,
+      (Growth * Size - Max div 2) div Max, Size, T);
   if IndicateComplete and (Pos + Growth >= Max) then
-    Sprite(Canvas, HGrSystem, X + size - 10, Y - 7, 23, 16, 1, 129);
+    Sprite(Canvas, HGrSystem, X + Size - 10, Y - 7, 23, 16, 1, 129);
 end;