Changeset 73 for trunk/UAcronym.pas

Timestamp:

Aug 2, 2016, 11:21:21 AM (8 years ago)

Author:

chronos

Message:

• Added: Text filtering in list of import sources.
• Fixed: Now checkboxes in list of import sources are visible and working for enabling item.

File:

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

trunk/UAcronym.pas

@@ -178 +178 @@
     URL: string;
     Format: TImportFormat;
-    LastTime: TDateTime;
     Sources: TImportSources;
     ItemCount: Integer;
@@ -204 +203 @@
     procedure SaveToNode(Node: TDOMNode);
     procedure LoadFromNode(Node: TDOMNode);
+    procedure AssignToList(List: TListObject);
   end;
 
@@ -547 +547 @@
 end;
 
+procedure TImportSources.AssignToList(List: TListObject);
+var
+  I: Integer;
+begin
+  List.Clear;
+  for I := 0 to Count - 1 do
+    List.Add(TImportSource(Items[I]))
+end;
+
 procedure TImportSource.Process;
 begin
@@ -771 +780 @@
   URL := Source.URL;
   Format := Source.Format;
-  LastTime := Source.LastTime;
   ItemCount := Source.ItemCount;
   Categories.Assign(Source.Categories);