Changeset 352 for trunk/LocalPlayer/Nego.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

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

trunk/LocalPlayer/Nego.pas

@@ -510 +510 @@
 
   Fill(Offscreen.Canvas, 3, 3, ClientWidth - 6, ClientHeight - 6,
-    (wMaintexture - ClientWidth) div 2, (hMaintexture - ClientHeight) div 2);
+    (Maintexture.Width - ClientWidth) div 2, (Maintexture.Height - ClientHeight) div 2);
   Frame(Offscreen.Canvas, 0, 0, ClientWidth - 1, ClientHeight - 1, 0, 0);
   Frame(Offscreen.Canvas, 1, 1, ClientWidth - 2, ClientHeight - 2,
-    MainTexture.clBevelLight, MainTexture.clBevelShade);
+    MainTexture.ColorBevelLight, MainTexture.ColorBevelShade);
   Frame(Offscreen.Canvas, 2, 2, ClientWidth - 3, ClientHeight - 3,
-    MainTexture.clBevelLight, MainTexture.clBevelShade);
+    MainTexture.ColorBevelLight, MainTexture.ColorBevelShade);
   Corner(Offscreen.Canvas, 1, 1, 0, MainTexture);
   Corner(Offscreen.Canvas, ClientWidth - 9, 1, 1, MainTexture);
@@ -565 +565 @@
   with Offscreen.Canvas do
   begin
-    Brush.Color := MainTexture.clBevelShade;
+    Brush.Color := MainTexture.ColorBevelShade;
     if History[me].Text[Page - 1] <> '' then
     begin