Changeset 238 for branches/CpuSingleSize/Forms/FormScreen.pas

Timestamp:

Jul 15, 2023, 12:51:15 AM (16 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from unit names.
• Fixed: Memory leaks.

File:

• branches/CpuSingleSize/Forms/FormScreen.pas (moved) (moved from branches/CpuSingleSize/Forms/UFormScreen.pas ) (3 diffs)

branches/CpuSingleSize/Forms/FormScreen.pas

@@ -1 @@
-unit UFormScreen;
+unit FormScreen;
 
 interface
 
 uses
-  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, UMachine;
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, Machine;
 
 type
@@ -26 +26 @@
   end;
 
-var
-  FormScreen: TFormScreen;
 
 implementation
@@ -79 +77 @@
 procedure TFormScreen.FormDestroy(Sender: TObject);
 begin
-  TempBitmap.Free;
+  FreeAndNil(TempBitmap);
 end;