Changeset 28 for trunk/Forms/UFormImportFormat.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/UFormImportFormat.pas (modified) (5 diffs)

trunk/Forms/UFormImportFormat.pas

@@ -41 +41 @@
     procedure AMoveUpExecute(Sender: TObject);
     procedure ARemoveExecute(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure ListViewItemRulesData(Sender: TObject; Item: TListItem);
@@ -54 +55 @@
 var
   FormImportFormat: TFormImportFormat;
+  YesNoString: array[Boolean] of string;
 
 
@@ -66 +68 @@
   SRemoveImportPattern = 'Remove import pattern';
   SRemoveImportPatternQuery = 'Do you really want to remove selected import patterns?';
+  SYes = 'Yes';
+  SNo = 'No';
 
 
@@ -135 +139 @@
 end;
 
+procedure TFormImportFormat.FormCreate(Sender: TObject);
+begin
+  YesNoString[False] := SNo;
+  YesNoString[True] := SYes;
+end;
+
 procedure TFormImportFormat.FormShow(Sender: TObject);
 begin
@@ -149 +159 @@
     Item.SubItems.Add(ImportPatternFlagString[Flag]);
     Item.SubItems.Add(ImportVariableString[Variable]);
+    Item.SubItems.Add(YesNoString[Repetition]);
     Item.Data := ImportFormat.ItemPatterns[Item.Index];
   end;