summaryrefslogtreecommitdiff
path: root/src/corelib/fpg_imgfmt_png.pas
diff options
context:
space:
mode:
Diffstat (limited to 'src/corelib/fpg_imgfmt_png.pas')
-rw-r--r--src/corelib/fpg_imgfmt_png.pas2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/corelib/fpg_imgfmt_png.pas b/src/corelib/fpg_imgfmt_png.pas
index e4a46a7d..49f3e12c 100644
--- a/src/corelib/fpg_imgfmt_png.pas
+++ b/src/corelib/fpg_imgfmt_png.pas
@@ -68,7 +68,7 @@ begin
for j := 0 to xlocal - 1 do
begin
colorA := imga.Colors[j, i];
- colorB := (colorA.Blue shr 8) or (colorA.Green and $FF00) or ((colorA.Red and $FF00) shl 8);
+ colorB := (colorA.Blue shr 8) or (colorA.Green and $FF00) or ((colorA.Red and $FF) shl 16) or ((colorA.Alpha and $FF) shl 24);
imgb.Colors[j, i] := colorB;
end;
imgb.UpdateImage;