Changeset 531 for trunk/LocalPlayer/Nego.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/LocalPlayer/Nego.pas

@@ -481 +481 @@
 procedure TNegoDlg.OffscreenPaint;
 var
-  I, cred: Integer;
+  I, Cred: Integer;
   S: string;
   OkEnabled: Boolean;
@@ -600 +600 @@
   // show credibility
   Offscreen.Canvas.Font.Assign(UniFont[ftTiny]);
-  cred := MyRO.EnemyReport[DipMem[Me].pContact].Credibility;
-  case cred of
+  Cred := MyRO.EnemyReport[DipMem[Me].pContact].Credibility;
+  case Cred of
     0 .. 49:
       I := 3;
@@ -609 +609 @@
       I := 1;
   end;
-  PaintProgressBar(Offscreen.Canvas, I, xCred0, yCred0 + 17, (cred + 2) div 5,
+  PaintProgressBar(Offscreen.Canvas, I, xCred0, yCred0 + 17, (Cred + 2) div 5,
     0, 20, MainTexture);
-  S := IntToStr(cred);
+  S := IntToStr(Cred);
   RisedTextOut(Offscreen.Canvas, xCred0 + 10 -
     (BiColorTextWidth(Offscreen.Canvas, S) + 1) div 2, yCred0, S);