home *** CD-ROM | disk | FTP | other *** search
- object UserDlg: TUserDlg
- Left = 43
- Top = 22
- ActiveControl = Name_Ed
- BorderStyle = bsDialog
- Caption = 'User Account'
- ClientHeight = 376
- ClientWidth = 388
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- PixelsPerInch = 96
- Position = poScreenCenter
- OnCreate = FormCreate
- TextHeight = 13
- object Bevel1: TBevel
- Left = 8
- Top = 8
- Width = 273
- Height = 361
- end
- object Label1: TLabel
- Left = 16
- Top = 16
- Width = 37
- Height = 13
- Caption = 'Name:'
- end
- object Label2: TLabel
- Left = 16
- Top = 60
- Width = 48
- Height = 13
- Caption = 'User ID:'
- end
- object Label3: TLabel
- Left = 16
- Top = 104
- Width = 59
- Height = 13
- Caption = 'Password:'
- end
- object Label4: TLabel
- Left = 16
- Top = 148
- Width = 87
- Height = 13
- Caption = 'Data Directory:'
- end
- object OKBtn: TBitBtn
- Left = 300
- Top = 8
- Width = 77
- Height = 27
- Caption = '&OK'
- TabOrder = 0
- OnClick = OKBtnClick
- Kind = bkOK
- Margin = 2
- Spacing = -1
- IsControl = True
- end
- object CancelBtn: TBitBtn
- Left = 300
- Top = 40
- Width = 77
- Height = 27
- Caption = '&Cancel'
- TabOrder = 1
- Kind = bkCancel
- Margin = 2
- Spacing = -1
- IsControl = True
- end
- object HelpBtn: TBitBtn
- Left = 300
- Top = 72
- Width = 77
- Height = 27
- TabOrder = 2
- Kind = bkHelp
- Margin = 2
- Spacing = -1
- IsControl = True
- end
- object Name_Ed: TEdit
- Left = 16
- Top = 33
- Width = 257
- Height = 20
- MaxLength = 40
- TabOrder = 3
- end
- object UserID_Ed: TEdit
- Left = 16
- Top = 77
- Width = 129
- Height = 20
- MaxLength = 10
- TabOrder = 4
- end
- object Pass_Ed: TEdit
- Left = 16
- Top = 121
- Width = 129
- Height = 20
- MaxLength = 10
- TabOrder = 5
- end
- object DataDir_Ed: TEdit
- Left = 16
- Top = 165
- Width = 105
- Height = 20
- ReadOnly = True
- TabOrder = 6
- end
- object Access_GB: TRadioGroup
- Left = 16
- Top = 277
- Width = 185
- Height = 76
- Caption = 'Public Files Access Rights'
- Items.Strings = (
- 'Read and Write'
- 'Read Only'
- 'None')
- TabOrder = 7
- end
- object Status_GB: TRadioGroup
- Left = 16
- Top = 200
- Width = 185
- Height = 57
- Caption = 'Current Status'
- Items.Strings = (
- 'Active'
- 'Not Active')
- TabOrder = 8
- end
- end
-