diff --git a/src/generics/presentationcanvas.pas b/src/generics/presentationcanvas.pas index 02d99c6..5c40067 100644 --- a/src/generics/presentationcanvas.pas +++ b/src/generics/presentationcanvas.pas @@ -368,6 +368,10 @@ function TPresentationCanvasHandler.CalculateTextHeight(Font: TFont; procedure TPresentationCanvasHandler.AssignBGRAFont(Font: TFont); begin + // Issue #24 + If (Font.Name='') or (LowerCase(Font.Name)='default') then + Font.Name := 'Arial'; + Bitmap.FontName := Font.Name; Bitmap.FontStyle := Font.Style; Bitmap.FontHeight:= Round(Font.Height/0.85);