Changeset 89 for trunk/Forms/UFormAcronym.pas

Timestamp:

Aug 9, 2016, 10:53:36 PM (8 years ago)

Author:

chronos

Message:

• Added: Show from which imports acronym meanings comes from.

This would easy correcting wrong acronyms directly in source.

• Modified: References to categories stored more efficiently in XML project file.

File:

• trunk/Forms/UFormAcronym.pas (modified) (8 diffs)

trunk/Forms/UFormAcronym.pas

@@ -27 +27 @@
     Label3: TLabel;
     Label4: TLabel;
-    ListBox1: TListBox;
+    Label5: TLabel;
+    ListBoxCategories: TListBox;
+    ListBoxImportSources: TListBox;
     MemoDescription: TMemo;
     MenuItem1: TMenuItem;
@@ -36 +38 @@
     procedure EditMeaningKeyPress(Sender: TObject; var Key: char);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
-    procedure ListBox1SelectionChange(Sender: TObject; User: boolean);
+    procedure ListBoxCategoriesSelectionChange(Sender: TObject; User: boolean);
   private
     procedure UpdateInterface;
@@ -63 +66 @@
 end;
 
+procedure TFormAcronym.FormCreate(Sender: TObject);
+begin
+
+end;
+
 procedure TFormAcronym.ACategoryAddExecute(Sender: TObject);
 var
   I: Integer;
 begin
-  FormCategorySelect.Load(ListBox1.Items);
+  FormCategorySelect.Load(ListBoxCategories.Items);
   if FormCategorySelect.ShowModal = mrOk then begin
     for I := 0 to FormCategorySelect.ListBox1.Count - 1 do
       if FormCategorySelect.ListBox1.Selected[I] then begin
-        ListBox1.Items.AddObject(FormCategorySelect.ListBox1.Items[I], FormCategorySelect.ListBox1.Items.Objects[I]);
+        ListBoxCategories.Items.AddObject(FormCategorySelect.ListBox1.Items[I], FormCategorySelect.ListBox1.Items.Objects[I]);
       end;
   end;
@@ -82 +90 @@
   if MessageDlg(SRemoveCategory, SRemoveCategoryQuery,
   TMsgDlgType.mtConfirmation, [mbCancel, mbOk], 0) = mrOk then begin
-    for I := ListBox1.Items.Count - 1 downto 0 do
-    if ListBox1.Selected[I] then
-      ListBox1.Items.Delete(I);
+    for I := ListBoxCategories.Items.Count - 1 downto 0 do
+    if ListBoxCategories.Selected[I] then
+      ListBoxCategories.Items.Delete(I);
     UpdateInterface;
   end;
@@ -101 +109 @@
 end;
 
-procedure TFormAcronym.ListBox1SelectionChange(Sender: TObject; User: boolean);
+procedure TFormAcronym.ListBoxCategoriesSelectionChange(Sender: TObject; User: boolean);
 begin
   UpdateInterface;
@@ -108 +116 @@
 procedure TFormAcronym.UpdateInterface;
 begin
-  ACategoryRemove.Enabled := ListBox1.ItemIndex <> -1;
+  ACategoryRemove.Enabled := ListBoxCategories.ItemIndex <> -1;
 end;
 
@@ -116 +124 @@
   EditMeaning.Text := Entry.Meaning;
   MemoDescription.Text := Entry.Description;
-  ListBox1.Items.Assign(Entry.Categories);
+  ListBoxCategories.Items.Assign(Entry.Categories);
+  ListBoxImportSources.Items.Assign(Entry.Sources);
 end;
 
@@ -124 +133 @@
   Entry.Meaning := EditMeaning.Text;
   Entry.Description := MemoDescription.Text;
-  Entry.Categories.Assign(ListBox1.Items);
+  Entry.Categories.Assign(ListBoxCategories.Items);
 end;