Changeset 29 for trunk/Forms

Timestamp:

Jul 12, 2016, 4:41:03 PM (9 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.

Location:

trunk/Forms

Files:

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

trunk/Forms/UFormImportSource.lfm

@@ -1 +1 @@
 object FormImportSource: TFormImportSource
   Left = 506
-  Height = 422
+  Height = 282
   Top = 363
-  Width = 599
+  Width = 507
   Caption = 'Import source'
-  ClientHeight = 422
-  ClientWidth = 599
+  ClientHeight = 282
+  ClientWidth = 507
   LCLVersion = '1.6.0.4'
   object EditName: TEdit
@@ -12 +12 @@
     Height = 28
     Top = 10
-    Width = 432
+    Width = 340
     Anchors = [akTop, akLeft, akRight]
     TabOrder = 0
@@ -36 +36 @@
     Height = 28
     Top = 49
-    Width = 432
+    Width = 340
     Anchors = [akTop, akLeft, akRight]
     TabOrder = 1
   end
   object ButtonOk: TButton
-    Left = 504
+    Left = 412
     Height = 25
-    Top = 384
+    Top = 244
     Width = 75
     Anchors = [akRight, akBottom]
@@ -51 +51 @@
   end
   object ButtonCancel: TButton
-    Left = 408
+    Left = 316
     Height = 25
-    Top = 384
+    Top = 244
     Width = 75
     Anchors = [akRight, akBottom]
@@ -72 +72 @@
     Height = 28
     Top = 91
-    Width = 304
+    Width = 212
     Anchors = [akTop, akLeft, akRight]
     ItemHeight = 20
@@ -79 +79 @@
   end
   object ButtonShowFormat: TButton
-    Left = 472
+    Left = 380
     Height = 25
     Top = 91
@@ -88 +88 @@
     TabOrder = 5
   end
+  object CheckBoxEnabled: TCheckBox
+    Left = 11
+    Height = 24
+    Top = 136
+    Width = 78
+    Caption = 'Enabled'
+    TabOrder = 6
+  end
 end

trunk/Forms/UFormImportSource.lrt

@@ -6 +6 @@
 TFORMIMPORTSOURCE.LABEL3.CAPTION=Data format:
 TFORMIMPORTSOURCE.BUTTONSHOWFORMAT.CAPTION=Configure
+TFORMIMPORTSOURCE.CHECKBOXENABLED.CAPTION=Enabled

trunk/Forms/UFormImportSource.pas

@@ -17 +17 @@
     ButtonOk: TButton;
     ButtonCancel: TButton;
+    CheckBoxEnabled: TCheckBox;
     ComboBox1: TComboBox;
     EditName: TEdit;
@@ -78 +79 @@
   if (ComboBox1.ItemIndex = -1) and (ComboBox1.Items.Count > 0) then
     ComboBox1.ItemIndex := 0;
+  CheckBoxEnabled.Checked := ImportSource.Enabled;
 end;
 
@@ -85 +87 @@
   ImportSource.URL := EditURL.Text;
   ImportSource.Format := TImportFormat(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
+  ImportSource.Enabled := CheckBoxEnabled.Checked;
 end;
 

trunk/Forms/UFormImportSources.lfm

@@ -15 +15 @@
     Width = 577
     Anchors = [akTop, akLeft, akRight, akBottom]
+    Checkboxes = True
     Columns = <    
       item

trunk/Forms/UFormImportSources.pas

@@ -67 +67 @@
     Item.Data := ImportSources[Item.Index];
     Item.SubItems.Add(URL);
+    Item.Checked := Enabled;
   end;
 end;

trunk/Forms/UFormMain.pas

@@ -259 +259 @@
 begin
   TotalItemCount := 0;
-  for I := 0 to AcronymDb.ImportSources.Count - 1 do begin
-    TImportSource(AcronymDb.ImportSources[I]).Process;
-    TotalItemCount := TotalItemCount + TImportSource(AcronymDb.ImportSources[I]).ItemCount;
+  for I := 0 to AcronymDb.ImportSources.Count - 1 do
+  with TImportSource(AcronymDb.ImportSources[I]) do
+  if Enabled then begin
+    Process;
+    TotalItemCount := TotalItemCount + ItemCount;
   end;
   ShowMessage(Format(SAddedCount, [TotalItemCount]));