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

--- Merging r43857 into '.':

Browse Source 
U    packages/fcl-image/src/fppixlcanv.pp
--- Recording mergeinfo for merge of r43857 into '.':
 U   .

# revisions: 43857

git-svn-id: branches/fixes_3_2@43924 -
This commit is contained in:
marco 2020-01-13 11:16:39 +00:00
parent cb589a9201
commit baf51cbab3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-image/src/fppixlcanv.pp
View File

@ -17,7 +17,7 @@ unit FPPixlCanv;
interface
uses classes, FPImage, FPCanvas, PixTools, ellipses;
uses Sysutils, classes, FPImage, FPCanvas, PixTools, ellipses;
type
@ -63,7 +63,7 @@ const
PenPatterns : array[psDash..psDashDotDot] of TPenPattern =
($EEEEEEEE, $AAAAAAAA, $E4E4E4E4, $EAEAEAEA);
sErrNoImage:string = 'No brush image specified';
sErrNotAvailable:string = 'Not availlable';
sErrNotAvailable:string = 'Not available';
implementation
@ -74,7 +74,7 @@ const
procedure NotImplemented;
begin
raise PixelCanvasException.Create(sErrNotAvailable);
raise ENotImplemented.Create(sErrNotAvailable);
end;
constructor TFPPixelCanvas.create;