Changeset 204 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/Forms

Files:

• UFormAcronyms.pas (modified) (3 diffs)
• UFormCategories.lfm (modified) (1 diff)
• UFormCategories.lrj (modified) (1 diff)
• UFormCheck.pas (modified) (2 diffs)
• UFormImportFormats.lfm (modified) (1 diff)
• UFormImportFormats.lrj (modified) (1 diff)
• UFormImportSources.pas (modified) (3 diffs)
• UFormMain.pas (modified) (3 diffs)

trunk/Forms/UFormAcronyms.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  Menus, ActnList, UListViewSort, UAcronym, LazUTF8, SpecializedList;
+  Menus, ActnList, UListViewSort, UAcronym, LazUTF8, fgl;
 
 type
@@ -52 +52 @@
     FAcronyms: TAcronyms;
     MeaningCount: Integer;
-    procedure FilterList(List: TListObject);
+    procedure FilterList(List: TFPGObjectList<TObject>);
     procedure SetAcronyms(AValue: TAcronyms);
     procedure UpdateAcronymsList;
@@ -296 +296 @@
 end;
 
-procedure TFormAcronyms.FilterList(List: TListObject);
+procedure TFormAcronyms.FilterList(List: TFPGObjectList<TObject>);
 var
   I: Integer;

trunk/Forms/UFormCategories.lfm

@@ -49 +49 @@
     Width = 784
     Align = alBottom
-    Caption = 'ToolBar1'
     Images = Core.ImageList1
     ParentShowHint = False

trunk/Forms/UFormCategories.lrj

@@ -3 +3 @@
 {"hash":346165,"name":"tformcategories.listviewcategories.columns[0].caption","sourcebytes":[78,97,109,101],"value":"Name"},
 {"hash":107848676,"name":"tformcategories.listviewcategories.columns[1].caption","sourcebytes":[85,115,101,100,32,99,111,117,110,116],"value":"Used count"},
-{"hash":106991073,"name":"tformcategories.toolbar1.caption","sourcebytes":[84,111,111,108,66,97,114,49],"value":"ToolBar1"},
 {"hash":18340,"name":"tformcategories.aadd.caption","sourcebytes":[65,100,100],"value":"Add"},
 {"hash":93079237,"name":"tformcategories.aremove.caption","sourcebytes":[82,101,109,111,118,101],"value":"Remove"},

trunk/Forms/UFormCheck.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
+  Classes, SysUtils, LazFileUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
   ExtCtrls, ComCtrls, Menus, ActnList, UAcronym, URegistry, Registry, UCommon,
   fgl;
@@ -394 +394 @@
   State := stNone;
   StartIndex := 0;
+  Acronym := '';
   repeat
     if State = stAcronymUsage then begin

trunk/Forms/UFormImportFormats.lfm

@@ -43 +43 @@
     Width = 739
     Align = alBottom
-    Caption = 'ToolBar1'
     Images = Core.ImageList1
     ParentFont = False

trunk/Forms/UFormImportFormats.lrj

@@ -2 +2 @@
 {"hash":153070547,"name":"tformimportformats.caption","sourcebytes":[73,109,112,111,114,116,32,102,111,114,109,97,116,115],"value":"Import formats"},
 {"hash":346165,"name":"tformimportformats.listview1.columns[0].caption","sourcebytes":[78,97,109,101],"value":"Name"},
-{"hash":106991073,"name":"tformimportformats.toolbar1.caption","sourcebytes":[84,111,111,108,66,97,114,49],"value":"ToolBar1"},
 {"hash":18340,"name":"tformimportformats.aadd.caption","sourcebytes":[65,100,100],"value":"Add"},
 {"hash":93079237,"name":"tformimportformats.aremove.caption","sourcebytes":[82,101,109,111,118,101],"value":"Remove"},

trunk/Forms/UFormImportSources.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  ActnList, Menus, UAcronym, UJobProgressView, UListViewSort, SpecializedList,
-  LazUTF8;
+  ActnList, Menus, UAcronym, UJobProgressView, UListViewSort, LazUTF8, fgl;
 
 type
@@ -63 +62 @@
   private
     procedure ProcessImportJob(Job: TJob);
-    procedure FilterList(List: TListObject);
+    procedure FilterList(List: TFPGObjectList<TObject>);
   public
     ImportSources: TImportSources;
@@ -297 +296 @@
 end;
 
-procedure TFormImportSources.FilterList(List: TListObject);
+procedure TFormImportSources.FilterList(List: TFPGObjectList<TObject>);
 var
   I: Integer;

trunk/Forms/UFormMain.pas

@@ -9 +9 @@
   ComCtrls, StdCtrls, ExtCtrls, ActnList, Grids, UAcronym, UPersistentForm,
   URegistry, ULastOpenedList, UListViewSort, UJobProgressView,
-  Registry, SpecializedList, LazUTF8, LazFileUtils;
+  Registry, fgl, LazUTF8, LazFileUtils;
 
 type
@@ -151 +151 @@
     function FilterCell(Text1, Text2: string): Boolean;
     procedure ProcessImportsJob(Job: TJob);
-    procedure FilterList(List: TListObject);
+    procedure FilterList(List: TFPGObjectList<TObject>);
     procedure OpenRecentClick(Sender: TObject);
     procedure SetToolbarHints;
@@ -655 +655 @@
 end;
 
-procedure TFormMain.FilterList(List: TListObject);
+procedure TFormMain.FilterList(List: TFPGObjectList<TObject>);
 var
   I: Integer;