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

Timestamp:

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

Author:

chronos

Message:

• Modified: Updated BGRABitmap package.

File:

• GraphicTest/Packages/bgrabitmap/bgrareadlzp.pas (modified) (2 diffs)

GraphicTest/Packages/bgrabitmap/bgrareadlzp.pas

@@ -296 +296 @@
                 for x := w-1 downto 0 do
                 begin
-                  {$IFDEF ENDIAN_LITTLE}
-                  PDWord(PDest)^ := PCurBlue^ or (PCurGreen^ shl 8) or (PCurRed^ shl 16) or $ff000000;
-                  {$ELSE}
-                  PDWord(PDest)^ := (PCurBlue^ shl 24) or (PCurGreen^ shl 16) or (PCurRed^ shl 8) or $ff;
-                  {$ENDIF}
+                  PDest^ := BGRA(PCurRed^,PCurGreen^,PCurBlue^);
                   inc(PCurBlue);
                   inc(PCurGreen);
@@ -317 +313 @@
               else
               begin
-                {$IFDEF ENDIAN_LITTLE}
-                PDWord(PDest)^ := PCurBlue^ or (PCurGreen^ shl 8) or (PCurRed^ shl 16) or (PCurAlpha^ shl 24);
-                {$ELSE}
-                PDWord(PDest)^ := (PCurBlue^ shl 24) or (PCurGreen^ shl 16) or (PCurRed^ shl 8) or PCurAlpha^;
-                {$ENDIF}
+                PDest^ := BGRA(PCurRed^,PCurGreen^,PCurBlue^,PCurAlpha^);
                 inc(PCurBlue);
                 inc(PCurGreen);