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

Timestamp:

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

Author:

chronos

Message:

• Modified: Updated BGRABitmap package.

File:

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

GraphicTest/Packages/bgrabitmap/bgrareadtga.pas

@@ -116 +116 @@
           for Col:=Img.Width-1 downto 0 do
           begin
-            PWord(PDest)^ := PWord(P)^;
-            (PByte(PDest)+2)^ := (PByte(P)+2)^;
-            (PByte(PDest)+3)^ := 255;
+            PDest^ := BGRA((P+2)^,(P+1)^,P^);
             inc(Pdest);
             Inc(p,3);
@@ -129 +127 @@
             inc(P);
             Value:=value or (P[0] shl 8);
-            With PDest^ do
-               begin
-               Red:=((value)shr 10) shl 3;
-               Green:=((value)shr 5) shl 3;
-               Blue:=((value)) shl 3;
-               end;
+            PDest^ := BGRA(((value)shr 10) shl 3,((value)shr 5) shl 3,((value)) shl 3);
             Inc(PDest);
             Inc(P);