Changeset 148 for trunk/UAcronym.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/UAcronym.pas (modified) (6 diffs)

trunk/UAcronym.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, Contnrs, XMLRead, XMLWrite, DOM, UXMLUtils,
-  SpecializedList, fphttpclient2, Dialogs, odbcconn, sqldb, LazUTF8;
+  SpecializedList, fphttpclient2, Dialogs, odbcconn, sqldb, LazUTF8,
+  fgl;
 
 type
@@ -216 +217 @@
 
   TAcronymDb = class
+  private
+    FUpdateCount: Integer;
+  public
     FileName: string;
     Acronyms: TAcronyms;
@@ -223 +227 @@
     Modified: Boolean;
     AddedCount: Integer;
+    OnUpdate: TFPGList<TNotifyEvent>;
     constructor Create;
     destructor Destroy; override;
@@ -234 +239 @@
     procedure RemoveAcronym(AcronymName, MeaningName: string);
     procedure AssignToList(List: TListObject; EnabledCategoryOnly: Boolean = False);
+    procedure BeginUpdate;
+    procedure EndUpdate;
+    procedure Update;
   end;
 
@@ -1436 +1444 @@
   ImportSources.AcronymDb := Self;
   ImportFormats := TImportFormats.Create;
+  FUpdateCount := 0;
+  OnUpdate := TFPGList<TNotifyEvent>.Create;
 end;
 
 destructor TAcronymDb.Destroy;
 begin
+  FreeAndNil(OnUpdate);
   FreeAndNil(ImportFormats);
   FreeAndNil(ImportSources);
@@ -1701 +1712 @@
 end;
 
+procedure TAcronymDb.BeginUpdate;
+begin
+  Inc(FUpdateCount);
+end;
+
+procedure TAcronymDb.EndUpdate;
+begin
+  if FUpdateCount > 0 then Dec(FUpdateCount);
+  if FupdateCount = 0 then Update;
+end;
+
+procedure TAcronymDb.Update;
+var
+  I: Integer;
+begin
+  for I := 0 to OnUpdate.Count - 1 do
+    OnUpdate[I](Self);
+end;
+
 end.