Changeset 6 for trunk/UFormMain.pas

Timestamp:

Apr 21, 2016, 10:22:08 AM (8 years ago)

Author:

chronos

Message:

• Added: Acronyms can be loaded from/saved to different files.
• Added: Application remembers list of last used files.
• Added: Show question dialog on exit if acronyms were modified.

File:

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

trunk/UFormMain.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
   ComCtrls, StdCtrls, ExtCtrls, ActnList, UAcronym, UPersistentForm, Contnrs,
-  URegistry, Registry;
+  URegistry, ULastOpenedList, Registry;
 
 type
@@ -19 +19 @@
     AAcronymRemove: TAction;
     AAcronymRemoveAll: TAction;
+    AFileSaveAs: TAction;
+    AFileClose: TAction;
+    AFileSave: TAction;
+    AFileNew: TAction;
+    AFileOpen: TAction;
     AImport: TAction;
     AShow: TAction;
@@ -24 +29 @@
     ActionList1: TActionList;
     EditSearch: TEdit;
+    LastOpenedList1: TLastOpenedList;
     ListViewAcronyms: TListView;
+    MainMenu1: TMainMenu;
     MenuItem1: TMenuItem;
+    MenuItem10: TMenuItem;
+    MenuItem11: TMenuItem;
+    MenuItem12: TMenuItem;
+    MenuItem13: TMenuItem;
+    MenuItem14: TMenuItem;
+    MenuItem15: TMenuItem;
+    MenuItemOpenRecent: TMenuItem;
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
@@ -32 +46 @@
     MenuItem6: TMenuItem;
     MenuItem7: TMenuItem;
+    MenuItem8: TMenuItem;
+    MenuItem9: TMenuItem;
+    OpenDialog1: TOpenDialog;
     PersistentForm1: TPersistentForm;
     PopupMenuAcronym: TPopupMenu;
     PopupMenuTryIcon: TPopupMenu;
+    SaveDialog1: TSaveDialog;
     TrayIcon1: TTrayIcon;
     procedure AAcronymAddExecute(Sender: TObject);
@@ -41 +59 @@
     procedure AAcronymRemoveExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
+    procedure AFileCloseExecute(Sender: TObject);
+    procedure AFileNewExecute(Sender: TObject);
+    procedure AFileOpenExecute(Sender: TObject);
+    procedure AFileSaveAsExecute(Sender: TObject);
+    procedure AFileSaveExecute(Sender: TObject);
     procedure AImportExecute(Sender: TObject);
     procedure AShowExecute(Sender: TObject);
@@ -49 +72 @@
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure LastOpenedList1Change(Sender: TObject);
     procedure ListViewAcronymsData(Sender: TObject; Item: TListItem);
     procedure ListViewAcronymsDblClick(Sender: TObject);
@@ -57 +81 @@
   private
     FoundAcronyms: TAcronymMeanings;
+    RegistryContext: TRegistryContext;
+    procedure OpenRecentClick(Sender: TObject);
     procedure UpdateAcronymsList;
     procedure UpdateInterface;
+    procedure LoadConfig;
+    procedure SaveConfig;
   public
     AcronymDb: TAcronymDb;
@@ -74 +102 @@
 
 const
-  DefaultFileName = 'Acronyms.csv';
+  ProjectExt = '.adp';
+  DefaultFileName = 'Acronyms' + ProjectExt;
+  DefaultRegKey = '\Software\Acronym Decoder';
 
 { TFormMain }
@@ -91 +121 @@
 procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
-  AcronymDB.SaveToFile(DefaultFileName);
+  AFileClose.Execute;
   PersistentForm1.Save(Self);
+  SaveConfig;
 end;
 
 procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: boolean);
-begin
+var
+  ModalResult: TModalResult;
+begin
+  if Assigned(AcronymDb) and AcronymDb.Modified then begin
+    ModalResult := MessageDlg('Application exit',
+    'Acronyms were modified. Do you want to save them to file before exit?',
+      mtConfirmation, [mbYes, mbNo, mbCancel], 0);
+    if ModalResult = mrYes then AFileSave.Execute
+    else if ModalResult = mrNo then CanClose := True
+    else CanClose := False;
+  end;
 end;
 
@@ -102 +143 @@
 begin
   Close;
