paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 21:00:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* changed transparAnt to transparEnt

Browse Source 
* registering handler
This commit is contained in:
luk 2003-10-16 22:03:28 +00:00
parent a49c029fd7
commit 0f8b5d1a45
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fcl/image/fpwritepng.pp
View File

@ -265,7 +265,7 @@ var c : integer;
begin
c := color[p];
a := c.Alpha;
if a = alphaTransparant then
if a = alphaTransparent then
begin
none := true;
FTransparentColor := c;
@ -288,7 +288,7 @@ var c : integer;
begin
c := colors[x,y];
a := c.Alpha;
if a = alphaTransparant then
if a = alphaTransparent then
begin
none := true;
FTransparentColor := c;
@ -548,7 +548,7 @@ procedure TFPWriterPNG.WritetRNS;
repeat
dec (r);
until (r < 0) or (color[r].alpha <> alphaOpaque);
if r >= 0 then // there is at least 1 transparant color
if r >= 0 then // there is at least 1 transparent color
begin
// from this color we go to the first palette entry
SetChunkLength (r+1);
@ -629,4 +629,6 @@ begin
WriteIEND;
end;
initialization
ImageHandlers.RegisterImageWriter ('Portable Network Graphics', 'png', TFPWriterPNG);
end.