Changeset 84 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/Forms

Files:

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

trunk/Forms/UFormImportSource.lfm

@@ -3 +3 @@
   Height = 444
   Top = 315
-  Width = 604
+  Width = 630
   Caption = 'Import source'
   ClientHeight = 444
-  ClientWidth = 604
+  ClientWidth = 630
   OnShow = FormShow
   Position = poScreenCenter
@@ -14 +14 @@
     Height = 28
     Top = 10
-    Width = 455
+    Width = 481
     Anchors = [akTop, akLeft, akRight]
     TabOrder = 0
@@ -35 +35 @@
   end
   object EditURL: TEdit
-    Left = 135
+    Left = 136
     Height = 28
     Top = 49
-    Width = 455
+    Width = 360
     Anchors = [akTop, akLeft, akRight]
     TabOrder = 1
   end
   object ButtonOk: TButton
-    Left = 515
+    Left = 541
     Height = 25
     Top = 406
@@ -53 +53 @@
   end
   object ButtonCancel: TButton
-    Left = 413
+    Left = 439
     Height = 25
     Top = 406
@@ -74 +74 @@
     Height = 28
     Top = 91
-    Width = 334
+    Width = 360
     Anchors = [akTop, akLeft, akRight]
     ItemHeight = 20
@@ -81 +81 @@
   end
   object ButtonShowFormat: TButton
-    Left = 477
+    Left = 503
     Height = 25
     Top = 91
@@ -110 +110 @@
     Height = 141
     Top = 160
-    Width = 455
+    Width = 481
     Anchors = [akTop, akLeft, akRight]
     ItemHeight = 0
@@ -172 +172 @@
     PasswordChar = '*'
     TabOrder = 9
+  end
+  object ButtonOpenURL: TButton
+    Left = 503
+    Height = 25
+    Top = 52
+    Width = 112
+    Anchors = [akTop, akRight]
+    Caption = 'Open URL'
+    OnClick = ButtonOpenURLClick
+    TabOrder = 12
   end
   object ActionList1: TActionList

trunk/Forms/UFormImportSource.lrt

@@ -10 +10 @@
 TFORMIMPORTSOURCE.LABEL5.CAPTION=User name:
 TFORMIMPORTSOURCE.LABEL6.CAPTION=Password:
+TFORMIMPORTSOURCE.BUTTONOPENURL.CAPTION=Open URL
 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, 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