Changeset 361 for branches/highdpi/NoTerm.pas

Timestamp:

Apr 9, 2021, 5:56:50 PM (4 years ago)

Author:

chronos

Message:

• Modified: Merged changes from trunk r360 into highdpi branch.

File:

• branches/highdpi/NoTerm.pas (modified) (3 diffs)

branches/highdpi/NoTerm.pas

@@ -80 +80 @@
   Canvas.Font.Assign(UniFont[ftSmall]);
   TitleHeight := 36;
-  InitButtons();
+  InitButtons;
   LastShowYearTime := 0;
 end;
@@ -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);