Recent

Author Topic: BGRABitmap fpc image improvements  (Read 2205 times)

Timewarp

  • Full Member
  • ***
  • Posts: 144
BGRABitmap fpc image improvements
« on: September 16, 2014, 03:02:18 pm »
Just noticed there are now modified fpc units included.

Many thanks! Now it's easy to fix bugs.

Question, can this bugfix http://bugs.freepascal.org/view.php?id=24382 also be included?

Bug is obvious, but there seems no way to get it in fpc.

Here is fixed function:

Code: [Select]
function TBGRAReaderPNG.BGRAColorGrayAlpha16(const CD: TColorData): TBGRAPixel;
var c : NativeUint;
begin
  c := (CD shr 8) and $FF;
  with result do
    begin
    red := c;
    green := c;
    blue := c;
    alpha := (CD shr 24) and $FF;
    end;
end;

circular

  • Hero Member
  • *****
  • Posts: 4181
    • Personal webpage
Re: BGRABitmap fpc image improvements
« Reply #1 on: September 16, 2014, 10:48:04 pm »
Ok, applied the change on SVN.  :)

Is it working now?
Conscience is the debugger of the mind

Timewarp

  • Full Member
  • ***
  • Posts: 144
Re: BGRABitmap fpc image improvements
« Reply #2 on: September 17, 2014, 07:54:45 pm »
Yes it works, thanks

 

TinyPortal © 2005-2018