paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-21 03:19:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Pmand->Pmmask, pmOr ->pmMerge

Browse Source
This commit is contained in:
michael 2004-12-23 12:08:43 +00:00
parent 1abb5d4c83
commit 993460bbc3
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fcl/image/pixtools.pp
View File

@ -210,8 +210,8 @@ var PutPixelProc : TPutPixelProc;
begin begin
with canv.pen do with canv.pen do
case mode of case mode of
pmAnd : PutPixelProc := @PutPixelAnd; pmMerge : PutPixelProc := @PutPixelAnd;
pmOr : PutPixelProc := @PutPixelOr; pmMask : PutPixelProc := @PutPixelOr;
pmXor : PutPixelProc := @PutPixelXor; pmXor : PutPixelProc := @PutPixelXor;
else PutPixelProc := @PutPixelCopy; else PutPixelProc := @PutPixelCopy;
end; end;
@ -336,8 +336,8 @@ begin
PatternToPoints (pattern, @LinePoints); PatternToPoints (pattern, @LinePoints);
with canv.pen do with canv.pen do
case mode of case mode of
pmAnd : PutPixelProc := @PutPixelAnd; pmMask : PutPixelProc := @PutPixelAnd;
pmOr : PutPixelProc := @PutPixelOr; pmMerge : PutPixelProc := @PutPixelOr;
pmXor : PutPixelProc := @PutPixelXor; pmXor : PutPixelProc := @PutPixelXor;
else PutPixelProc := @PutPixelCopy; else PutPixelProc := @PutPixelCopy;
end; end;