Changeset 204 for trunk/UAcronym.pas

Timestamp:

May 6, 2019, 2:49:33 PM (5 years ago)

Author:

chronos

Message:

• Modified: Use fgl unit instead of TemplateGenerics.
• Modified: Update czech translation.
• Modified: Updated packages.

File:

• trunk/UAcronym.pas (modified) (7 diffs)

trunk/UAcronym.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, Contnrs, XMLRead, XMLWrite, DOM, UXMLUtils,
-  SpecializedList, fphttpclient2, Dialogs, odbcconn, sqldb, LazUTF8,
-  fgl;
+  fphttpclient2, Dialogs, odbcconn, sqldb, LazUTF8, fgl;
 
 type
@@ -102 +101 @@
     procedure AssignFromStrings(Strings: TStrings);
     procedure AddFromStrings(Strings: TStrings);
-    procedure AssignToList(List: TListObject);
+    procedure AssignToList(List: TFPGObjectList<TObject>);
     function GetString: string;
     procedure UpdateLinkImportSources(Item: TImportSource);
@@ -215 +214 @@
     procedure SaveToNode(Node: TDOMNode);
     procedure LoadFromNode(Node: TDOMNode);
-    procedure AssignToList(List: TListObject);
+    procedure AssignToList(List: TFPGObjectList<TObject>);
   end;
 
@@ -244 +243 @@
     procedure RemoveMeaning(Meaning: TAcronymMeaning);
     procedure RemoveAcronym(AcronymName, MeaningName: string);
-    procedure AssignToList(List: TListObject; EnabledCategoryOnly: Boolean = False);
+    procedure AssignToList(List: TFPGObjectList<TObject>; EnabledCategoryOnly: Boolean = False);
     procedure BeginUpdate;
     procedure EndUpdate;
@@ -595 +594 @@
 end;
 
-procedure TImportSources.AssignToList(List: TListObject);
+procedure TImportSources.AssignToList(List: TFPGObjectList<TObject>);
 var
   I: Integer;
@@ -1336 +1335 @@
 end;
 
-procedure TAcronymCategories.AssignToList(List: TListObject);
+procedure TAcronymCategories.AssignToList(List: TFPGObjectList<TObject>);
 var
   I: Integer;
@@ -1747 +1746 @@
 end;
 
-procedure TAcronymDb.AssignToList(List: TListObject; EnabledCategoryOnly: Boolean = False);
+procedure TAcronymDb.AssignToList(List: TFPGObjectList<TObject>; EnabledCategoryOnly: Boolean = False);
 var
   I: Integer;