Changeset 230 for trunk/Forms/FormAcronyms.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/FormAcronyms.pas (modified) (6 diffs)

trunk/Forms/FormAcronyms.pas

@@ -35 +35 @@
     procedure ARemoveExecute(Sender: TObject);
     procedure ASelectAllExecute(Sender: TObject);
+    procedure FormActivate(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -103 +104 @@
 procedure TFormAcronyms.ListViewAcronymsResize(Sender: TObject);
 begin
-  //ListViewFilter1.UpdateFromListView(ListViewAcronyms);
+  ListViewFilter1.UpdateFromListView(ListViewAcronyms);
 end;
 
@@ -116 +117 @@
   I: Integer;
 begin
-  ListViewFilter1.UpdateFromListView(ListViewAcronyms);
   UpdateAcronymsList;
   ScaleDPI.ScaleControl(ToolBar1, ScaleDPI.DesignDPI);
@@ -166 +166 @@
       Meaning.Description := TempEntry.Description;
       Meaning.Categories.AssignFromStrings(TempEntry.Categories);
-
-      // Update reverse references
-      for I := 0 to Meaning.Categories.Count - 1 do
-        if TAcronymCategory(Meaning.Categories.Items[I]).AcronymMeanings.IndexOf(Meaning) = -1 then
-          TAcronymCategory(Meaning.Categories.Items[I]).AcronymMeanings.Add(Meaning);
 
       Acronyms.Db.Update;
@@ -216 +211 @@
           Meaning.Categories.AssignFromStrings(TempEntry.Categories);
 
-          // Update reverse references
-          for I := 0 to Meaning.Categories.Count - 1 do
-            if Meaning.Categories.Items[I].AcronymMeanings.IndexOf(Meaning) = -1 then
-              Meaning.Categories.Items[I].AcronymMeanings.Add(Meaning);
           Acronyms.Db.Update;
           UpdateAcronymsList;
@@ -259 +250 @@
   for I := 0 to ListViewAcronyms.Items.Count - 1 do
     ListViewAcronyms.Items[I].Selected := True;
+end;
+
+procedure TFormAcronyms.FormActivate(Sender: TObject);
+begin
+  ListViewFilter1.UpdateFromListView(ListViewAcronyms);
 end;