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

carbon: correction for drawing pmXor and pmNotXor modes

Browse Source 
git-svn-id: trunk@55553 -
This commit is contained in:
dmitry 2017-07-21 03:32:33 +00:00
parent 1c2074a32a
commit 21265ba8ff
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/carbon/carbongdiobjects.pp
View File

@ -1728,14 +1728,14 @@ begin
AB := 1;
AA := 0;
end;
R2_NOT, R2_NOTXORPEN:
R2_NOT:
begin
AR := 1;
AG := 1;
AB := 1;
AA := Byte(FA);
end;
R2_NOTCOPYPEN:
R2_NOTXORPEN, R2_NOTCOPYPEN:
begin
AR := (255 - FR) / 255;
AG := (255 - FG) / 255;
@ -2047,7 +2047,8 @@ begin
case AROP2 of
R2_NOT: blendmode := kCGBlendModeDifference;
R2_NOTXORPEN: blendmode := kCGBlendModeDifference;
R2_NOTXORPEN: blendmode := kCGBlendModeExclusion;
R2_XORPEN: blendmode := kCGBlendModeDifference;
else
blendmode := kCGBlendModeNormal;
end;