Changeset 230 for trunk/Packages/CevoComponents/ScreenTools.pas

Timestamp:

May 14, 2020, 10:39:45 PM (4 years ago)

Author:

chronos

Message:

• Modified: Optimized drawing in Wonders window.

File:

• trunk/Packages/CevoComponents/ScreenTools.pas (modified) (3 diffs)

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -911 +911 @@
 begin
   dst.BeginUpdate;
-  DstPtr := PixelPointer(dst, x0, y0);
+  DstPtr := PixelPointer(dst, x0 - GlowRange + 1, y0 - GlowRange + 1);
   for y := -GlowRange + 1 to Height - 1 + GlowRange - 1 do begin
     for x := -GlowRange + 1 to Width - 1 + GlowRange - 1 do begin
-      DstPtr.SetXY(x, y);
       if x < 0 then
         if y < 0 then
@@ -933 +932 @@
       else if y >= Height then
         r := y - (Height - 1)
-      else
+      else begin
+        DstPtr.NextPixel;
         continue;
+      end;
       if r = 0 then
         r := 1;
@@ -942 +943 @@
             (DstPtr.Pixel^.Planes[2 - ch] * (r - 1) + (cl shr (8 * ch) and $FF) *
             (GlowRange - r)) div (GlowRange - 1);
-    end;
+      DstPtr.NextPixel;
+    end;
+    DstPtr.NextLine;
   end;
   dst.EndUpdate;