From 4627e3b48865a8b707e0d576ab4cd4df0550fea3 Mon Sep 17 00:00:00 2001
From: "Dr. Holger Flick" <holger@flixengineering.com>
Date: Sat, 25 Nov 2023 18:55:03 -0500
Subject: [PATCH] FIX: FireMonkey constants changed (#35)

Works in older Delphi version as well, new enum values are available for some time already.
---
 Extensions/ImagingFmx.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Extensions/ImagingFmx.pas b/Extensions/ImagingFmx.pas
index 496e6be..a841006 100644
--- a/Extensions/ImagingFmx.pas
+++ b/Extensions/ImagingFmx.pas
@@ -60,7 +60,7 @@ procedure ConvertFmxBitmapToImageData(const Bitmap: TBitmap; Image: TImageData);
   X, Y, Bpp, SrcWidthBytes: Integer;
   TargetInfo: TImageFormatInfo;
 begin
-  Bitmap.Map(TMapAccess.maRead, MapData);
+  Bitmap.Map(TMapAccess.Read, MapData);
   GetImageFormatInfo(Image.Format, TargetInfo);
 
   Bpp := TargetInfo.BytesPerPixel;
@@ -232,7 +232,7 @@ procedure CopyRectToFmxBitmap(const Image: TImageData; Bitmap: TBitmap;
     SrcWidthBytes := Image.Width * Bpp;
     MoveBytes := Width * Bpp;
     SrcPtr := @PByteArray(Image.Bits)[SrcY * SrcWidthBytes + SrcX * Bpp];
-    Bitmap.Map(TMapAccess.maReadWrite, MapData);
+    Bitmap.Map(TMapAccess.ReadWrite, MapData);
 
     for Y := 0 to Height - 1 do
     begin