FIX: FireMonkey constants changed (#35)

Works in older Delphi version as well, new enum values are available for some time already.
galfar · Nov 25, 2023 · 4627e3b · 4627e3b
1 parent d1182b2
commit 4627e3b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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