Changeset 46 for trunk/Forms/UFormImportSource.pas

Timestamp:

Jul 15, 2016, 2:24:18 PM (8 years ago)

Author:

chronos

Message:

• Added: Now user name and password can be specified for import sources which require user authentication. Password is not stored in project file for safety reasons. Only Basic authentication is supported.

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, UAcronym;
+  ActnList, Menus, ExtCtrls, MaskEdit, UAcronym;
 
 type
@@ -25 +25 @@
     CheckBoxEnabled: TCheckBox;
     ComboBox1: TComboBox;
+    EditUserName: TEdit;
     EditName: TEdit;
     EditURL: TEdit;
+    EditPassword: TEdit;
     Label1: TLabel;
     Label2: TLabel;
     Label3: TLabel;
     Label4: TLabel;
+    Label5: TLabel;
+    Label6: TLabel;
     ListBox1: TListBox;
     MenuItem1: TMenuItem;
@@ -132 +136 @@
   CheckBoxEnabled.Checked := ImportSource.Enabled;
   ImportSource.Categories.AssignToStrings(ListBox1.Items);
+  EditUserName.Text := ImportSource.UserName;
+  EditPassword.Text := ImportSource.Password;
 end;
 
@@ -141 +147 @@
   ImportSource.Enabled := CheckBoxEnabled.Checked;
   ImportSource.Categories.AssignFromStrings(ListBox1.Items);
+  ImportSource.UserName := EditUserName.Text;
+  ImportSource.Password := EditPassword.Text;
 end;