diff --git a/packages/fcl-image/src/fppixlcanv.pp b/packages/fcl-image/src/fppixlcanv.pp index 6667918717..a799beaa8a 100644 --- a/packages/fcl-image/src/fppixlcanv.pp +++ b/packages/fcl-image/src/fppixlcanv.pp @@ -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;