Changeset 90 for trunk/Forms/UFormImport.pas

Timestamp:

Aug 10, 2016, 11:24:45 PM (8 years ago)

Author:

chronos

Message:

• Added: Acronym export action in menu Tools - Export. Supported formats are CSV and MediaWiki list/table.

File:

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

trunk/Forms/UFormImport.pas

@@ -15 +15 @@
   TFormImport = class(TForm)
     ButtonLoadFromFile: TButton;
-    ButtonImport: TButton;
+    ButtonProcess: TButton;
     ComboBoxDataFormat: TComboBox;
     Label1: TLabel;
     Memo1: TMemo;
     OpenDialog1: TOpenDialog;
-    procedure ButtonImportClick(Sender: TObject);
+    procedure ButtonProcessClick(Sender: TObject);
     procedure ButtonLoadFromFileClick(Sender: TObject);
   private
@@ -45 +45 @@
 { TFormImport }
 
-procedure TFormImport.ButtonImportClick(Sender: TObject);
+procedure TFormImport.ButtonProcessClick(Sender: TObject);
 begin
   if ComboBoxDataFormat.ItemIndex = 0 then ImportCSV;
@@ -53 +53 @@
 procedure TFormImport.ButtonLoadFromFileClick(Sender: TObject);
 begin
+  if ComboBoxDataFormat.ItemIndex = 0 then OpenDialog1.DefaultExt := '.csv';
+  if ComboBoxDataFormat.ItemIndex = 1 then OpenDialog1.DefaultExt := '.txt';
   if OpenDialog1.Execute then
     Memo1.Lines.LoadFromFile(OpenDialog1.FileName);