Changeset 19 for trunk/Forms/UFormAcronyms.pas

Timestamp:

May 4, 2016, 12:54:09 PM (8 years ago)

Author:

chronos

Message:

• Modified: Acronyms management is not done in Acronyms window. List in main window is just for viewing.

File:

• trunk/Forms/UFormAcronyms.pas (modified) (7 diffs)

trunk/Forms/UFormAcronyms.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  Menus, UListViewSort, UAcronym, LazUTF8, SpecializedList;
+  Menus, ActnList, UListViewSort, UAcronym, LazUTF8, SpecializedList;
 
 type
@@ -14 +14 @@
 
   TFormAcronyms = class(TForm)
+    AAdd: TAction;
+    ASelectAll: TAction;
+    AModify: TAction;
+    ARemove: TAction;
+    ActionList1: TActionList;
     ListViewAcronyms: TListView;
     ListViewFilter1: TListViewFilter;
     ListViewSort1: TListViewSort;
+    MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
+    MenuItem6: TMenuItem;
+    MenuItem7: TMenuItem;
+    PopupMenuAcronym: TPopupMenu;
+    procedure AAddExecute(Sender: TObject);
+    procedure AModifyExecute(Sender: TObject);
+    procedure ARemoveExecute(Sender: TObject);
+    procedure ASelectAllExecute(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure ListViewAcronymsData(Sender: TObject; Item: TListItem);
+    procedure ListViewAcronymsDblClick(Sender: TObject);
     procedure ListViewAcronymsResize(Sender: TObject);
+    procedure ListViewAcronymsSelectItem(Sender: TObject; Item: TListItem;
+      Selected: Boolean);
     procedure ListViewFilter1Change(Sender: TObject);
     function ListViewSort1CompareItem(Item1, Item2: TObject): Integer;
@@ -25 +42 @@
   private
     procedure FilterList(List: TListObject);
+    procedure UpdateAcronymsList;
   public
-    { public declarations }
+    procedure UpdateInterface;
   end;
 
@@ -37 +55 @@
 
 uses
-  UFormMain;
+  UFormMain, UFormAcronym;
+
+resourcestring
+  SRemoveAllAcronyms = 'Remove all acronyms';
+  SRemoveAllAcronymsQuery = 'Do you want to remove all acronyms?';
+  SRemoveAcronym = 'Remove acronym';
+  SRemoveAcronymQuery = 'Do you want to remove selected acronym?';
+
 
 { TFormAcronyms }
@@ -52 +77 @@
 end;
 
+procedure TFormAcronyms.ListViewAcronymsDblClick(Sender: TObject);
+begin
+  AModify.Execute;
+end;
+
 procedure TFormAcronyms.ListViewAcronymsResize(Sender: TObject);
 begin
@@ -57 +87 @@
 end;
 
+procedure TFormAcronyms.ListViewAcronymsSelectItem(Sender: TObject;
+  Item: TListItem; Selected: Boolean);
+begin
+  UpdateInterface;
+end;
+
 procedure TFormAcronyms.FormShow(Sender: TObject);
 begin
   ListViewFilter1.UpdateFromListView(ListViewAcronyms);
-  ListViewSort1.Refresh;
+  UpdateAcronymsList;
+end;
+
+procedure TFormAcronyms.AAddExecute(Sender: TObject);
+var
+  TempEntry: TAcronymEntry;
+  Meaning: TAcronymMeaning;
+  I: Integer;
+begin
+  TempEntry := TAcronymEntry.Create;
+  TempEntry.Name := '';
+  TempEntry.Meaning := '';
+  TempEntry.Description := '';
+  FormAcronym.Load(TempEntry);
+  if FormAcronym.ShowModal = mrOk then begin
+    FormAcronym.Save(TempEntry);
+    Meaning := FormMain.AcronymDb.AddAcronym(TempEntry.Name, TempEntry.Meaning);
+    Meaning.Description := TempEntry.Description;
+    Meaning.Categories.AssignFromStrings(TempEntry.Categories);
+    for I := 0 to Meaning.Categories.Count - 1 do
+      TAcronymCategory(Meaning.Categories.Items[I]).AcronymMeanings.Add(Meaning);
+    UpdateAcronymsList;
+    UpdateInterface;
+  end;
+  TempEntry.Free;
+end;
+
+procedure TFormAcronyms.AModifyExecute(Sender: TObject);
+var
+  TempEntry: TAcronymEntry;
+  TempCategories: TStringList;
+  Meaning: TAcronymMeaning;
+  I: Integer;
+begin
+  if Assigned(ListViewAcronyms.Selected) then
+  with TAcronymMeaning(ListViewAcronyms.Selected.Data) do begin
+    TempEntry := TAcronymEntry.Create;
+    TempEntry.Name := Acronym.Name;
+    TempEntry.Meaning := Name;
+    TempEntry.Description := Description;
+    Categories.AssignToStrings(TempEntry.Categories);
+    TempCategories := TStringList.Create;
+    TempCategories.Assign(TempEntry.Categories);
+    FormAcronym.Load(TempEntry);
+    if FormAcronym.ShowModal = mrOk then begin
+      FormAcronym.Save(TempEntry);
+      if (TempEntry.Name <> Acronym.Name) or
+      (TempEntry.Meaning <> Name) or
+      (TempEntry.Description <> Description) or
+      not FormMain.CompareStrings(TempEntry.Categories, TempCategories) then begin
+        // TODO: Update item inplace if possible
+        FormMain.AcronymDb.RemoveAcronym(Acronym.Name, Name);
+        Meaning := FormMain.AcronymDb.AddAcronym(TempEntry.Name, TempEntry.Meaning);
+        Meaning.Description := TempEntry.Description;
+        Meaning.Categories.AssignFromStrings(TempEntry.Categories);
+        for I := 0 to Meaning.Categories.Count - 1 do
+          TAcronymCategory(Meaning.Categories.Items[I]).AcronymMeanings.Add(Meaning);
+        UpdateAcronymsList;
+        UpdateInterface;
+      end;
+    end;
+    TempEntry.Free;
+    TempCategories.Free;
+  end;
+end;
+
+procedure TFormAcronyms.ARemoveExecute(Sender: TObject);
+var
+  I: Integer;
+begin
+  if Assigned(ListViewAcronyms.Selected) then begin
+    if MessageDlg(SRemoveAcronym, SRemoveAcronymQuery,
+    TMsgDlgType.mtConfirmation, [mbCancel, mbOk], 0) = mrOk then begin
+      for I := ListViewAcronyms.Items.Count - 1 downto 0 do
+        if ListViewAcronyms.Items[I].Selected then begin
+          ListViewAcronyms.Items[I].Selected := False;
+          FormMain.AcronymDb.RemoveAcronym(
+            TAcronymMeaning(ListViewAcronyms.Items[I].Data).Acronym.Name,
+            TAcronymMeaning(ListViewAcronyms.Items[I].Data).Name);
+        end;
+      UpdateAcronymsList;
+      UpdateInterface;
+    end;
+  end;
+end;
+
+procedure TFormAcronyms.ASelectAllExecute(Sender: TObject);
+var
+  I: Integer;
+begin
+  for I := 0 to ListViewAcronyms.Items.Count - 1 do
+    ListViewAcronyms.Items[I].Selected := True;
 end;
 
 procedure TFormAcronyms.ListViewFilter1Change(Sender: TObject);
 begin
-  ListViewSort1.Refresh;
+  UpdateAcronymsList;
 end;
 
@@ -118 +245 @@
 end;
 
+procedure TFormAcronyms.UpdateAcronymsList;
+begin
+  ListViewSort1.Refresh;
+  UpdateInterface;
+end;
+
+procedure TFormAcronyms.UpdateInterface;
+begin
+  ARemove.Enabled := Assigned(FormMain.AcronymDb) and Assigned(ListViewAcronyms.Selected);
+  AModify.Enabled := Assigned(FormMain.AcronymDb) and Assigned(ListViewAcronyms.Selected);
+  AAdd.Enabled := Assigned(FormMain.AcronymDb);
+end;
+
 end.