Changeset 494 for GraphicTest/Packages/bgrabitmap/bgrapaintnet.pas

Timestamp:

Dec 22, 2016, 8:49:19 PM (7 years ago)

Author:

chronos

Message:

• Modified: Updated BGRABitmap package.

File:

• GraphicTest/Packages/bgrabitmap/bgrapaintnet.pas (modified) (5 diffs)

GraphicTest/Packages/bgrabitmap/bgrapaintnet.pas

@@ -80 +80 @@
 implementation
 
-uses zstream, Math, graphtype, Graphics, lazutf8classes, FileUtil;
+uses zstream, Math, BGRAUTF8;
 
 {$hints off}
@@ -285 +285 @@
   Stream.Position:= Stream.Position + XmlHeaderSize;
      {$hints off}
-  stream.Read(CompressionFormat, sizeof(CompressionFormat));
+  stream.ReadBuffer(CompressionFormat, sizeof(CompressionFormat));
      {$hints on}
   CompressionFormat := LEToN(CompressionFormat);
@@ -327 +327 @@
     begin
         {$hints off}
-      LayerData[i].Read(b, 1);
+      LayerData[i].ReadBuffer(b, 1);
         {$hints on}
       Result += IntToHex(b, 2) + ' ';
@@ -418 +418 @@
     layerData[layer].Position := 0;
     layerData[layer].Read(Result.Data^, LayerData[layer].Size);
+    if TBGRAPixel_RGBAOrder then result.SwapRedBlue;
     Result.InvalidateBitmap;
 
@@ -476 +477 @@
 begin
   {$hints off}
-  src.Read(CompressionFlag, 1);
+  src.ReadBuffer(CompressionFlag, 1);
   {$hints on}
   if CompressionFlag = 1 then