Changeset 178 for branches/highdpi/NoTerm.pas

Timestamp:

Jun 23, 2019, 3:15:29 PM (5 years ago)

Author:

chronos

Message:

• Modified: Use DpiControls package for High DPI support.

File:

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

branches/highdpi/NoTerm.pas

@@ -6 +6 @@
 uses
   ScreenTools, Protocol, Messg, LCLIntf, LCLType, dateutils, Platform,
-  SysUtils, Classes, Graphics, Controls, Forms, ButtonB, DrawDlg;
+  SysUtils, Classes, Graphics, Controls, Forms, ButtonB, DrawDlg, UDpiControls;
 
 type
@@ -25 +25 @@
     G: TNewGameData;
     Server: TServerCall;
-    Shade, State: TBitmap;
+    Shade, State: TDpiBitmap;
     WinStat, ExtStat, AloneStat: array [0 .. nPl - 1] of integer;
     DisallowShowActive: array [0 .. nPl - 1] of boolean;
@@ -147 +147 @@
         Server := TInitModuleData(Data).Server;
         TInitModuleData(Data).Flags := aiThreaded;
-        Shade := TBitmap.Create;
+        Shade := TDpiBitmap.Create;
         Shade.SetSize(64, 64);
         for x := 0 to 63 do
@@ -155 +155 @@
             else
               Shade.Canvas.Pixels[x, y] := $000000;
-        State := TBitmap.Create;
+        State := TDpiBitmap.Create;
         State.SetSize(192, 20);
         State.Canvas.Brush.Style := bsClear;
@@ -174 +174 @@
         begin
           Invalidate;
-          Update
+          Update;
         end
         else