Changeset 137 for trunk/Application/UWebObjects.pas

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.

File:

• trunk/Application/UWebObjects.pas (modified) (4 diffs)

trunk/Application/UWebObjects.pas

@@ -1 +1 @@
 unit UWebObjects;
 
-{$mode delphi}
-
 interface
 
 uses
-  Classes, SysUtils, UHtmlClasses, UXmlClasses, SpecializedDictionary, fgl;
+  Classes, SysUtils, UHtmlClasses, UXmlClasses, SpecializedDictionary,
+  Generics.Collections;
 
 type
@@ -34 +33 @@
   { TQueryFormItemList }
 
-  TQueryFormItemList = class(TFPGObjectList<TQueryFormItem>)
+  TQueryFormItemList = class(TObjectList<TQueryFormItem>)
     function FindByName(AValue: string): TQueryFormItem;
   end;
@@ -49 +48 @@
   end;
 
-  TQueryFormGroups = class(TFPGObjectList<TQueryFormGroup>)
+  TQueryFormGroups = class(TObjectList<TQueryFormGroup>)
   end;
 
@@ -57 +56 @@
   end;
 
-  TQueryActions = class(TFPGObjectList<TQueryAction>)
+  TQueryActions = class(TObjectList<TQueryAction>)
   end;