Changeset 60 for trunk/Platform/Base/PlatformBase.pas

Timestamp:

Apr 7, 2024, 11:26:09 PM (6 weeks ago)

Author:

chronos

Message:

• Modified: Remove U prefix from unit names.

File:

• trunk/Platform/Base/PlatformBase.pas (moved) (moved from trunk/Platform/Base/UPlatformBase.pas ) (8 diffs)

trunk/Platform/Base/PlatformBase.pas

@@ -1 @@
-unit UPlatformBase;
-
-{$mode delphi}
+unit PlatformBase;
 
 interface
 
 uses
-  Classes, SysUtils, UFileSystem, UKernel, syncobjs, UThreadEx, UMemory,
-  DateUtils, UDevice, Contnrs, Graphics, Forms, UScreen, UScheduler, UGraphics;
+  Classes, SysUtils, Kernel.FileSystem, Kernel.Core, syncobjs, ThreadEx,
+  Kernel.Memory, DateUtils, Kernel.Device, Generics.Collections, Graphics, Forms,
+  Kernel.Screen, Kernel.Scheduler, Kernel.Graphics;
 
 type
@@ -71 +70 @@
     DPI: Integer;
     Canvas: TCanvas;
-    procedure GetSupportedModes(Modes: TObjectList); override;
+    procedure GetSupportedModes(Modes: TVideoModes); override;
     procedure VideoMemoryChange; override;
     constructor Create; override;
@@ -109 +108 @@
 end;
 
-procedure TDeviceVideoBase.GetSupportedModes(Modes: TObjectList);
+procedure TDeviceVideoBase.GetSupportedModes(Modes: TVideoModes);
 var
   NewMode: TVideoMode;
@@ -158 +157 @@
 destructor TDeviceVideoBase.Destroy;
 begin
-  inherited Destroy;
+  inherited;
 end;
 
@@ -172 +171 @@
 destructor TBaseSerialDevice.Destroy;
 begin
-  Lock.Free;
-  inherited Destroy;
+  FreeAndNil(Lock);
+  inherited;
 end;
 
@@ -195 +194 @@
 destructor TBaseTask.Destroy;
 begin
-  Thread.Free;
-  inherited Destroy;
+  FreeAndNil(Thread);
+  inherited;
 end;
 
@@ -244 +243 @@
 constructor TBaseScheduler.Create;
 begin
-  inherited Create;
+  inherited;
   TaskClass := TBaseTask;
 end;
@@ -250 +249 @@
 destructor TBaseScheduler.Destroy;
 begin
-  inherited Destroy;
+  inherited;
 end;