Changeset 84 for trunk/Forms


Ignore:
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:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormImportSource.lfm

    r69 r84  
    33  Height = 444
    44  Top = 315
    5   Width = 604
     5  Width = 630
    66  Caption = 'Import source'
    77  ClientHeight = 444
    8   ClientWidth = 604
     8  ClientWidth = 630
    99  OnShow = FormShow
    1010  Position = poScreenCenter
     
    1414    Height = 28
    1515    Top = 10
    16     Width = 455
     16    Width = 481
    1717    Anchors = [akTop, akLeft, akRight]
    1818    TabOrder = 0
     
    3535  end
    3636  object EditURL: TEdit
    37     Left = 135
     37    Left = 136
    3838    Height = 28
    3939    Top = 49
    40     Width = 455
     40    Width = 360
    4141    Anchors = [akTop, akLeft, akRight]
    4242    TabOrder = 1
    4343  end
    4444  object ButtonOk: TButton
    45     Left = 515
     45    Left = 541
    4646    Height = 25
    4747    Top = 406
     
    5353  end
    5454  object ButtonCancel: TButton
    55     Left = 413
     55    Left = 439
    5656    Height = 25
    5757    Top = 406
     
    7474    Height = 28
    7575    Top = 91
    76     Width = 334
     76    Width = 360
    7777    Anchors = [akTop, akLeft, akRight]
    7878    ItemHeight = 20
     
    8181  end
    8282  object ButtonShowFormat: TButton
    83     Left = 477
     83    Left = 503
    8484    Height = 25
    8585    Top = 91
     
    110110    Height = 141
    111111    Top = 160
    112     Width = 455
     112    Width = 481
    113113    Anchors = [akTop, akLeft, akRight]
    114114    ItemHeight = 0
     
    172172    PasswordChar = '*'
    173173    TabOrder = 9
     174  end
     175  object ButtonOpenURL: TButton
     176    Left = 503
     177    Height = 25
     178    Top = 52
     179    Width = 112
     180    Anchors = [akTop, akRight]
     181    Caption = 'Open URL'
     182    OnClick = ButtonOpenURLClick
     183    TabOrder = 12
    174184  end
    175185  object ActionList1: TActionList
  • trunk/Forms/UFormImportSource.lrt

    r46 r84  
    1010TFORMIMPORTSOURCE.LABEL5.CAPTION=User name:
    1111TFORMIMPORTSOURCE.LABEL6.CAPTION=Password:
     12TFORMIMPORTSOURCE.BUTTONOPENURL.CAPTION=Open URL
    1213TFORMIMPORTSOURCE.ACATEGORYREMOVE.CAPTION=Remove
    1314TFORMIMPORTSOURCE.ACATEGORYADD.CAPTION=Add
  • trunk/Forms/UFormImportSource.pas

    r46 r84  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    9   ActnList, Menus, ExtCtrls, MaskEdit, UAcronym;
     9  ActnList, Menus, ExtCtrls, MaskEdit, UAcronym, LCLIntf;
    1010
    1111type
     
    2323    ButtonOk: TButton;
    2424    ButtonCancel: TButton;
     25    ButtonOpenURL: TButton;
    2526    CheckBoxEnabled: TCheckBox;
    2627    ComboBox1: TComboBox;
     
    4142    procedure ACategoryAddExecute(Sender: TObject);
    4243    procedure ACategoryRemoveExecute(Sender: TObject);
     44    procedure ButtonOpenURLClick(Sender: TObject);
    4345    procedure ButtonShowFormatClick(Sender: TObject);
    4446    procedure FormShow(Sender: TObject);
     
    117119end;
    118120
     121procedure TFormImportSource.ButtonOpenURLClick(Sender: TObject);
     122begin
     123  OpenURL(EditURL.Text);
     124end;
     125
    119126procedure TFormImportSource.Load(ImportSource: TImportSource);
    120127var
Note: See TracChangeset for help on using the changeset viewer.