Changeset 52 for trunk/Forms

Timestamp:

Jul 25, 2016, 5:37:39 PM (8 years ago)

Author:

chronos

Message:

• Added: Remember last import date for import sources.

Location:

trunk/Forms

Files:

• UFormImportSources.lfm (modified) (1 diff)
• UFormImportSources.lrt (modified) (1 diff)
• UFormImportSources.pas (modified) (3 diffs)

trunk/Forms/UFormImportSources.lfm

@@ -27 +27 @@
       end    
       item
+        Caption = 'Categories'
+        Width = 200
+      end    
+      item
         Caption = 'Count'
         Width = 70
       end    
       item
-        Caption = 'Categories'
-        Width = 200
+        Caption = 'Date'
+        Width = 100
       end>
     MultiSelect = True

trunk/Forms/UFormImportSources.lrt

@@ -2 +2 @@
 TFORMIMPORTSOURCES.LISTVIEW1.COLUMNS[0].CAPTION=Name
 TFORMIMPORTSOURCES.LISTVIEW1.COLUMNS[1].CAPTION=URL
-TFORMIMPORTSOURCES.LISTVIEW1.COLUMNS[2].CAPTION=Count
-TFORMIMPORTSOURCES.LISTVIEW1.COLUMNS[3].CAPTION=Categories
+TFORMIMPORTSOURCES.LISTVIEW1.COLUMNS[2].CAPTION=Categories
+TFORMIMPORTSOURCES.LISTVIEW1.COLUMNS[3].CAPTION=Count
+TFORMIMPORTSOURCES.LISTVIEW1.COLUMNS[4].CAPTION=Date
 TFORMIMPORTSOURCES.TOOLBAR1.CAPTION=ToolBar1
 TFORMIMPORTSOURCES.AADD.CAPTION=Add

trunk/Forms/UFormImportSources.pas

@@ -64 +64 @@
   SRemoveImportSourceQuery = 'Do you really want to remove selected import sources?';
   SImportSourceAlreadyExists = 'Import source %s already exists!';
+  SProcessSelectedSource = 'Process selected import source';
 
 
@@ -75 +76 @@
     Item.Data := ImportSources[Item.Index];
     Item.SubItems.Add(URL);
+    Item.SubItems.Add(Categories.GetString);
     Item.SubItems.Add(IntToStr(ItemCount));
-    Item.SubItems.Add(Categories.GetString);
+    if LastImportTime <> 0 then
+      Item.SubItems.Add(DateToStr(LastImportTime))
+      else Item.SubItems.Add('');
     Item.Checked := Enabled;
   end;
@@ -158 +162 @@
 begin
   if Assigned(ListView1.Selected) then begin
-    JobProgressView1.AddJob('Process selected import source', ProcessImportJob);
+    JobProgressView1.AddJob(SProcessSelectedSource, ProcessImportJob);
     JobProgressView1.Start;
     ShowMessage(Format(SAddedCount, [TImportSource(ListView1.Selected.Data).ItemCount]));