paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 09:40:20 +02: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
with canv.pen do
case mode of
pmAnd : PutPixelProc := @PutPixelAnd;
pmOr : PutPixelProc := @PutPixelOr;
pmMerge : PutPixelProc := @PutPixelAnd;
pmMask : PutPixelProc := @PutPixelOr;
pmXor : PutPixelProc := @PutPixelXor;
else PutPixelProc := @PutPixelCopy;
end;
@ -336,8 +336,8 @@ begin
PatternToPoints (pattern, @LinePoints);
with canv.pen do
case mode of
pmAnd : PutPixelProc := @PutPixelAnd;
pmOr : PutPixelProc := @PutPixelOr;
pmMask : PutPixelProc := @PutPixelAnd;
pmMerge : PutPixelProc := @PutPixelOr;
pmXor : PutPixelProc := @PutPixelXor;
else PutPixelProc := @PutPixelCopy;
end;