paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-05 15:39:25 +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; px, py : Integer;
CurColor : TFPColor; CurColor : TFPColor;
Encoder : TAscii85Encoder; Encoder : TAscii85Encoder;
A : Byte;
Ratio : Single;
begin begin
Encoder := TAscii85Encoder.Create; Encoder := TAscii85Encoder.Create;
try try
@ -965,14 +967,21 @@ var
for px:=0 to SrcIntfImg.Width-1 do for px:=0 to SrcIntfImg.Width-1 do
begin begin
CurColor:=SrcIntfImg.Colors[px,py]; 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); 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.Red));
Encoder.Add(Hi(CurColor.Green)); Encoder.Add(Hi(CurColor.Green));
Encoder.Add(Hi(CurColor.Blue)); 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; end;
end; end;