paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 20:59:19 +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 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;