Changeset 137 for trunk/Application

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/Application

Files:

• UWebObjects.pas (modified) (4 diffs)
• UWebSession.pas (modified) (2 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;
 

trunk/Application/UWebSession.pas

@@ -1 +1 @@
 unit UWebSession;
-
-{$mode delphi}
 
 interface
@@ -70 +68 @@
 begin
   with TModuleBase(ModuleManager.FindModuleByName('Base')) do
-  if Assigned(GeneratePage) then GeneratePage(Self, Page)
+  if Assigned(OnGeneratePage) then OnGeneratePage(Self, Page)
     else GeneratePageDefault(Self, Page);
 end;