Changeset 361 for branches/highdpi/LocalPlayer/Nego.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/LocalPlayer/Nego.pas (modified) (3 diffs)

branches/highdpi/LocalPlayer/Nego.pas

@@ -144 +144 @@
   cix: integer;
 begin
-  InitButtons();
+  InitButtons;
   for cix := 0 to ComponentCount - 1 do
     if Components[cix] is TButtonN then
@@ -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