Changeset 28 for trunk/Forms/UFormImportPattern.pas

Timestamp:

Jul 12, 2016, 4:28:22 PM (8 years ago)

Author:

chronos

Message:

• Added: Import format items can be repetitive.
• Added: Show total count of imported items.
• Added: Button for direct open of import format definition from import source window.

File:

• trunk/Forms/UFormImportPattern.pas (modified) (3 diffs)

trunk/Forms/UFormImportPattern.pas

@@ -16 +16 @@
     ButtonCancel: TButton;
     ButtonOk: TButton;
+    CheckBoxRepetition: TCheckBox;
     ComboBoxAction: TComboBox;
     ComboBoxVariable: TComboBox;
@@ -78 +79 @@
   Pattern.Variable := TImportVariable(ComboBoxVariable.ItemIndex);
   Pattern.Flag := TImportPatternFlag(ComboBoxAction.ItemIndex);
+  Pattern.Repetition := CheckBoxRepetition.Checked;
 end;
 
@@ -86 +88 @@
   ComboBoxVariable.ItemIndex := Integer(Pattern.Variable);
   ComboBoxAction.ItemIndex := Integer(Pattern.Flag);
+  CheckBoxRepetition.Checked := Pattern.Repetition;
 end;