+end;
+
+procedure TFormMain.AFileCloseExecute(Sender: TObject);
+begin
+  if Assigned(AcronymDb) then begin
+    if AcronymDb.Modified then AFileSave.Execute;
+    FreeAndNil(AcronymDb);
+    UpdateAcronymsList;
+    UpdateInterface;
+  end;
+end;
+
+procedure TFormMain.AFileNewExecute(Sender: TObject);
+begin
+  AFileClose.Execute;
+  AcronymDb := TAcronymDb.Create;
+  AcronymDb.FileName := DefaultFileName;
+  AcronymDb.Acronyms.Clear;
+  UpdateAcronymsList;
+  UpdateInterface;
+end;
+
+procedure TFormMain.AFileOpenExecute(Sender: TObject);
+begin
+  OpenDialog1.DefaultExt := ProjectExt;
+  OpenDialog1.FileName := AcronymDb.FileName;
+  if OpenDialog1.Execute then begin
+    AcronymDb.LoadFromFile(OpenDialog1.FileName);
+    LastOpenedList1.AddItem(OpenDialog1.FileName);
+    UpdateAcronymsList;
+    UpdateInterface;
+  end;
+end;
+
+procedure TFormMain.AFileSaveAsExecute(Sender: TObject);
+begin
+  SaveDialog1.DefaultExt := ProjectExt;
+  SaveDialog1.FileName := AcronymDb.FileName;
+  if SaveDialog1.Execute then begin
+    AcronymDb.SaveToFile(SaveDialog1.FileName);
+    LastOpenedList1.AddItem(SaveDialog1.FileName);
+    UpdateInterface;
+  end;
+end;
+
+procedure TFormMain.AFileSaveExecute(Sender: TObject);
+begin
+  if FileExists(AcronymDb.FileName) then begin
+    AcronymDb.SaveToFile(AcronymDb.FileName);
+    LastOpenedList1.AddItem(AcronymDb.FileName);
+    UpdateInterface;
+  end else AFileSaveAs.Execute;
 end;
 
@@ -133 +226 @@
   TMsgDlgType.mtConfirmation, [mbCancel, mbOk], 0) = mrOk then begin
     AcronymDb.Acronyms.Clear;
+    AcronymDb.Modified := True;
     UpdateAcronymsList;
     UpdateInterface;
@@ -185 +279 @@
 
 procedure TFormMain.FormShow(Sender: TObject);
-const
-  DefaultRegKey = '\Software\Acronym Decoder';
-begin
-  PersistentForm1.RegistryContext := RegContext(HKEY_CURRENT_USER, DefaultRegKey);
+begin
+  LoadConfig;
   PersistentForm1.Load(Self);
-  if FileExists(DefaultFileName) then
-    AcronymDB.LoadFromFile(DefaultFileName);
-  AcronymDb.FilterList(EditSearch.Text, FoundAcronyms);
+
+  if (LastOpenedList1.Items.Count > 0) and  FileExists(LastOpenedList1.Items[0]) then
+    AcronymDB.LoadFromFile(LastOpenedList1.Items[0]);
   UpdateAcronymsList;
   UpdateInterface;
+end;
+
+procedure TFormMain.LastOpenedList1Change(Sender: TObject);
+begin
+  LastOpenedList1.LoadToMenuItem(MenuItemOpenRecent, OpenRecentClick);
 end;
 
@@ -235 +332 @@
 end;
 
+procedure TFormMain.OpenRecentClick(Sender: TObject);
+begin
+  AFileClose.Execute;
+  AFileNew.Execute;
+  AcronymDb.LoadFromFile(TMenuItem(Sender).Caption);
+  LastOpenedList1.AddItem(TMenuItem(Sender).Caption);
+  UpdateAcronymsList;
+  UpdateInterface;
+end;
+
 procedure TFormMain.UpdateAcronymsList;
 begin
-  AcronymDb.Acronyms.Sort(AcronymComparer);
-  AcronymDb.FilterList(EditSearch.Text, FoundAcronyms);
+  if Assigned(AcronymDb) then begin
+    AcronymDb.Acronyms.Sort(AcronymComparer);
+    AcronymDb.FilterList(EditSearch.Text, FoundAcronyms);
+  end else FoundAcronyms.Clear;
   ListViewAcronyms.Items.Count := FoundAcronyms.Count;
   ListViewAcronyms.Refresh;
@@ -244 +353 @@
 
 procedure TFormMain.UpdateInterface;
-begin
-  AAcronymRemove.Enabled := Assigned(ListViewAcronyms.Selected);
+var
+  Title: string;
+begin
+  ListViewAcronyms.Enabled := Assigned(AcronymDb);
+  AAcronymRemove.Enabled := Assigned(AcronymDb) and Assigned(ListViewAcronyms.Selected);
+  AAcronymModify.Enabled := Assigned(AcronymDb) and Assigned(ListViewAcronyms.Selected);
+  AAcronymAdd.Enabled := Assigned(AcronymDb);
+  AAcronymRemoveAll.Enabled := Assigned(AcronymDb) and (AcronymDb.Acronyms.Count > 0);
+  AFileClose.Enabled := Assigned(AcronymDb);
+  AFileSave.Enabled := Assigned(AcronymDb) and AcronymDb.Modified;
+  AFileSaveAs.Enabled := Assigned(AcronymDb);
+  EditSearch.Enabled := Assigned(AcronymDb);
+
+  Title := Application.Title;
+  if Assigned(AcronymDb) then Title := Title + ' - ' + ExtractFileName(AcronymDb.FileName);
+  if Assigned(AcronymDb) and AcronymDb.Modified then Title := Title + ' (modified)';
+  Caption := Title;
+end;
+
+procedure TFormMain.LoadConfig;
+begin
+  RegistryContext := RegContext(HKEY_CURRENT_USER, DefaultRegKey);
+  PersistentForm1.RegistryContext := RegistryContext;
+  LastOpenedList1.LoadFromRegistry(RegistryContext);
+end;
+
+procedure TFormMain.SaveConfig;
+begin
+  LastOpenedList1.SaveToRegistry(RegistryContext);
 end;