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

branches/highdpi/LocalPlayer/Diagram.pas

@@ -63 +63 @@
   Canvas.Brush.Style := bsClear;
     ScreenTools.Frame(canvas, Left - 1, Top - 1, Left + Width, Top + 200,
-      MainTexture.clBevelShade, MainTexture.clBevelLight);
+      MainTexture.ColorBevelShade, MainTexture.ColorBevelLight);
     RFrame(canvas, Left - 2, Top - 2, Left + Width + 1, Top + 200 + 1,
-      MainTexture.clBevelShade, MainTexture.clBevelLight);
+      MainTexture.ColorBevelShade, MainTexture.ColorBevelLight);
 
     // stars
@@ -132 +132 @@
   CaptionRight := CloseBtn.Left;
   CaptionLeft := ToggleBtn.Left + ToggleBtn.Width;
-  InitButtons();
+  InitButtons;
 end;
 
@@ -163 +163 @@
   begin
     LoweredTextOut(offscreen.canvas, -1, MainTexture, x - 2, y, Cap);
-    DLine(offscreen.canvas, x - 2, x + 169, y + 16, MainTexture.clTextShade,
-      MainTexture.clTextLight);
+    DLine(offscreen.canvas, x - 2, x + 169, y + 16, MainTexture.ColorTextShade,
+      MainTexture.ColorTextLight);
     if val0 > 0 then
       s := Format(Phrases.Lookup('SHARE'), [val0, val1])