Changeset 30 for trunk/UAcronym.pas

Timestamp:

Jul 12, 2016, 5:56:39 PM (8 years ago)

Author:

chronos

Message:

• Fixed: Load also acronym description.
• Added: Interface icons.

File:

• trunk/UAcronym.pas (modified) (3 diffs)

trunk/UAcronym.pas

@@ -525 +525 @@
   T: string;
   LastLength: Integer;
+  AddedAcronym: TAcronymMeaning;
 begin
   ItemCount := 0;
@@ -587 +588 @@
                 ivAcronym: NewAcronym.Name := T;
                 ivMeaning: NewAcronym.Meaning := T;
+                ivDescription: NewAcronym.Description := T;
               end;
               Delete(S, 1, P + Length(EndString) - 1);
@@ -592 +594 @@
               if (Flag = ipfNewItem) and (Trim(NewAcronym.Name) <> '') and
                 (Trim(NewAcronym.Meaning) <> '') then begin
-                  Sources.AcronymDb.AddAcronym(NewAcronym.Name, NewAcronym.Meaning);
+                  AddedAcronym := Sources.AcronymDb.AddAcronym(NewAcronym.Name, NewAcronym.Meaning);
+                  AddedAcronym.Description := NewAcronym.Description;
                   Inc(ItemCount);
                 end;