LazMapViewer: mvde_bgra.pas TextOut native.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9287 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/lazmapviewer/source/addons/bgra_drawingengine/mvde_bgra.pas

@@ -432,6 +432,14 @@ var
 begin
   if (AText = '') then
     exit;
+
+  FBuffer.CanvasBGRA.Font.Name := FFontName;
+  FBuffer.CanvasBGRA.Font.Height := Round((96.0 / 72.0) * FFontSize);
+  FBuffer.CanvasBGRA.Font.Style := FFontStyle;
+  FBuffer.CanvasBGRA.Font.Color := FFontColor;
+  FBuffer.CanvasBGRA.TextOut(X, Y, AText);
+
+  (*
   bmp := TBitmap.Create;
   try
     bmp.PixelFormat := pf32Bit;
@@ -460,6 +468,7 @@ begin
   finally
     bmp.Free;
   end;
+  *)
 end;
 
 function TMvBGRADrawingEngine.GetCacheItemClass: TPictureCacheItemClass;