Changeset 38 for branches/overos/UApplication.pas

Timestamp:

Jun 30, 2023, 3:36:57 PM (11 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• branches/overos/UApplication.pas (modified) (6 diffs)

branches/overos/UApplication.pas

@@ -1 +1 @@
 unit UApplication;
-
-{$mode delphi}
 
 interface
 
 uses
-  Classes, SysUtils, fgl, UTypes, UWindow;
+  Classes, SysUtils, Generics.Collections, UTypes, UWindow;
 
 type
@@ -13 +11 @@
 
   TMessageQueue = class
-    Messages: TFPGObjectList<TMessage>;
+    Messages: TObjectList<TMessage>;
     procedure PostMessage(Handle: TObject; Message: TMessage);
     constructor Create;
@@ -28 +26 @@
     destructor Destroy; override;
   end;
+
 
 implementation
@@ -53 +52 @@
 destructor TApplication.Destroy;
 begin
-  MessageQueue.Free;
-  inherited Destroy;
+  FreeAndNil(MessageQueue);
+  inherited;
 end;
 
@@ -67 +66 @@
 constructor TMessageQueue.Create;
 begin
-  Messages := TFPGObjectList<TMessage>.Create;
-  Messages.FreeObjects := False;
+  Messages := TObjectList<TMessage>.Create;
+  Messages.OwnsObjects := False;
 end;
 
@@ -77 +76 @@
   for I := 0 to Messages.Count - 1 do
     Messages[I].Free;
-  Messages.Free;
-  inherited Destroy;
+  FreeAndNil(Messages);
+  inherited;
 end;
 
 end.
 
-