Changeset 148 for trunk/UCore.pas

Timestamp:

Feb 6, 2017, 12:59:59 PM (8 years ago)

Author:

chronos

Message:

• Fixed: Update filtered acronyms in main window if they were changed in acronyms and categories window.

File:

• trunk/UCore.pas (modified) (2 diffs)

trunk/UCore.pas

@@ -73 +73 @@
 procedure TCore.DataModuleCreate(Sender: TObject);
 begin
-  AcronymDb := TAcronymDb.Create;
+  AcronymDb := nil;
   InitializeStarted := False;
   InitializeFinished := False;
@@ -129 +129 @@
     if FileNameOption <> '' then begin
       // Open file specified as command line parameter
-      AcronymDB.LoadFromFile(FileNameOption);
-      FormMain.LastOpenedList1.AddItem(FileNameOption);
+      FormMain.ProjectOpen(FileNameOption);
     end else
     if (FormMain.LastOpenedList1.Items.Count > 0) and FileExists(FormMain.LastOpenedList1.Items[0]) then begin
       // Open last opened file
-      AcronymDB.LoadFromFile(FormMain.LastOpenedList1.Items[0])
+      FormMain.ProjectOpen(FormMain.LastOpenedList1.Items[0])
     end else begin
       // Open default database with examples if no item is in recent openned history