Changeset 179 for branches/highdpi/NoTerm.pas

Timestamp:

Jun 23, 2019, 9:12:54 PM (5 years ago)

Author:

chronos

Message:

• Modified: Improved scaling support.

File:

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

branches/highdpi/NoTerm.pas

@@ -127 +127 @@
   RisedTextOut(State.Canvas, 0, 0, Format(Phrases.Lookup('AIT_ROUND'), [Round])
     + ' ' + TurnToString(G.RO[me].Turn));
-  BitBlt(Canvas.Handle, 64, 287 + 138, 192, 20, State.Canvas.Handle, 0,
+  DpiBitBlt(Canvas.Handle, 64, 287 + 138, 192, 20, State.Canvas.Handle, 0,
     0, SRCCOPY);
 end;
@@ -331 +331 @@
         yBrain[i] - 16, 64, 64, 0, 0);
       if 1 shl i and G.RO[me].Alive = 0 then
-        BitBlt(Canvas.Handle, xBrain[i], yBrain[i] - 16, 64, 64,
+        DpiBitBlt(Canvas.Handle, xBrain[i], yBrain[i] - 16, 64, 64,
           Shade.Canvas.Handle, 0, 0, SRCAND);
       Sprite(Canvas, HGrSystem, xBrain[i] + 30 - 14, yBrain[i] + 53, 14,