Changeset 137 for trunk/Packages/ModularSystem

Timestamp:

Sep 9, 2022, 1:16:58 AM (2 years ago)

Author:

chronos

Message:

• Added: Robots page.
• Modified: Canonical URL for webcams.
• Modified: Removed compiler mode delphi as it is already set in project.
• Modified: Updated Common package.
• Modified: Use Generics.Collections instead of fgl.

Location:

trunk/Packages/ModularSystem

Files:

• Demo/UMainForm.pas (modified) (1 diff)
• Demo/UModuleACL.pas (modified) (2 diffs)
• Demo/UModuleBase.pas (modified) (2 diffs)
• Demo/UModuleUser.pas (modified) (3 diffs)
• ModularSystem.lpk (modified) (1 diff)
• UModularSystem.pas (modified) (2 diffs)

trunk/Packages/ModularSystem/Demo/UMainForm.pas

@@ -1 +1 @@
 unit UMainForm;
-
-{$mode objfpc}{$H+}
 
 interface

trunk/Packages/ModularSystem/Demo/UModuleACL.pas

@@ -1 +1 @@
 unit UModuleACL;
-
-{$mode objfpc}{$H+}
 
 interface
@@ -33 +31 @@
 destructor TModuleACL.Destroy;
 begin
-  inherited Destroy;
+  inherited;
 end;
 

trunk/Packages/ModularSystem/Demo/UModuleBase.pas

@@ -1 +1 @@
 unit UModuleBase;
-
-{$mode objfpc}{$H+}
 
 interface
@@ -30 +28 @@
 destructor TModuleBase.Destroy;
 begin
-  inherited Destroy;
+  inherited;
 end;
 

trunk/Packages/ModularSystem/Demo/UModuleUser.pas

@@ -1 +1 @@
 unit UModuleUser;
-
-{$mode objfpc}{$H+}
 
 interface
@@ -16 +14 @@
     destructor Destroy; override;
   end;
+
 
 implementation
@@ -33 +32 @@
 destructor TModuleUser.Destroy;
 begin
-  inherited Destroy;
+  inherited;
 end;
 

trunk/Packages/ModularSystem/ModularSystem.lpk

@@ -14 +14 @@
       <Parsing>
         <SyntaxOptions>
+          <SyntaxMode Value="Delphi"/>
           <CStyleOperator Value="False"/>
           <AllowLabel Value="False"/>

trunk/Packages/ModularSystem/UModularSystem.pas

@@ -1 +1 @@
 unit UModularSystem;
 
-{$mode Delphi}{$H+}
-
 interface
 
 uses
-  Classes, SysUtils, fgl, URegistry;
+  Classes, SysUtils, Generics.Collections, URegistry;
 
 type
@@ -65 +63 @@
   end;
 
-  TModules = class(TFPGObjectList<TModule>)
+  TModules = class(TObjectList<TModule>)
   end;