Changeset 494 for GraphicTest/Packages/bgrabitmap/bgrapaintnet.pas
- Timestamp:
- Dec 22, 2016, 8:49:19 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
GraphicTest/Packages/bgrabitmap/bgrapaintnet.pas
r472 r494 80 80 implementation 81 81 82 uses zstream, Math, graphtype, Graphics, lazutf8classes, FileUtil;82 uses zstream, Math, BGRAUTF8; 83 83 84 84 {$hints off} … … 285 285 Stream.Position:= Stream.Position + XmlHeaderSize; 286 286 {$hints off} 287 stream.Read (CompressionFormat, sizeof(CompressionFormat));287 stream.ReadBuffer(CompressionFormat, sizeof(CompressionFormat)); 288 288 {$hints on} 289 289 CompressionFormat := LEToN(CompressionFormat); … … 327 327 begin 328 328 {$hints off} 329 LayerData[i].Read (b, 1);329 LayerData[i].ReadBuffer(b, 1); 330 330 {$hints on} 331 331 Result += IntToHex(b, 2) + ' '; … … 418 418 layerData[layer].Position := 0; 419 419 layerData[layer].Read(Result.Data^, LayerData[layer].Size); 420 if TBGRAPixel_RGBAOrder then result.SwapRedBlue; 420 421 Result.InvalidateBitmap; 421 422 … … 476 477 begin 477 478 {$hints off} 478 src.Read (CompressionFlag, 1);479 src.ReadBuffer(CompressionFlag, 1); 479 480 {$hints on} 480 481 if CompressionFlag = 1 then
Note:
See TracChangeset
for help on using the changeset viewer.