Changeset 188 for trunk/NoTerm.pas

Timestamp:

May 6, 2020, 11:21:12 PM (4 years ago)

Author:

chronos

Message:

• Modified: Simplified code by replacing BitBlt which uses always handles by BitBltCanvas which uses directly TCanvas objects. Used default ROP SRCCOPY.

File:

• trunk/NoTerm.pas (modified) (2 diffs)

trunk/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,
-    0, SRCCOPY);
+  BitBltCanvas(Canvas, 64, 287 + 138, 192, 20, State.Canvas, 0, 0);
 end;
 
@@ -331 +330 @@
         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,
-          Shade.Canvas.Handle, 0, 0, SRCAND);
+        BitBltCanvas(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);