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

+ Pmand->Pmmask, pmOr ->pmMerge

Browse Source
This commit is contained in:
michael 2004-12-23 11:19:52 +00:00
parent 8019924d4f
commit 1abb5d4c83
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fcl/image/ellipses.pp
View File

@ -366,8 +366,8 @@ var info : TEllipseInfo;
begin
with canv.pen do
case mode of
pmAnd : MyPutPix := @PutPixelAnd;
pmOr : MyPutPix := @PutPixelOr;
pmMask : MyPutPix := @PutPixelAnd;
pmMerge : MyPutPix := @PutPixelOr;
pmXor : MyPutPix := @PutPixelXor;
else MyPutPix := @PutPixelCopy;
end;
@ -396,8 +396,8 @@ var infoOut, infoIn : TEllipseInfo;
begin
with canv.pen do
case mode of
pmAnd : MyPutPix := @PutPixelAnd;
pmOr : MyPutPix := @PutPixelOr;
pmMask : MyPutPix := @PutPixelAnd;
pmMerge : MyPutPix := @PutPixelOr;
pmXor : MyPutPix := @PutPixelXor;
else MyPutPix := @PutPixelCopy;
end;
@ -441,8 +441,8 @@ var info : TEllipseInfo;
begin
with canv.pen do
case mode of
pmAnd : MyPutPix := @PutPixelAnd;
pmOr : MyPutPix := @PutPixelOr;
pmMask : MyPutPix := @PutPixelAnd;
pmMerge : MyPutPix := @PutPixelOr;
pmXor : MyPutPix := @PutPixelXor;
else MyPutPix := @PutPixelCopy;
end;