Changeset 206 for trunk/Start.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/Start.pas (modified) (3 diffs)

trunk/Start.pas

@@ -165 +165 @@
 
 uses
-  Global, Directories, Direct, ScreenTools, Inp, Back, Locale, PixelPointer;
+  Global, Directories, Direct, ScreenTools, Inp, Back, Locale, UPixelPointer;
 
 {$R *.lfm}
@@ -354 +354 @@
   Bitmap.SetSize(Size.X * 2, Size.Y);
   Bitmap.BeginUpdate;
-  MiniPixel.Init(Bitmap);
+  MiniPixel := PixelPointer(Bitmap);
   for y := 0 to Size.Y - 1 do begin
     for x := 0 to Size.X - 1 do begin
@@ -386 +386 @@
   if Mode = mmPicture then begin
     Bitmap.BeginUpdate;
-    MiniPixel.Init(Bitmap);
-    PrevMiniPixel.Init(Bitmap, 0, -1);
+    MiniPixel := PixelPointer(Bitmap);
+    PrevMiniPixel := PixelPointer(Bitmap, 0, -1);
     for y := 0 to Size.Y - 1 do begin
       for x := 0 to Size.X - 1 do begin