diff options
Diffstat (limited to 'src/corelib/fpg_imgfmt_png.pas')
-rw-r--r-- | src/corelib/fpg_imgfmt_png.pas | 2 |
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; |