Changeset 132 for trunk/Modules/Portal/UPagePortal.pas

Timestamp:

Mar 18, 2022, 3:47:27 PM (3 years ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/Modules/Portal/UPagePortal.pas (modified) (3 diffs)

trunk/Modules/Portal/UPagePortal.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, USqlDatabase, UUtils,
-  SpecializedDictionary, UWebSession, SpecializedList, UHtmlClasses,
-  UModularSystem, UModuleUser, UModuleNews;
+  SpecializedDictionary, UWebSession, UHtmlClasses, UModularSystem, UModuleUser,
+  UModuleNews;
 
 type
@@ -18 +18 @@
   private
     Session: TWebSession;
-    function ShowPanel(Title, Content: string; Menu: TListString = nil): string;
+    function ShowPanel(Title, Content: string; Menu: TStrings = nil): string;
     function SystemMessage(Title, Text: string): string;
     function ShowLinks(GroupId: Integer): string;
@@ -283 +283 @@
 end;
 
-function TWebPagePortal.ShowPanel(Title, Content: string; Menu: TListString): string;
+function TWebPagePortal.ShowPanel(Title, Content: string; Menu: TStrings): string;
 var
   I: Integer;