Changeset 97 for trunk/Forms/UFormImportSources.pas

Timestamp:

Aug 22, 2016, 1:16:56 PM (8 years ago)

Author:

chronos

Message:

• Added: Add support for acronym category selection in import source format.
• Modified: Optimalized export speed.
• Fixed: Export to MediaWiki tables was not correctly generated for multi line strings.
• Fixed: Add back links from categories to import sources.
• Added: Multi select support in category list.

File:

• trunk/Forms/UFormImportSources.pas (modified) (4 diffs)

trunk/Forms/UFormImportSources.pas

@@ -184 +184 @@
 var
   NewImportSource: TImportSource;
+  I: Integer;
 begin
   NewImportSource := TImportSource.Create;
@@ -194 +195 @@
       if not Assigned(ImportSources.SearchByName(NewImportSource.Name)) then begin;
         ImportSources.Add(NewImportSource);
+
+        // Update reverse references
+        for I := 0 to NewImportSource.Categories.Count - 1 do
+          if TAcronymCategory(NewImportSource.Categories.Items[I]).ImportSources.IndexOf(NewImportSource) = -1 then
+            TAcronymCategory(NewImportSource.Categories.Items[I]).ImportSources.Add(NewImportSource);
+
         NewImportSource := nil;
         Core.AcronymDb.Modified := True;
@@ -228 +235 @@
 var
   NewImportSource: TImportSource;
+  I: Integer;
 begin
   if Assigned(ListView1.Selected) then begin
@@ -241 +249 @@
             TImportSource(ListView1.Selected.Data).Assign(NewImportSource);
             Core.AcronymDb.Modified := True;
-            UpdateList;
           end else ShowMessage(Format(SImportSourceAlreadyExists, [NewImportSource.Name]));
         end else begin
           TImportSource(ListView1.Selected.Data).Assign(NewImportSource);
           Core.AcronymDb.Modified := True;
-          UpdateList;
         end;
+
+        // Update reverse references
+        TImportSource(ListView1.Selected.Data).Categories.UpdateLinkImportSources(TImportSource(ListView1.Selected.Data));
+
+        UpdateList;
       end;
       if Assigned(NewImportSource) then NewImportSource.Free;