paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-03 12:59:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL, postscript, improve handling of alpha channel

Browse Source 
git-svn-id: trunk@19699 -
This commit is contained in:
jesus 2009-04-29 21:37:12 +00:00
parent 0aacd7fd90
commit 7597713c59
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/postscriptcanvas.pas
View File

@ -956,6 +956,8 @@ var
px, py : Integer;
CurColor : TFPColor;
Encoder : TAscii85Encoder;
A : Byte;
Ratio : Single;
begin
Encoder := TAscii85Encoder.Create;
try
@ -965,14 +967,21 @@ var
for px:=0 to SrcIntfImg.Width-1 do
begin
CurColor:=SrcIntfImg.Colors[px,py];
if CurColor.alpha=0 then begin
A := Hi(CurColor.alpha);
if A=0 then begin
Encoder.Add(255);
Encoder.Add(255);
Encoder.Add(255);
end else begin
end else
if A=255 then begin
Encoder.Add(Hi(CurColor.Red));
Encoder.Add(Hi(CurColor.Green));
Encoder.Add(Hi(CurColor.Blue));
end else begin
Ratio := 1-(255-A)/255;
Encoder.Add(round(Hi(CurColor.Red )*Ratio+255*(1-Ratio)));
Encoder.Add(round(Hi(CurColor.Green)*Ratio+255*(1-Ratio)));
Encoder.Add(round(Hi(CurColor.Blue )*Ratio+255*(1-Ratio)));
end;
end;
end;