Changeset 206 for trunk/LocalPlayer/Wonders.pas

Timestamp:

May 8, 2020, 6:12:35 PM (5 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/Wonders.pas (modified) (3 diffs)

trunk/LocalPlayer/Wonders.pas

@@ -38 +38 @@
 
 uses
-  Term, ClientTools, Help, Tribes, PixelPointer;
+  Term, ClientTools, Help, Tribes, UPixelPointer;
 
 {$R *.lfm}
@@ -106 +106 @@
 begin
   Offscreen.BeginUpdate;
-  Line[0].Init(Offscreen);
-  Line[1].Init(Offscreen);
+  Line[0] := PixelPointer(Offscreen);
+  Line[1] := PixelPointer(Offscreen);
   for Y := 0 to 127 do begin
     for X := 0 to 179 do begin
@@ -144 +144 @@
   x0Src := (i mod 7) * xSizeBig;
   y0Src := (i div 7 + SystemIconLines) * ySizeBig;
-  Src.Init(BigImp, x0Src, y0Src);
-  Dst.Init(Offscreen, x0Dst, y0Dst);
+  Src := PixelPointer(BigImp, x0Src, y0Src);
+  Dst := PixelPointer(Offscreen, x0Dst, y0Dst);
   for Y := 0 to ySizeBig - 1 do begin
     for X := 0 to xSizeBig - 1 do begin