- Initial import from internal repository

Client/UfrmEditAccount.lfm

@@ -0,0 +1,107 @@
+object frmEditAccount: TfrmEditAccount
+  Left = 290
+  Height = 186
+  Top = 171
+  Width = 266
+  HorzScrollBar.Page = 265
+  VertScrollBar.Page = 185
+  ActiveControl = btnOK
+  BorderIcons = [biSystemMenu]
+  BorderStyle = bsDialog
+  Caption = 'Edit Account'
+  ClientHeight = 186
+  ClientWidth = 266
+  Position = poOwnerFormCenter
+  object lblPasswordHint: TLabel
+    Left = 96
+    Height = 28
+    Top = 72
+    Width = 160
+    AutoSize = False
+    Caption = 'Leave empty to leave the password unchanged.'
+    Enabled = False
+    ParentColor = False
+    WordWrap = True
+  end
+  object lblUsername: TLabel
+    Left = 16
+    Height = 16
+    Top = 20
+    Width = 57
+    Caption = 'Username:'
+    ParentColor = False
+  end
+  object lblPassword: TLabel
+    Left = 16
+    Height = 16
+    Top = 52
+    Width = 54
+    Caption = 'Password:'
+    ParentColor = False
+  end
+  object lblAccessLevel: TLabel
+    Left = 16
+    Height = 16
+    Top = 116
+    Width = 64
+    Caption = 'Accesslevel:'
+    ParentColor = False
+  end
+  object btnOK: TButton
+    Left = 93
+    Height = 25
+    Top = 152
+    Width = 75
+    BorderSpacing.InnerBorder = 4
+    Caption = 'OK'
+    Default = True
+    ModalResult = 1
+    TabOrder = 0
+  end
+  object btnCancel: TButton
+    Left = 181
+    Height = 25
+    Top = 152
+    Width = 75
+    BorderSpacing.InnerBorder = 4
+    Cancel = True
+    Caption = 'Cancel'
+    ModalResult = 2
+    TabOrder = 1
+  end
+  object edUsername: TEdit
+    Left = 96
+    Height = 23
+    Top = 16
+    Width = 160
+    Color = clBtnFace
+    ReadOnly = True
+    TabOrder = 2
+  end
+  object edPassword: TEdit
+    Left = 96
+    Height = 23
+    Top = 48
+    Width = 160
+    EchoMode = emPassword
+    PasswordChar = '*'
+    TabOrder = 3
+  end
+  object cbAccessLevel: TComboBox
+    Left = 96
+    Height = 21
+    Top = 112
+    Width = 160
+    AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
+    ItemHeight = 13
+    Items.Strings = (
+      'None'
+      'Viewer'
+      'Normal'
+      'Administrator'
+    )
+    MaxLength = 0
+    Style = csDropDownList
+    TabOrder = 4
+  end
+end