diff --git a/components/lazmapviewer/source/addons/bgra_drawingengine/mvde_bgra.pas b/components/lazmapviewer/source/addons/bgra_drawingengine/mvde_bgra.pas
index 8e5ef33e2..94edf2fac 100644
--- a/components/lazmapviewer/source/addons/bgra_drawingengine/mvde_bgra.pas
+++ b/components/lazmapviewer/source/addons/bgra_drawingengine/mvde_bgra.pas
@@ -47,6 +47,8 @@ type
     FFontColor: TColor;
     FFontSize: Integer;
     FFontStyle: TFontStyles;
+    procedure ApplyFont;
+
   protected
     function GetBrushColor: TColor; override;
     function GetBrushStyle: TBrushStyle; override;
@@ -387,8 +389,21 @@ begin
   FBuffer.CanvasBGRA.Pen.Width := AValue;
 end;
 
+procedure TMvBGRADrawingEngine.ApplyFont;
+var
+  fntSize: Integer;
+begin
+  FBuffer.CanvasBGRA.Font.Name := FFontName;
+  if FFontSize = 0 then fntSize := 10 else fntSize := FFontSize;
+  FBuffer.CanvasBGRA.Font.Height := -Round(ScreenInfo.PixelsPerInchY / 72.0  * fntSize);
+  FBuffer.CanvasBGRA.Font.Style := FFontStyle;
+  FBuffer.CanvasBGRA.Font.Color := FFontColor;
+  FBuffer.CanvasBGRA.Font.Antialiasing := true;
+end;
+
 function TMvBGRADrawingEngine.TextExtent(const AText: String): TSize;
 begin
+  ApplyFont;
   Result := FBuffer.CanvasBGRA.TextExtent(AText);
 end;
 
@@ -396,11 +411,7 @@ procedure TMvBGRADrawingEngine.TextOut(X, Y: Integer; const AText: String);
 begin
   if (AText <> '') then
   begin
-    FBuffer.CanvasBGRA.Font.Name := FFontName;
-    FBuffer.CanvasBGRA.Font.Height := -Round(ScreenInfo.PixelsPerInchY / 72.0  * FFontSize);
-    FBuffer.CanvasBGRA.Font.Style := FFontStyle;
-    FBuffer.CanvasBGRA.Font.Color := FFontColor;
-    FBuffer.CanvasBGRA.Font.Antialiasing := true;
+    ApplyFont;
     FBuffer.CanvasBGRA.TextOut(X, Y, AText);
   end;
 end;