Ignore:
Timestamp:
Nov 9, 2011, 1:58:00 PM (13 years ago)
Author:
george
Message:
  • Modified: Login form now use connection profile form for selecting connection parameters.
  • Added: About application dialog.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/ULoginForm.lfm

    r22 r25  
    11object LoginForm: TLoginForm
    2   Left = 482
    3   Height = 171
    4   Top = 258
    5   Width = 399
     2  Left = 312
     3  Height = 163
     4  Top = 186
     5  Width = 433
    66  BorderIcons = [biSystemMenu]
    77  BorderStyle = bsDialog
    88  Caption = 'Login'
    9   ClientHeight = 171
    10   ClientWidth = 399
     9  ClientHeight = 163
     10  ClientWidth = 433
     11  OnClose = FormClose
     12  OnShow = FormShow
    1113  LCLVersion = '0.9.31'
    1214  object Label1: TLabel
    1315    Left = 16
    1416    Height = 14
    15     Top = 48
     17    Top = 64
    1618    Width = 53
    1719    Caption = 'Username:'
    … …  
    2123    Left = 16
    2224    Height = 14
    23     Top = 80
     25    Top = 96
    2426    Width = 51
    2527    Caption = 'Password:'
    … …  
    3234    Width = 75
    3335    Caption = 'Close'
     36    ModalResult = 11
     37    OnClick = ButtonCancelClick
    3438    TabOrder = 0
    3539  end
    … …  
    4044    Width = 75
    4145    Caption = 'Login'
     46    ModalResult = 1
     47    OnClick = ButtonLoginClick
    4248    TabOrder = 1
    4349  end
    44   object Edit1: TEdit
     50  object EditUserName: TEdit
    4551    Left = 88
    4652    Height = 21
    47     Top = 40
     53    Top = 64
    4854    Width = 104
    4955    TabOrder = 2
    5056  end
    51   object MaskEdit1: TMaskEdit
     57  object MaskEditPassword: TMaskEdit
    5258    Left = 88
    5359    Height = 21
    54     Top = 71
     60    Top = 96
    5561    Width = 104
    5662    CharCase = ecNormal
    … …  
    6167    SpaceChar = '_'
    6268  end
     69  object Label3: TLabel
     70    Left = 16
     71    Height = 14
     72    Top = 12
     73    Width = 59
     74    Caption = 'Connection:'
     75    ParentColor = False
     76  end
     77  object ComboBoxConnection: TComboBox
     78    Left = 88
     79    Height = 21
     80    Top = 12
     81    Width = 105
     82    ItemHeight = 13
     83    Style = csDropDownList
     84    TabOrder = 4
     85  end
     86  object ButtonChange: TButton
     87    Left = 198
     88    Height = 25
     89    Top = 9
     90    Width = 67
     91    Caption = 'Change'
     92    OnClick = ButtonChangeClick
     93    TabOrder = 5
     94  end
    6395  object Image1: TImage
    64     Left = 216
    65     Height = 152
    66     Top = 16
    67     Width = 168
     96    Left = 272
     97    Height = 140
     98    Top = 12
     99    Width = 152
    68100  end
    69101end
Note: See TracChangeset for help on using the changeset viewer.