Changeset 313 for trunk/Packages/Common/ULanguages.pas

Timestamp:

Jan 18, 2022, 10:45:33 PM (3 years ago)

Author:

chronos

Message:

• Modified: Updated to build under Lazarus 2.2.0.
• Modified: Updated Common package to version 0.9.

File:

• trunk/Packages/Common/ULanguages.pas (modified) (5 diffs)

trunk/Packages/Common/ULanguages.pas

@@ -1 +1 @@
 unit ULanguages;
 
-{$mode objfpc}{$H+}
+{$mode delphi}{$H+}
 
 interface
 
 uses
-  Classes, SysUtils, Contnrs;
+  Classes, SysUtils, fgl;
 
 type
@@ -15 +15 @@
   end;
 
-  { TLanguageList }
-
-  TLanguageList = class(TObjectList)
+  { TLanguages }
+
+  TLanguages = class(TFPGObjectList<TLanguage>)
     function SearchByCode(ACode: string): TLanguage;
     procedure AddNew(Code: string; Name: string);
-    constructor Create;
+    constructor Create(FreeObjects: Boolean = True);
   end;
 
@@ -223 +223 @@
 
 
-{ TLanguageList }
-
-function TLanguageList.SearchByCode(ACode: string): TLanguage;
+{ TLanguages }
+
+function TLanguages.SearchByCode(ACode: string): TLanguage;
 var
   I: Integer;
@@ -235 +235 @@
 end;
 
-procedure TLanguageList.AddNew(Code: string; Name: string);
+procedure TLanguages.AddNew(Code: string; Name: string);
 var
   NewItem: TLanguage;
@@ -245 +245 @@
 end;
 
-constructor TLanguageList.Create;
+constructor TLanguages.Create(FreeObjects: Boolean);
 begin
-  inherited Create;
+  inherited;
   AddNew('', SLangAuto);
   AddNew('aa', SLang_aa);