Changeset 531 for trunk/LocalPlayer/Rates.pas

Timestamp:

Mar 27, 2024, 12:31:14 PM (6 weeks ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/LocalPlayer/Rates.pas (modified) (3 diffs)

trunk/LocalPlayer/Rates.pas

@@ -45 +45 @@
 procedure TRatesDlg.OffscreenPaint;
 var
-  P, X, Y, current, Max, I: Integer;
+  P, X, Y, Current, Max, I: Integer;
   S, s1: string;
 begin
@@ -112 +112 @@
     X := 16;
     Y := 81;
-    current := (100 - MyRO.LuxRate - MyRO.TaxRate) * 120 div 100;
+    Current := (100 - MyRO.LuxRate - MyRO.TaxRate) * 120 div 100;
     Max := 120;
     Frame(Offscreen.Canvas, X - 1, Y - 1, X + Max, Y + 7, $000000, $000000);
@@ -119 +119 @@
     with Offscreen.Canvas do
     begin
-      for I := 0 to current div 8 - 1 do
+      for I := 0 to Current div 8 - 1 do
         BitBltBitmap(Offscreen, X + Max - 8 - I * 8, Y, 8, 7,
           HGrSystem.Data, 104, 9 + 8 * 2);
-      BitBltBitmap(Offscreen, X + Max - current, Y, current - 8 * (current div 8), 7,
+      BitBltBitmap(Offscreen, X + Max - Current, Y, Current - 8 * (Current div 8), 7,
         HGrSystem.Data, 104, 9 + 8 * 2);
       Brush.Color := $000000;
-      FillRect(Rect(X, Y, X + Max - current, Y + 7));
+      FillRect(Rect(X, Y, X + Max - Current, Y + 7));
       Brush.Style := TBrushStyle.bsClear;
     end;