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

trunk/Direct.pas

@@ -60 +60 @@
   case ID of
     ntInitLocalHuman: begin
-      SetMainTextureByAge(-1);
+      MainTexture.Age := -1;
       State := -1;
       Info := Phrases.Lookup('BUSY_MODLH');
@@ -151 +151 @@
         while BiColorTextWidth(Canvas, Info) + 64 > ClientWidth do
           Delete(Info, Length(Info), 1);
-        SetMainTextureByAge(-1);
+        MainTexture.Age := -1;
         State := -1;
         Show;
@@ -276 +276 @@
   Frame(Canvas, 0, 0, ClientWidth - 1, ClientHeight - 1, 0, 0);
   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);
   if State >= 0 then
     RisedTextOut(Canvas, (ClientWidth - BiColorTextWidth(Canvas, Info))