Changeset 60 for trunk/Packages/Kernel/Kernel.Core.pas

Timestamp:

Apr 7, 2024, 11:26:09 PM (10 months ago)

Author:

chronos

Message:

• Modified: Remove U prefix from unit names.

File:

• trunk/Packages/Kernel/Kernel.Core.pas (moved) (moved from trunk/Packages/Kernel/UKernel.pas ) (7 diffs)

trunk/Packages/Kernel/Kernel.Core.pas

@@ -1 @@
-unit UKernel;
-
-{$mode delphi}{$H+}
+unit Kernel.Core;
 
 interface
 
 uses
-  Classes, SysUtils, UList, Contnrs, UFileSystem, UMemory, UScreen, UDevice,
-  fgl, UApp, UScheduler, UApi, UGraphics;
+  Classes, SysUtils, Kernel.List, Kernel.FileSystem, Kernel.Memory,
+  Kernel.Screen, Kernel.Device, Kernel.App, Kernel.Scheduler, Kernel.Api,
+  Kernel.Graphics, Generics.Collections;
 
 type
@@ -30 +29 @@
     function KernelApiExecute(Command: TApiCommand; Data: Pointer): Pointer;
   public
-    Apps: TNamedObjectList<TApp>;
-    Drives: TNamedObjectList<TDrive>;
+    Apps: TNamedObjects<TApp>;
+    Drives: TNamedObjects<TDrive>;
     Scheduler: TScheduler;
     SchedulerClass: TSchedulerClass;
     FileSystemClass: TFileSystemClass;
-    Devices: TNamedObjectList<TDevice>;
-    Screens: TFPGObjectList<TScreen>;
+    Devices: TNamedObjects<TDevice>;
+    Screens: TObjectList<TScreen>;
     Desktop: TDesktop;
     procedure AppExecute(AFile: TFile);
@@ -46 +45 @@
   end;
 
+
 implementation
-
 
 { TDrive }
@@ -53 +52 @@
 constructor TDrive.Create;
 begin
-
 end;
 
 destructor TDrive.Destroy;
 begin
-  FileSystem.Free;
-  inherited Destroy;
+  FreeAndNil(FileSystem);
+  inherited;
 end;
 
@@ -69 +67 @@
   VideoDevice: TDeviceVideo;
   VideoMode: TVideoMode;
-  Modes: TObjectList;
+  Modes: TVideoModes;
 begin
   VideoDevice := TDeviceVideo(Devices.FindByName('Video0'));
   if Assigned(VideoDevice) then begin
     NewScreen := TScreen.Create;
-    Modes := TObjectList.Create;
+    Modes := TVideoModes.Create;
     VideoDevice.GetSupportedModes(Modes);
     if Modes.Count > 0 then begin
@@ -158 +156 @@
 constructor TKernel.Create;
 begin
-  Devices := TNamedObjectList<TDevice>.Create;
-  Drives := TNamedObjectList<TDrive>.Create;
-  Apps := TNamedObjectList<TApp>.Create;
+  Devices := TNamedObjects<TDevice>.Create;
+  Drives := TNamedObjects<TDrive>.Create;
+  Apps := TNamedObjects<TApp>.Create;
   Scheduler := TScheduler.Create;
-  Screens := TFPGObjectList<TScreen>.Create;
+  Screens := TObjectList<TScreen>.Create;
   Api := TKernelApi.Create;
   Api.Kernel := Self;
@@ -178 +176 @@
   FreeAndNil(Drives);
   FreeAndNil(Devices);
-  inherited Destroy;
+  inherited;
 end;