Changeset 210 for branches/highdpi/NoTerm.pas

Timestamp:

May 9, 2020, 4:02:07 PM (4 years ago)

Author:

chronos

Message:

• Modified: Improved HighDPI branch. Imported new changes from trunk branch.

File:

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

branches/highdpi/NoTerm.pas

@@ -5 +5 @@
 
 uses
-  ScreenTools, Protocol, Messg, LCLIntf, LCLType, dateutils, Platform,
-  SysUtils, Classes, Graphics, Controls, Forms, ButtonB, DrawDlg, UDpiControls;
+  UDpiControls, ScreenTools, Protocol, Messg, LCLIntf, LCLType, dateutils, Platform,
+  SysUtils, Classes, Graphics, Controls, Forms, ButtonB, DrawDlg;
 
 type
@@ -127 +127 @@
   RisedTextOut(State.Canvas, 0, 0, Format(Phrases.Lookup('AIT_ROUND'), [Round])
     + ' ' + TurnToString(G.RO[me].Turn));
-  DpiBitBlt(Canvas.Handle, 64, 287 + 138, 192, 20, State.Canvas.Handle, 0,
-    0, SRCCOPY);
+  DpiBitCanvas(Canvas, 64, 287 + 138, 192, 20, State.Canvas, 0, 0);
 end;
 
@@ -174 +173 @@
         begin
           Invalidate;
-          Update;
+          Update
         end
         else
@@ -228 +227 @@
           ToldAlive := G.RO[me].Alive;
         end;
-        Application.ProcessMessages;
+        DpiApplication.ProcessMessages;
         if Mode = Quit then
           EndPlaying
@@ -331 +330 @@
         yBrain[i] - 16, 64, 64, 0, 0);
       if 1 shl i and G.RO[me].Alive = 0 then
-        DpiBitBlt(Canvas.Handle, xBrain[i], yBrain[i] - 16, 64, 64,
-          Shade.Canvas.Handle, 0, 0, SRCAND);
+        DpiBitCanvas(Canvas, xBrain[i], yBrain[i] - 16, 64, 64,
+          Shade.Canvas, 0, 0, SRCAND);
       Sprite(Canvas, HGrSystem, xBrain[i] + 30 - 14, yBrain[i] + 53, 14,
         14, 1, 316);
@@ -368 +367 @@
   begin
     FormsCreated := true;
-    Application.CreateForm(TNoTermDlg, NoTermDlg);
+    DpiApplication.CreateForm(TNoTermDlg, NoTermDlg);
   end;
   NoTermDlg.Client(Command, Player, Data);