Changeset 40 for trunk/ScreenTools.pas

Timestamp:

Jan 9, 2017, 8:28:51 PM (7 years ago)

Author:

chronos

Message:

• Fixed: More bitmaps to solve black background problem.
• Fixed: Bad drawing of gradient lines.

File:

• trunk/ScreenTools.pas (modified) (4 diffs)

trunk/ScreenTools.pas

@@ -983 +983 @@
   yOffset: integer);
 begin
-  assert((Left + xOffset >= 0) and (Left + xOffset + Width <= wMainTexture) and
+  Assert((Left + xOffset >= 0) and (Left + xOffset + Width <= wMainTexture) and
     (Top + yOffset >= 0) and (Top + yOffset + Height <= hMainTexture));
   BitBlt(ca.Handle, Left, Top, Width, Height, MainTexture.Image.Canvas.Handle,
@@ -1056 +1056 @@
         Texture.Height - y0cut - y1cut, Texture.Canvas.Handle, x0cut,
         y0cut, SRCCOPY);
-    end
+    end;
   end;
 end;
@@ -1199 +1199 @@
       i, r, g, b: integer;
     begin
-      with ca do
       begin
         for i := 0 to 15 do
@@ -1218 +1217 @@
           else if b >= 256 then
             b := 255;
-          Pen.Color := r + g shl 8 + b shl 16;
-          MoveTo(x + dx * i, y + dy * i);
-          LineTo(x + dx * i + Width, y + dy * i + Height);
+          ca.Pen.Color := r + g shl 8 + b shl 16;
+          ca.MoveTo(x + dx * i, y + dy * i);
+          ca.LineTo(x + dx * i + Width, y + dy * i + Height);
         end;
-        Pen.Color := $000000;
-        MoveTo(x + 1, y + 16 * dy + Height);
-        LineTo(x + 16 * dx + Width, y + 16 * dy + Height);
-        LineTo(x + 16 * dx + Width, y);
+        ca.Pen.Color := $000000;
+        ca.MoveTo(x + 1, y + 16 * dy + Height);
+        ca.LineTo(x + 16 * dx + Width, y + 16 * dy + Height);
+        ca.LineTo(x + 16 * dx + Width, y);
       end
     end;