From 310132d9f57e93f7652fe722d2b532b92f4b0a82 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 31 Mar 2025 11:09:56 +0000
Subject: [PATCH] LazMapViewer: Add methods to store/restore the state of the
 drawing engine (pen, brush, font, opacity).

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9712 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../lazmapviewer/source/mvdrawingengine.pas   | 24 +++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/components/lazmapviewer/source/mvdrawingengine.pas b/components/lazmapviewer/source/mvdrawingengine.pas
index 98802ce77..7d0e823c8 100644
--- a/components/lazmapviewer/source/mvdrawingengine.pas
+++ b/components/lazmapviewer/source/mvdrawingengine.pas
@@ -47,6 +47,11 @@ type
   { TMvCustomDrawingEngine }
 
   TMvCustomDrawingEngine = class(TComponent)
+  private
+    FSavedBrush: TMvBrush;
+    FSavedFont: TMvFont;
+    FSavedOpacity: Single;
+    FSavedPen: TMvPen;
   protected
     function GetBrushColor: TColor; virtual; abstract;
     function GetBrushStyle: TBrushStyle; virtual; abstract;
@@ -107,6 +112,9 @@ type
     procedure TextOut(X, Y: Integer; const AText: String); virtual; abstract;
     function TextWidth(const AText: String): Integer;
 
+    procedure StoreState;
+    procedure RestoreState;
+
     property BrushColor: TColor read GetBrushColor write SetBrushColor;
     property BrushStyle: TBrushStyle read GetBrushStyle write SetBrushStyle;
     property FontColor: TColor read GetFontColor write SetFontColor;
@@ -762,6 +770,22 @@ begin
   PaintToCanvas(ACanvas, Point(0, 0));
 end;
 
+procedure TMvCustomDrawingEngine.RestoreState;
+begin
+  SetPen(FSavedPen);
+  SetBrush(FSavedBrush);
+  SetFont(FSavedFont);
+  SetOpacity(FSavedOpacity);
+end;
+
+procedure TMvCustomDrawingEngine.StoreState;
+begin
+  FSavedPen := GetPen;
+  FSavedBrush := GetBrush;
+  FSavedFont := GetFont;
+  FSavedOpacity := GetOpacity;
+end;
+
 procedure TMvCustomDrawingEngine.SetBrush(ABrush: TMvBrush);
 begin
   SetBrush(ABrush.Style, ABrush.Color);