Changeset 170 for trunk/Forms

Timestamp:

Jul 2, 2023, 11:07:39 PM (17 months ago)

Author:

chronos

Message:

• Fixed: Show only supported import formats.

File:

• trunk/Forms/FormImport.pas (modified) (5 diffs)

trunk/Forms/FormImport.pas

@@ -68 +68 @@
 procedure TFormImport.ComboBoxInputFormatChange(Sender: TObject);
 begin
-  UpdateTableFormat;
+  RedrawPending := True;
 end;
 
@@ -74 +74 @@
 begin
   RedrawPending := True;
+  UpdateTableFormat;
 end;
 
@@ -89 +90 @@
 var
   TableFormat: TTableFormat;
+  TableFormats: TTableFormats;
 begin
+  Table := TTable.Create;
+
+  TableFormats := Table.GetInputFormats;
   ComboBoxInputFormat.Items.BeginUpdate;
   try
     for TableFormat := Low(TTableFormat) to High(TTableFormat) do
-    if TableFormat <> tfListView then
+    if TableFormat in TableFormats then
       ComboBoxInputFormat.Items.AddObject(TableFormatText[TableFormat], TObject(TableFormat));
     if (ComboBoxInputFormat.ItemIndex = -1) and (ComboBoxInputFormat.Items.Count > 0) then
@@ -101 +106 @@
   end;
 
-  Table := TTable.Create;
   LoadConfig;
   UpdateTableFormat;
@@ -141 +145 @@
 begin
   FileExt := ExtractFileExt(EditInputFile.Text);
-  if FileExt = '.xml' then
-    ComboBoxInputFormat.ItemIndex := ComboBoxInputFormat.Items.IndexOfObject(TObject(tfXml))
+  if FileExt = '.json' then
+    ComboBoxInputFormat.ItemIndex := ComboBoxInputFormat.Items.IndexOfObject(TObject(tfJson))
   else if FileExt = '.csv' then
     ComboBoxInputFormat.ItemIndex := ComboBoxInputFormat.Items.IndexOfObject(TObject(tfCsv))
-  else if (FileExt = '.htm') or (FileExt = '.html') then
-    ComboBoxInputFormat.ItemIndex := ComboBoxInputFormat.Items.IndexOfObject(TObject(tfHtml));
+  else if FileExt = '.txt' then
+    ComboBoxInputFormat.ItemIndex := ComboBoxInputFormat.Items.IndexOfObject(TObject(tfMediaWiki));
 end;