Changeset 22 for trunk/Forms/UFormMain.pas

Timestamp:

May 4, 2016, 11:43:42 PM (8 years ago)

Author:

chronos

Message:

• Added: Now import formats can be specified using new edit windows.
• Added: Import source can now be downloaded and processed including download from https URLs.

File:

• trunk/Forms/UFormMain.pas (modified) (8 diffs)

trunk/Forms/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  ComCtrls, StdCtrls, ExtCtrls, ActnList, UAcronym, UPersistentForm, Contnrs,
+  ComCtrls, StdCtrls, ExtCtrls, ActnList, UAcronym, UPersistentForm,
   URegistry, ULastOpenedList, UListViewSort, UCoolTranslator, Registry,
   SpecializedList, LazUTF8;
@@ -16 +16 @@
 
   TFormMain = class(TForm)
+    AProcessImports: TAction;
+    AShowImportFormats: TAction;
     AShowAbout: TAction;
     AShowImportSources: TAction;
@@ -52 +54 @@
     MenuItem21: TMenuItem;
     MenuItem22: TMenuItem;
+    MenuItem23: TMenuItem;
     MenuItem4: TMenuItem;
     MenuItem5: TMenuItem;
     MenuItem6: TMenuItem;
+    MenuItem7: TMenuItem;
     MenuItemOpenRecent: TMenuItem;
     MenuItem2: TMenuItem;
@@ -72 +76 @@
     procedure AFileSaveExecute(Sender: TObject);
     procedure AImportExecute(Sender: TObject);
+    procedure AProcessImportsExecute(Sender: TObject);
     procedure ASettingsExecute(Sender: TObject);
     procedure AShowAboutExecute(Sender: TObject);
@@ -77 +82 @@
     procedure AShowCategoriesExecute(Sender: TObject);
     procedure AShowExecute(Sender: TObject);
+    procedure AShowImportFormatsExecute(Sender: TObject);
     procedure AShowImportSourcesExecute(Sender: TObject);
     procedure CheckBoxExactMathChange(Sender: TObject);
@@ -118 +124 @@
 
 uses
-  UFormImport, UFormAcronym, UFormSettings, UFormCategories, UFormAcronyms,
-  UFormImportSource, UFormImportSources, UFormAbout;
+  UFormImport, UFormSettings, UFormCategories, UFormAcronyms,
+  UFormImportSources, UFormAbout, UFormImportFormats;
 
 resourcestring
@@ -243 +249 @@
 end;
 
+procedure TFormMain.AProcessImportsExecute(Sender: TObject);
+var
+  I: Integer;
+begin
+  for I := 0 to AcronymDb.ImportSources.Count - 1 do
+    TImportSource(AcronymDb.ImportSources[I]).Process;
+  UpdateAcronymsList;
+  UpdateInterface;
+end;
+
 procedure TFormMain.ASettingsExecute(Sender: TObject);
 begin
@@ -271 +287 @@
 begin
   Show;
+end;
+
+procedure TFormMain.AShowImportFormatsExecute(Sender: TObject);
+begin
+  FormImportFormats.ImportFormats := AcronymDb.ImportFormats;
+  FormImportFormats.ShowModal;
+  UpdateInterface;
 end;