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

* Fix bug #36510, spelling error. Use ENotImplemented exception for notimplemented

Browse Source 
git-svn-id: trunk@43857 -
This commit is contained in:
michael 2020-01-04 13:58:14 +00:00
parent 3c16324f80
commit 561ae7b6fb
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 interface
uses classes, FPImage, FPCanvas, PixTools, ellipses; uses Sysutils, classes, FPImage, FPCanvas, PixTools, ellipses;
type type
@ -63,7 +63,7 @@ const
PenPatterns : array[psDash..psDashDotDot] of TPenPattern = PenPatterns : array[psDash..psDashDotDot] of TPenPattern =
($EEEEEEEE, $AAAAAAAA, $E4E4E4E4, $EAEAEAEA); ($EEEEEEEE, $AAAAAAAA, $E4E4E4E4, $EAEAEAEA);
sErrNoImage:string = 'No brush image specified'; sErrNoImage:string = 'No brush image specified';
sErrNotAvailable:string = 'Not availlable'; sErrNotAvailable:string = 'Not available';
implementation implementation
@ -74,7 +74,7 @@ const
procedure NotImplemented; procedure NotImplemented;
begin begin
raise PixelCanvasException.Create(sErrNotAvailable); raise ENotImplemented.Create(sErrNotAvailable);
end; end;
constructor TFPPixelCanvas.create; constructor TFPPixelCanvas.create;