Changeset 206 for trunk/LocalPlayer/IsoEngine.pas

Timestamp:

May 8, 2020, 6:12:35 PM (4 years ago)

Author:

chronos

Message:

• Modified: Remove warnings about uninitialized TPixelPointer variables. Initialize that types using PixelPointer function in similar way how TPoint is inicialized using Point function.

File:

• trunk/LocalPlayer/IsoEngine.pas (modified) (4 diffs)

trunk/LocalPlayer/IsoEngine.pas

@@ -6 +6 @@
 uses
   Protocol, ClientTools, ScreenTools, Tribes, {$IFNDEF SCR}Term, {$ENDIF}
-  LCLIntf, LCLType, SysUtils, Classes, Graphics, PixelPointer;
+  LCLIntf, LCLType, SysUtils, Classes, Graphics, UPixelPointer;
 
 type
@@ -375 +375 @@
   begin
     for i := 0 to yyt * 3 - 1 do
-      MaskLine[i].Init(Mask24, 0, 1 + ySrc * (yyt * 3 + 1) + i);
+      MaskLine[i] := PixelPointer(Mask24, 0, 1 + ySrc * (yyt * 3 + 1) + i);
     for xSrc := 0 to 9 - 1 do
     begin
@@ -1017 +1017 @@
           for dy := 0 to yyt * 2 - 1 do
           begin
-            PixelPtr.Init(Borders, 0, p1 * (yyt * 2) + dy);
+            PixelPtr := PixelPointer(Borders, 0, p1 * (yyt * 2) + dy);
             for dx := 0 to xxt * 2 - 1 do begin
               if PixelPtr.Pixel^.B = 99 then begin
@@ -1340 +1340 @@
   FOutput.BeginUpdate;
   for y := y0 to y1 - 1 do begin
-    Line.Init(FOutput, 0, y);
+    Line := PixelPointer(FOutput, 0, y);
     y_n := (y - ym) / yyt;
     if abs(y_n) < rShade then begin