Changeset 290 for trunk/Packages/CevoComponents/ScreenTools.pas

Timestamp:

Feb 26, 2021, 11:56:48 PM (4 years ago)

Author:

chronos

Message:

• Modified: Use FreeAndNil instead of Free as defensive measure.
• Modified: Use ihnerited without same method name specification.

File:

• trunk/Packages/CevoComponents/ScreenTools.pas (modified) (4 diffs)

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -258 +258 @@
     MenuItem := MenuItems[MenuItems.Count - 1];
     MenuItems.Delete(MenuItems.Count - 1);
-    MenuItem.Free;
+    FreeAndNil(MenuItem);
   end;
 end;
@@ -439 +439 @@
       Bmp.Canvas.Draw(0, 0, jtex);
     end;
-    jtex.Free;
+    FreeAndNil(jtex);
   end
   else
@@ -464 +464 @@
         Bmp.Canvas.draw(0, 0, Png);
     end;
-    Png.Free;
+    FreeAndNil(Png);
   end
   else
@@ -1726 +1726 @@
   RestoreResolution;
   for I := 0 to nGrExt - 1 do begin
-    GrExt[I].Data.Free;
-    GrExt[I].Mask.Free;
+    FreeAndNil(GrExt[I].Data);
+    FreeAndNil(GrExt[I].Mask);
     FreeMem(GrExt[I]);
   end;