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

Timestamp:

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

Author:

chronos

Message:

• Modified: Remove U prefix from unit names.

File:

• trunk/Packages/Kernel/Kernel.Device.pas (moved) (moved from trunk/Packages/Kernel/UDevice.pas ) (10 diffs)

trunk/Packages/Kernel/Kernel.Device.pas

@@ -1 @@
-unit UDevice;
-
-{$mode delphi}{$H+}
+unit Kernel.Device;
 
 interface
 
 uses
-  Classes, SysUtils, Contnrs, UList, UGraphics, syncobjs;
+  Classes, SysUtils, Generics.Collections, Kernel.List, Kernel.Graphics, syncobjs;
 
 type
@@ -27 +25 @@
   end;
 
+  TVideoModes = class(TObjectList<TVideoMode>)
+  end;
+
   { TDeviceVideo }
 
@@ -39 +40 @@
     constructor Create; override;
     destructor Destroy; override;
-    procedure GetSupportedModes(Modes: TObjectList); virtual;
+    procedure GetSupportedModes(Modes: TVideoModes); virtual;
     procedure VideoMemoryChange; virtual;
     property VideoMode: TVideoMode read FVideoMode write SetVideoMode;
@@ -51 +52 @@
     procedure WriteText(Text: string); virtual;
   end;
+
 
 implementation
@@ -83 +85 @@
 constructor TDeviceSerial.Create;
 begin
-  inherited Create;
+  inherited;
   ClassName := 'Serial device';
 end;
@@ -89 +91 @@
 procedure TDeviceSerial.WriteText(Text: string);
 begin
-
 end;
 
@@ -96 +97 @@
 constructor TDevice.Create;
 begin
-  inherited Create;
+  inherited;
 end;
 
@@ -111 +112 @@
 destructor TDeviceVideo.Destroy;
 begin
-  Lock.Free;
-  FVideoMode.Free;
-  inherited Destroy;
+  FreeAndNil(Lock);
+  FreeAndNil(FVideoMode);
+  inherited;
 end;
 
@@ -120 +121 @@
 end;
 
-procedure TDeviceVideo.GetSupportedModes(Modes: TObjectList);
+procedure TDeviceVideo.GetSupportedModes(Modes: TVideoModes);
 begin
   Modes.Clear;
@@ -132 +133 @@
 procedure TDeviceVideo.VideoMemoryChange;
 begin
-
 end;