Changeset 456 for trunk/LocalPlayer/IsoEngine.pas
- Timestamp:
- May 30, 2023, 11:31:10 AM (18 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LocalPlayer/IsoEngine.pas
r447 r456 6 6 uses 7 7 Protocol, ClientTools, ScreenTools, Tribes, LCLIntf, LCLType, SysUtils, 8 Classes, Graphics, UPixelPointer, UGraphicSet;8 Classes, Graphics, PixelPointer, GraphicSet; 9 9 10 10 const … … 255 255 for ySrc := 0 to TerrainIconLines - 1 do begin 256 256 for I := 0 to yyt * 3 - 1 do 257 MaskLine[I] := PixelPointer(Mask24, ScaleToNative(0),257 MaskLine[I] := TPixelPointer.Create(Mask24, ScaleToNative(0), 258 258 ScaleToNative(1 + ySrc * (yyt * 3 + 1) + I)); 259 259 for xSrc := 0 to TerrainIconCols - 1 do begin … … 1424 1424 begin 1425 1425 FOutput.BeginUpdate; 1426 Line := PixelPointer(FOutput, ScaleToNative(x0), ScaleToNative(y0));1426 Line := TPixelPointer.Create(FOutput, ScaleToNative(x0), ScaleToNative(y0)); 1427 1427 for Y := 0 to ScaleToNative(Height) - 1 do begin 1428 1428 y_n := (ScaleFromNative(Y) + y0 - ym) / yyt;
Note:
See TracChangeset
for help on using the changeset viewer.