Hi,
Here is a minor patch for the fpcanvas unit, reporting the wrong
message in some exceptions.
Regards,
- Graeme -
Index: packages/fcl-image/src/fpcanvas.inc
===================================================================
--- packages/fcl-image/src/fpcanvas.inc (revision 7241)
+++ packages/fcl-image/src/fpcanvas.inc (working copy)
@@ -88,7 +88,7 @@
begin
result := DoCreateDefaultFont;
if not assigned (result) then
- raise TFPCanvasException.CreateFmt (ErrCouldNotCreate, [EPen])
+ raise TFPCanvasException.CreateFmt (ErrCouldNotCreate, [EFont])
else
begin
result.AllocateResources (self);
@@ -112,7 +112,7 @@
begin
result := DoCreateDefaultBrush;
if not assigned (result) then
- raise TFPCanvasException.CreateFmt (ErrCouldNotCreate, [EPen])
+ raise TFPCanvasException.CreateFmt (ErrCouldNotCreate, [EBrush])
else
begin
result.AllocateResources (self);
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
