* fix for mantis #13171, a default for gettextheight so that it doesn't

   totally fall apart if no canvas is assigned.

git-svn-id: trunk@14950 -

packages/fcl-image/src/fpfont.inc

@@ -54,7 +54,10 @@ begin
   if inheritsFrom (TFPCustomDrawFont) then
     result := TFPCustomDrawFont(self).DoGetTextHeight (text)
   else
-    result := FCanvas.GetTextHeight (text);
+   if assigned(FCanvas) then
+     result := FCanvas.GetTextHeight (text)
+   else 
+     result :=16; // *some* default better than none.
 end;
 
 function TFPCustomFont.GetTextWidth (text:string) : integer;