2
0
Эх сурвалжийг харах

amunits: in agraphics legacy support, use ExecFreeMem (OS call) instead of FreeMem (RTL call) to free the Bitmap which was created using ExecAllocMem

Karoly Balogh 3 жил өмнө
parent
commit
539f2cd7f0

+ 1 - 1
packages/amunits/src/coreunits/agraphics.pas

@@ -2605,7 +2605,7 @@ begin
     for i := 0 to Depth - 1 do
       if MyBM^.Planes[i] <> nil then
         FreeRaster(MyBM^.Planes[i], Width, Height);
-    FreeMem(MyBM, SizeOf(TBitMap));
+    ExecFreeMem(MyBM, SizeOf(TBitMap));
   end;
 end;