Changeset 456 for trunk/MiniMap.pas


Ignore:
Timestamp:
May 30, 2023, 11:31:10 AM (18 months ago)
Author:
chronos
Message:
  • Modified: Removed U prefix from unit names.
File:
1 moved

Legend:

Unmodified
Added
Removed

  • trunk/MiniMap.pas

    r455 r456  
    11{$INCLUDE Switches.inc}
    2 unit UMiniMap;
     2unit MiniMap;
    33
    44interface
    … …  
    3737
    3838uses
    39   ScreenTools, UPixelPointer, Global, GameServer, IsoEngine, Tribes;
     39  ScreenTools, PixelPointer, Global, GameServer, IsoEngine, Tribes;
    4040
    4141const
    … …  
    172172  Bitmap.SetSize(Size.X * 2, Size.Y);
    173173  Bitmap.BeginUpdate;
    174   MiniPixel := PixelPointer(Bitmap);
     174  MiniPixel := TPixelPointer.Create(Bitmap);
    175175  for y := 0 to ScaleToNative(Size.Y) - 1 do begin
    176176    for x := 0 to ScaleToNative(Size.X) - 1 do begin
    … …  
    203203  if Mode = mmPicture then begin
    204204    Bitmap.BeginUpdate;
    205     MiniPixel := PixelPointer(Bitmap);
    206     PrevMiniPixel := PixelPointer(Bitmap, 0, -1);
     205    MiniPixel := TPixelPointer.Create(Bitmap);
     206    PrevMiniPixel := TPixelPointer.Create(Bitmap, 0, -1);
    207207    for y := 0 to ScaleToNative(Size.Y) - 1 do begin
    208208      for x := 0 to ScaleToNative(Size.X) - 1 do begin
    … …  
    264264  Bitmap.SetSize(Size.X * 2, Size.Y);
    265265  Bitmap.BeginUpdate;
    266   MiniPixel := PixelPointer(Bitmap);
    267   PrevMiniPixel := PixelPointer(Bitmap, 0, -1);
     266  MiniPixel := TPixelPointer.Create(Bitmap);
     267  PrevMiniPixel := TPixelPointer.Create(Bitmap, 0, -1);
    268268  for y := 0 to ScaleToNative(Size.Y) - 1 do begin
    269269    for x := 0 to ScaleToNative(Size.X) - 1 do begin
Note: See TracChangeset for help on using the changeset viewer.