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

trunk/Forms/UFormImportSource.pas

@@ -14 +14 @@
 
   TFormImportSource = class(TForm)
+    ButtonShowFormat: TButton;
     ButtonOk: TButton;
     ButtonCancel: TButton;
@@ -22 +23 @@
     Label2: TLabel;
     Label3: TLabel;
+    procedure ButtonShowFormatClick(Sender: TObject);
   private
     { private declarations }
@@ -37 +39 @@
 
 uses
-  UFormMain;
+  UFormMain, UFormImportFormat;
 
 { TFormImportSource }
+
+procedure TFormImportSource.ButtonShowFormatClick(Sender: TObject);
+var
+  NewImportFormat: TImportFormat;
+begin
+  if ComboBox1.ItemIndex <> -1 then begin
+    NewImportFormat := TImportFormat.Create;
+    NewImportFormat.Assign(TImportFormat(ComboBox1.Items.Objects[ComboBox1.ItemIndex]));
+    FormImportFormat.Load(NewImportFormat);
+    if FormImportFormat.ShowModal = mrOk then begin
+      FormImportFormat.Save(NewImportFormat);
+      TImportFormat(ComboBox1.Items.Objects[ComboBox1.ItemIndex]).Assign(NewImportFormat);
+      FormMain.AcronymDb.Modified := True;
+      ComboBox1.Items.Strings[ComboBox1.ItemIndex] := NewImportFormat.Name;
+    end;
+    if Assigned(NewImportFormat) then NewImportFormat.Free;
+  end;
+end;
 
 procedure TFormImportSource.Load(ImportSource: TImportSource);