Changeset 69 for trunk/Forms/UFormMain.pas

Timestamp:

Aug 1, 2016, 12:43:49 PM (8 years ago)

Author:

chronos

Message:

• Fixed: Set zero imported acronyms count before start of processing import sources.
• Modified: Open dialogs positioned at center of screen.
• Added: Open example acronyms by default if no other files were openned yet.

File:

• trunk/Forms/UFormMain.pas (modified) (6 diffs)

trunk/Forms/UFormMain.pas

@@ -124 +124 @@
     ProjectClosed: Boolean;
     ImportTotalItemCount: Integer;
+    procedure ProjectOpen(FileName: string);
     procedure Initialize;
     procedure ProcessImportsJob(Job: TJob);
@@ -244 +245 @@
     OpenDialog1.FileName := AcronymDb.FileName;
   if OpenDialog1.Execute then begin
-    AFileClose.Execute;
-    if ProjectClosed then begin
-      AFileNew.Execute;
-      AcronymDb.LoadFromFile(OpenDialog1.FileName);
-      LastOpenedList1.AddItem(OpenDialog1.FileName);
-      UpdateAcronymsList;
-      UpdateInterface;
-    end;
+    ProjectOpen(OpenDialog1.FileName);
   end;
 end;
@@ -441 +435 @@
 end;
 
+procedure TFormMain.ProjectOpen(FileName: string);
+begin
+  AFileClose.Execute;
+  if ProjectClosed then begin
+    try
+      AFileNew.Execute;
+      AcronymDb.LoadFromFile(FileName);
+      LastOpenedList1.AddItem(FileName);
+    finally
+      UpdateAcronymsList;
+      UpdateInterface;
+    end;
+  end;
+end;
+
 procedure TFormMain.Initialize;
 begin
@@ -448 +457 @@
 
     if ParamCount > 0 then begin
+      // Open file specified as command line parameter
       AcronymDB.LoadFromFile(ParamStr(1));
       LastOpenedList1.AddItem(OpenDialog1.FileName);
     end else
-    if (LastOpenedList1.Items.Count > 0) and FileExists(LastOpenedList1.Items[0]) then
-      AcronymDB.LoadFromFile(LastOpenedList1.Items[0]);
+    if (LastOpenedList1.Items.Count > 0) and FileExists(LastOpenedList1.Items[0]) then begin
+      // Open last opened file
+      AcronymDB.LoadFromFile(LastOpenedList1.Items[0])
+    end else begin
+      // Open default database with examples if no item is in recent openned history
+      ProjectOpen(ExtractFileDir(Application.ExeName) + DirectorySeparator + 'Example Acronyms.adp');
+    end;
     UpdateAcronymsList;
     ListViewFilter1.UpdateFromListView(ListViewAcronyms);
@@ -564 +579 @@
   RegistryContext := RegContext(HKEY_CURRENT_USER, DefaultRegKey);
   PersistentForm1.RegistryContext := RegistryContext;
+  RegistryContext := RegContext(HKEY_CURRENT_USER, DefaultRegKey + '\RecentFiles');
   LastOpenedList1.LoadFromRegistry(RegistryContext);
 
@@ -583 +599 @@
 procedure TFormMain.SaveConfig;
 begin
+  RegistryContext := RegContext(HKEY_CURRENT_USER, DefaultRegKey + '\RecentFiles');
   LastOpenedList1.SaveToRegistry(RegistryContext);