Changeset 148 for trunk/Forms/UFormMain.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

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

trunk/Forms/UFormMain.pas

@@ -134 +134 @@
     ProjectClosed: Boolean;
     ImportTotalItemCount: Integer;
+    procedure AcronymDbUpdate(Sender: TObject);
     function FilterCell(Text1, Text2: string): Boolean;
     procedure ProcessImportsJob(Job: TJob);
@@ -258 +259 @@
 begin
   AFileClose.Execute;
-  if ProjectClosed  then begin
+  if not Assigned(Core.AcronymDb)  then begin
     Core.AcronymDb := TAcronymDb.Create;
     Core.AcronymDb.FileName := DefaultFileName;
     Core.AcronymDb.Acronyms.Clear;
+    Core.AcronymDb.OnUpdate.Add(AcronymDbUpdate);
     UpdateAcronymsList;
     UpdateInterface;
@@ -533 +535 @@
 end;
 
+procedure TFormMain.AcronymDbUpdate(Sender: TObject);
+begin
+  UpdateAcronymsList;
+end;
+
 function TFormMain.FilterCell(Text1, Text2: string): Boolean;
 begin
@@ -547 +554 @@
 begin
   AFileClose.Execute;
-  if ProjectClosed then begin
+  if not Assigned(Core.AcronymDb) then begin
     try
       AFileNew.Execute;
@@ -604 +611 @@
 begin
   AFileClose.Execute;
-  if ProjectClosed then begin
+  if not Assigned(Core.AcronymDb) then begin
     AFileNew.Execute;
     Core.AcronymDb.LoadFromFile(TMenuItem(Sender).Caption);