Changeset 230 for trunk/Forms/FormCategories.pas

Timestamp:

Jan 24, 2025, 11:42:58 PM (9 days ago)

Author:

chronos

Message:

• Modified: Fixed Import sources modification.
• Modified: Catogires don't have direct object references to import sources and acronym meanings.
• Modified: Updated acronyms example file.

File:

• trunk/Forms/FormCategories.pas (modified) (2 diffs)

trunk/Forms/FormCategories.pas

@@ -181 +181 @@
     Item.Caption := Name;
     Item.Data := ListViewSort1.List[Item.Index];
-    Item.SubItems.Add(IntToStr(AcronymMeanings.Count));
+    Item.SubItems.Add(IntToStr(GetAcronymMeaningsCount));
+    Item.SubItems.Add(IntToStr(GetImportSourcesCount));
     Item.Checked := Enabled;
   end;
@@ -211 +212 @@
     case Column of
       0: Result := CompareString(TAcronymCategory(Item1).Name, TAcronymCategory(Item2).Name);
-      1: Result := CompareInteger(TAcronymCategory(Item1).AcronymMeanings.Count, TAcronymCategory(Item2).AcronymMeanings.Count);
+      1: Result := CompareInteger(TAcronymCategory(Item1).GetAcronymMeaningsCount,
+        TAcronymCategory(Item2).GetAcronymMeaningsCount);
+      2: Result := CompareInteger(TAcronymCategory(Item1).GetImportSourcesCount,
+        TAcronymCategory(Item2).GetImportSourcesCount);
     end;
     if ListViewSort1.Order = soDown then Result := -Result;