Changeset 29 for trunk/UAcronym.pas

Timestamp:

Jul 12, 2016, 4:41:03 PM (8 years ago)

Author:

chronos

Message:

• Added: New import source state called Enabled to allow to select only currently needed imports for importing from all sources.

File:

• trunk/UAcronym.pas (modified) (5 diffs)

trunk/UAcronym.pas

@@ -163 +163 @@
     procedure DoPassword(Sender: TObject; var RepeatRequest : Boolean);
   public
+    Enabled: Boolean;
     Name: string;
     URL: string;
@@ -618 +619 @@
 procedure TImportSource.Assign(Source: TImportSource);
 begin
+  Enabled := Source.Enabled;
   Name := Source.Name;
   URL := Source.URL;
   Format := Source.Format;
+  LastTime := Source.LastTime;
+  ItemCount := Source.ItemCount;
 end;
 
@@ -629 +633 @@
   if Assigned(Format) then WriteInteger(Node, 'ImportFormat', Format.Id)
     else WriteInteger(Node, 'ImportFormat', -1);
+  WriteBoolean(Node, 'Enabled', Enabled);
 end;
 
@@ -636 +641 @@
   URL := ReadString(Node, 'URL', '');
   Format := Sources.AcronymDb.ImportFormats.SearchById(ReadInteger(Node, 'ImportFormat', -1));
+  Enabled := ReadBoolean(Node, 'Enabled', True);
 end;
 
@@ -641 +647 @@
 begin
   Format := nil;
+  Enabled := True;
 end;