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

trunk/NoTerm.pas

@@ -310 +310 @@
   Frame(Canvas, 0, 0, ClientWidth - 1, ClientHeight - 1, $000000, $000000);
   Frame(Canvas, 1, 1, ClientWidth - 2, ClientHeight - 2,
-    MainTexture.clBevelLight, MainTexture.clBevelShade);
+    MainTexture.ColorBevelLight, MainTexture.ColorBevelShade);
   Frame(Canvas, 2, 2, ClientWidth - 3, ClientHeight - 3,
-    MainTexture.clBevelLight, MainTexture.clBevelShade);
+    MainTexture.ColorBevelLight, MainTexture.ColorBevelShade);
   Corner(Canvas, 1, 1, 0, MainTexture);
   Corner(Canvas, ClientWidth - 9, 1, 1, MainTexture);
@@ -325 +325 @@
     begin
       Frame(Canvas, xBrain[i] - 24, yBrain[i] - 8 - 16, xBrain[i] - 24 + 111,
-        yBrain[i] - 8 - 16 + 111, MainTexture.clBevelShade,
-        MainTexture.clBevelShade);
+        yBrain[i] - 8 - 16 + 111, MainTexture.ColorBevelShade,
+        MainTexture.ColorBevelShade);
       FrameImage(Canvas, PlayersBrain[i].Picture, xBrain[i],
         yBrain[i] - 16, 64, 64, 0, 0);