Changeset 46 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• UFormImportSource.lfm (modified) (4 diffs)
• UFormImportSource.lrt (modified) (1 diff)
• UFormImportSource.pas (modified) (4 diffs)

trunk/Forms/UFormImportSource.lfm

@@ -1 +1 @@
 object FormImportSource: TFormImportSource
   Left = 492
-  Height = 403
+  Height = 444
   Top = 313
   Width = 604
   Caption = 'Import source'
-  ClientHeight = 403
+  ClientHeight = 444
   ClientWidth = 604
   OnShow = FormShow
@@ -44 +44 @@
     Left = 515
     Height = 25
-    Top = 365
+    Top = 406
     Width = 75
     Anchors = [akRight, akBottom]
@@ -54 +54 @@
     Left = 413
     Height = 25
-    Top = 365
+    Top = 406
     Width = 75
     Anchors = [akRight, akBottom]
@@ -136 +136 @@
     Left = 10
     Height = 2
-    Top = 352
+    Top = 393
     Width = 580
     Anchors = [akLeft, akBottom]
+  end
+  object Label5: TLabel
+    Left = 10
+    Height = 20
+    Top = 352
+    Width = 73
+    Caption = 'User name:'
+    ParentColor = False
+  end
+  object Label6: TLabel
+    Left = 305
+    Height = 20
+    Top = 351
+    Width = 65
+    Caption = 'Password:'
+    ParentColor = False
+  end
+  object EditUserName: TEdit
+    Left = 136
+    Height = 28
+    Top = 351
+    Width = 153
+    TabOrder = 10
+  end
+  object EditPassword: TEdit
+    Left = 436
+    Height = 28
+    Top = 351
+    Width = 153
+    EchoMode = emPassword
+    PasswordChar = '*'
+    TabOrder = 11
   end
   object ActionList1: TActionList

trunk/Forms/UFormImportSource.lrt

@@ -8 +8 @@
 TFORMIMPORTSOURCE.CHECKBOXENABLED.CAPTION=Enabled
 TFORMIMPORTSOURCE.LABEL4.CAPTION=Categories:
+TFORMIMPORTSOURCE.LABEL5.CAPTION=User name:
+TFORMIMPORTSOURCE.LABEL6.CAPTION=Password:
 TFORMIMPORTSOURCE.ACATEGORYREMOVE.CAPTION=Remove
 TFORMIMPORTSOURCE.ACATEGORYADD.CAPTION=Add

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;