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

extend comment in the png reader

Browse Source 
git-svn-id: trunk@15573 -
This commit is contained in:
paul 2008-06-25 06:49:21 +00:00
parent 3797bd0915
commit 29d8c931b8
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/intfgraphics.pas
View File

@ -5103,7 +5103,18 @@ begin
// init some default // init some default
IsGray := Header.ColorType and 3 = 0; IsGray := Header.ColorType and 3 = 0;
// Paul: todo - remove UseTransparent and use mask if no alpha
// Paul: if we have a mask in the description then we need to set it manually
// by Masked[x, y] := Color.Alpha = AlphaTransparent, but to do that we must
// read format ourself. fpReaders set alpha instead - they dont have Masked[].
// So if we want true description with mask we must teach our SetInternalColor
// method to handle Alpha if mask needed (or do it any other way). In other words
// this is now unimplemented and we'll get randomly masked image.
// As a temporary solution I'm enable alpha description if transparent color
// is present. This is indicated by UseTransparent property.
// When we will handle Mask in SetInternalColor please remove UseTransparent
// from the IsAlpha assignment.
IsAlpha := (Header.ColorType and 4 <> 0) or FAlphaPalette or UseTransparent; IsAlpha := (Header.ColorType and 4 <> 0) or FAlphaPalette or UseTransparent;
if not IsAlpha and UseTransparent if not IsAlpha and UseTransparent