Changeset 352 for trunk/LocalPlayer/NatStat.pas

Timestamp:

Apr 6, 2021, 10:16:55 PM (3 years ago)

Author:

chronos

Message:

• Modified: TTexture changed from record to class.
• Modified: Code cleanup.

File:

• trunk/LocalPlayer/NatStat.pas (modified) (2 diffs)

trunk/LocalPlayer/NatStat.pas

@@ -107 +107 @@
 procedure TNatStatDlg.CheckAge;
 begin
-  if MainTextureAge <> AgePrepared then
-  begin
-    AgePrepared := MainTextureAge;
+  if MainTexture.Age <> AgePrepared then begin
+    AgePrepared := MainTexture.Age;
     BitBltCanvas(Back.Canvas, 0, 0, ClientWidth, ClientHeight,
-      MainTexture.Image.Canvas, (wMainTexture - ClientWidth) div 2,
-      (hMainTexture - ClientHeight) div 2);
+      MainTexture.Image.Canvas, (MainTexture.Width - ClientWidth) div 2,
+      (MainTexture.Height - ClientHeight) div 2);
     ImageOp_B(Back, Template, 0, 0, 0, 0, ClientWidth, ClientHeight);
   end;
@@ -358 +357 @@
       with Canvas do
       begin
-        Brush.Color := MainTexture.clBevelShade;
+        Brush.Color := MainTexture.ColorBevelShade;
         FillRect(Rect(xReport + wReport, yReport + PaperShade,
           xReport + wReport + PaperShade, yReport + hReport + PaperShade));