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

* Patch from Graeme Geldenhuys to correct an error message

Browse Source 
git-svn-id: trunk@7842 -
This commit is contained in:
michael 2007-06-28 15:30:00 +00:00
parent f0e554caef
commit 2e500fbb70
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-image/src/fpcanvas.inc
View File

@ -88,7 +88,7 @@ function TFPCustomCanvas.CreateDefaultFont : TFPCustomFont;
begin begin
result := DoCreateDefaultFont; result := DoCreateDefaultFont;
if not assigned (result) then if not assigned (result) then
raise TFPCanvasException.CreateFmt (ErrCouldNotCreate, [EPen]) raise TFPCanvasException.CreateFmt (ErrCouldNotCreate, [EFont])
else else
begin begin
result.AllocateResources (self); result.AllocateResources (self);
@ -112,7 +112,7 @@ function TFPCustomCanvas.CreateDefaultBrush : TFPCustomBrush;
begin begin
result := DoCreateDefaultBrush; result := DoCreateDefaultBrush;
if not assigned (result) then if not assigned (result) then
raise TFPCanvasException.CreateFmt (ErrCouldNotCreate, [EPen]) raise TFPCanvasException.CreateFmt (ErrCouldNotCreate, [EBrush])
else else
begin begin
result.AllocateResources (self); result.AllocateResources (self);