فهرست منبع

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 سال پیش
والد
کامیت
539f2cd7f0
1فایلهای تغییر یافته به همراه1 افزوده شده و 1 حذف شده
  1. 1 1
      packages/amunits/src/coreunits/agraphics.pas

+ 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;