Changeset 84 for trunk/Forms/UFormImportSource.pas

Timestamp:

Aug 8, 2016, 10:33:43 AM (8 years ago)

Author:

chronos

Message:

• Added: Button to open URL in source import configuration dialog.

File:

• trunk/Forms/UFormImportSource.pas (modified) (4 diffs)

trunk/Forms/UFormImportSource.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ActnList, Menus, ExtCtrls, MaskEdit, UAcronym;
+  ActnList, Menus, ExtCtrls, MaskEdit, UAcronym, LCLIntf;
 
 type
@@ -23 +23 @@
     ButtonOk: TButton;
     ButtonCancel: TButton;
+    ButtonOpenURL: TButton;
     CheckBoxEnabled: TCheckBox;
     ComboBox1: TComboBox;
@@ -41 +42 @@
     procedure ACategoryAddExecute(Sender: TObject);
     procedure ACategoryRemoveExecute(Sender: TObject);
+    procedure ButtonOpenURLClick(Sender: TObject);
     procedure ButtonShowFormatClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -117 +119 @@
 end;
 
+procedure TFormImportSource.ButtonOpenURLClick(Sender: TObject);
+begin
+  OpenURL(EditURL.Text);
+end;
+
 procedure TFormImportSource.Load(ImportSource: TImportSource);
 var