Changeset 352 for trunk/LocalPlayer/MessgEx.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/MessgEx.pas (modified) (2 diffs)

trunk/LocalPlayer/MessgEx.pas

@@ -357 +357 @@
   if (IconKind = mikImp) and (IconIndex = 27) then
   begin // "YOU WIN" message
-    clSaveTextLight := MainTexture.clTextLight;
-    clSaveTextShade := MainTexture.clTextShade;
-    MainTexture.clTextLight := $000000; // gold
-    MainTexture.clTextShade := $0FDBFF;
+    clSaveTextLight := MainTexture.ColorTextLight;
+    clSaveTextShade := MainTexture.ColorTextShade;
+    MainTexture.ColorTextLight := $000000; // gold
+    MainTexture.ColorTextShade := $0FDBFF;
     inherited;
-    MainTexture.clTextLight := clSaveTextLight;
-    MainTexture.clTextShade := clSaveTextShade;
+    MainTexture.ColorTextLight := clSaveTextLight;
+    MainTexture.ColorTextShade := clSaveTextShade;
   end
   else
@@ -411 +411 @@
       end;
     mikBook:
-      PaintBook(Canvas, ClientWidth div 2, 24, MainTexture.clPage,
-        MainTexture.clCover);
+      PaintBook(Canvas, ClientWidth div 2, 24, MainTexture.ColorPage,
+        MainTexture.ColorCover);
     mikTribe:
       if Assigned(Tribe[IconIndex].faceHGr) then