Changeset 4 for trunk/UFormMain.pas

Timestamp:

Apr 20, 2016, 11:11:26 PM (8 years ago)

Author:

chronos

Message:

• Added: Now it is possible to add, modify, remove and remove all acronyms.

File:

• trunk/UFormMain.pas (modified) (10 diffs)

trunk/UFormMain.pas

@@ -15 +15 @@
 
   TFormMain = class(TForm)
-    ActionImport: TAction;
-    ActionShow: TAction;
-    ActionExit: TAction;
+    AAcronymAdd: TAction;
+    AAcronymModify: TAction;
+    AAcronymRemove: TAction;
+    AAcronymRemoveAll: TAction;
+    AImport: TAction;
+    AShow: TAction;
+    AExit: TAction;
     ActionList1: TActionList;
     EditSearch: TEdit;
@@ -24 +28 @@
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
+    MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
+    MenuItem6: TMenuItem;
+    MenuItem7: TMenuItem;
     PersistentForm1: TPersistentForm;
-    PopupMenu1: TPopupMenu;
+    PopupMenuAcronym: TPopupMenu;
+    PopupMenuTryIcon: TPopupMenu;
     TrayIcon1: TTrayIcon;
-    procedure ActionExitExecute(Sender: TObject);
-    procedure ActionImportExecute(Sender: TObject);
-    procedure ActionShowExecute(Sender: TObject);
+    procedure AAcronymAddExecute(Sender: TObject);
+    procedure AAcronymModifyExecute(Sender: TObject);
+    procedure AAcronymRemoveAllExecute(Sender: TObject);
+    procedure AAcronymRemoveExecute(Sender: TObject);
+    procedure AExitExecute(Sender: TObject);
+    procedure AImportExecute(Sender: TObject);
+    procedure AShowExecute(Sender: TObject);
     procedure EditSearchChange(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
@@ -37 +50 @@
     procedure FormShow(Sender: TObject);
     procedure ListViewAcronymsData(Sender: TObject; Item: TListItem);
+    procedure ListViewAcronymsDblClick(Sender: TObject);
+    procedure ListViewAcronymsKeyPress(Sender: TObject; var Key: char);
+    procedure ListViewAcronymsSelectItem(Sender: TObject; Item: TListItem;
+      Selected: Boolean);
     procedure TrayIcon1Click(Sender: TObject);
   private
     FoundAcronyms: TAcronymMeanings;
     procedure UpdateAcronymsList;
+    procedure UpdateInterface;
   public
     AcronymDb: TAcronymDb;
@@ -53 +71 @@
 
 uses
-  UFormImport;
+  UFormImport, UFormAcronym;
 
 const
@@ -68 +86 @@
 procedure TFormMain.EditSearchChange(Sender: TObject);
 begin
-  AcronymDb.FilterList(EditSearch.Text, FoundAcronyms);
   UpdateAcronymsList;
 end;
@@ -82 +99 @@
 end;
 
-procedure TFormMain.ActionExitExecute(Sender: TObject);
+procedure TFormMain.AExitExecute(Sender: TObject);
 begin
   Close;
 end;
 
-procedure TFormMain.ActionImportExecute(Sender: TObject);
+procedure TFormMain.AAcronymModifyExecute(Sender: TObject);
+var
+  TempEntry: TAcronymEntry;
+begin
+  if Assigned(ListViewAcronyms.Selected) then
+  with TAcronymMeaning(ListViewAcronyms.Selected.Data) do begin
+    TempEntry := TAcronymEntry.Create;
+    TempEntry.Name := Acronym.Name;
+    TempEntry.Meaning := Name;
+    FormAcronym.Load(TempEntry);
+    if FormAcronym.ShowModal = mrOk then begin
+      FormAcronym.Save(TempEntry);
+      if (TempEntry.Name <> Acronym.Name) or
+      (TempEntry.Meaning <> Name) then begin
+        // TODO: Update item inplace if possible
+        AcronymDb.RemoveAcronym(Acronym.Name, Name);
+        AcronymDb.AddAcronym(TempEntry.Name, TempEntry.Meaning);
+        UpdateAcronymsList;
+        UpdateInterface;
+      end;
+    end;
+  end;
+end;
+
+procedure TFormMain.AAcronymRemoveAllExecute(Sender: TObject);
+begin
+  if MessageDlg('Remove all acronyms', 'Do you want to remove all acronyms?',
+  TMsgDlgType.mtConfirmation, [mbCancel, mbOk], 0) = mrOk then begin
+    AcronymDb.Acronyms.Clear;
+    UpdateAcronymsList;
+    UpdateInterface;
+  end;
+end;
+
+procedure TFormMain.AAcronymRemoveExecute(Sender: TObject);
+begin
+  if Assigned(ListViewAcronyms.Selected) then begin
+    if MessageDlg('Remove acronym', 'Do you want to remove selected acronym?',
+    TMsgDlgType.mtConfirmation, [mbCancel, mbOk], 0) = mrOk then begin
+      AcronymDb.RemoveAcronym(TAcronymMeaning(ListViewAcronyms.Selected.Data).Acronym.Name,
+        TAcronymMeaning(ListViewAcronyms.Selected.Data).Name);
+      UpdateAcronymsList;
+      UpdateInterface;
+    end;
+  end;
+end;
+
+procedure TFormMain.AAcronymAddExecute(Sender: TObject);
+var
+  TempEntry: TAcronymEntry;
+begin
+  TempEntry := TAcronymEntry.Create;
+  TempEntry.Name := '';
+  TempEntry.Meaning := '';
+  FormAcronym.Load(TempEntry);
+  if FormAcronym.ShowModal = mrOk then begin
+    FormAcronym.Save(TempEntry);
+    AcronymDb.AddAcronym(TempEntry.Name, TempEntry.Meaning);
+    UpdateAcronymsList;
+    UpdateInterface;
+  end else TempEntry.Free;
+end;
+
+procedure TFormMain.AImportExecute(Sender: TObject);
 begin
   FormImport.ShowModal;
-  AcronymDb.FilterList(EditSearch.Text, FoundAcronyms);
   UpdateAcronymsList;
 end;
 
-procedure TFormMain.ActionShowExecute(Sender: TObject);
+procedure TFormMain.AShowExecute(Sender: TObject);
 begin
   Show;
@@ -115 +194 @@
   AcronymDb.FilterList(EditSearch.Text, FoundAcronyms);
   UpdateAcronymsList;
+  UpdateInterface;
 end;
 
@@ -126 +206 @@
     Item.Caption := Acronym.Name;
     Item.SubItems.Add(Name);
+    Item.Data := TAcronymMeaning(FoundAcronyms[Item.Index]);
     ContextCombined := '';
     for I := 0 to Contexts.Count - 1 do
@@ -134 +215 @@
 end;
 
+procedure TFormMain.ListViewAcronymsDblClick(Sender: TObject);
+begin
+  AAcronymModify.Execute;
+end;
+
+procedure TFormMain.ListViewAcronymsKeyPress(Sender: TObject; var Key: char);
+begin
+end;
+
+procedure TFormMain.ListViewAcronymsSelectItem(Sender: TObject;
+  Item: TListItem; Selected: Boolean);
+begin
+  UpdateInterface;
+end;
+
 procedure TFormMain.TrayIcon1Click(Sender: TObject);
 begin
@@ -141 +237 @@
 procedure TFormMain.UpdateAcronymsList;
 begin
+  AcronymDb.FilterList(EditSearch.Text, FoundAcronyms);
   ListViewAcronyms.Items.Count := FoundAcronyms.Count;
   ListViewAcronyms.Refresh;
 end;
 
+procedure TFormMain.UpdateInterface;
+begin
+  AAcronymRemove.Enabled := Assigned(ListViewAcronyms.Selected);
+end;
+
 end.