From 8651b681b379f94c733c3396ade4d06e18f8e568 Mon Sep 17 00:00:00 2001
From: alpine-a110 <alpine-a110@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 28 Mar 2024 13:32:38 +0000
Subject: [PATCH] LazMapViewer: mvde_bgra.pas TextOut native.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9287 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../source/addons/bgra_drawingengine/mvde_bgra.pas       | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/components/lazmapviewer/source/addons/bgra_drawingengine/mvde_bgra.pas b/components/lazmapviewer/source/addons/bgra_drawingengine/mvde_bgra.pas
index d28cd6bf9..4b714c744 100644
--- a/components/lazmapviewer/source/addons/bgra_drawingengine/mvde_bgra.pas
+++ b/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;