CentrED/Client/UfrmEditAccount.lfm

171 lines
3.8 KiB
Plaintext
Raw Normal View History

2015-05-01 12:14:15 +02:00
object frmEditAccount: TfrmEditAccount
Left = 1146
2015-05-01 12:14:15 +02:00
Height = 214
Top = 205
2015-05-01 12:14:15 +02:00
Width = 261
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Редактирование аккаунта'
2015-05-01 12:14:15 +02:00
ClientHeight = 214
ClientWidth = 261
Font.Height = -11
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
Position = poOwnerFormCenter
LCLVersion = '0.9.30.2'
2015-05-01 12:14:15 +02:00
object PageControl1: TPageControl
Left = 0
2015-05-01 12:14:15 +02:00
Height = 173
Top = 0
2015-05-01 12:14:15 +02:00
Width = 261
ActivePage = tsGeneral
Align = alClient
TabIndex = 0
TabOrder = 0
object tsGeneral: TTabSheet
Caption = 'Общие'
ClientHeight = 147
ClientWidth = 253
2015-05-01 12:14:15 +02:00
object lblPasswordHint: TLabel
Left = 86
Height = 28
Top = 64
Width = 160
AutoSize = False
Caption = 'Не заполнять поле, если не хотите изменить пароль.'
2015-05-01 12:14:15 +02:00
Enabled = False
ParentColor = False
WordWrap = True
end
object lblUsername: TLabel
Left = 6
Height = 14
Top = 12
Width = 46
Caption = 'Аккаунт:'
2015-05-01 12:14:15 +02:00
ParentColor = False
end
object lblPassword: TLabel
Left = 6
Height = 14
Top = 44
Width = 44
Caption = 'Пароль:'
2015-05-01 12:14:15 +02:00
ParentColor = False
end
object lblAccessLevel: TLabel
Left = 6
Height = 14
Top = 108
Width = 37
Caption = 'Права:'
2015-05-01 12:14:15 +02:00
ParentColor = False
end
object edUsername: TEdit
Left = 86
Height = 21
2015-05-01 12:14:15 +02:00
Top = 8
Width = 160
Color = clBtnFace
ReadOnly = True
TabOrder = 0
end
object edPassword: TEdit
Left = 86
Height = 21
2015-05-01 12:14:15 +02:00
Top = 40
Width = 160
EchoMode = emPassword
PasswordChar = '*'
TabOrder = 1
end
object cbAccessLevel: TComboBox
Left = 86
Height = 21
2015-05-01 12:14:15 +02:00
Top = 104
Width = 160
ItemHeight = 13
2015-05-01 12:14:15 +02:00
Items.Strings = (
'None'
'Viewer'
'Normal'
'Developer'
2015-05-01 12:14:15 +02:00
'Administrator'
)
Style = csDropDownList
TabOrder = 2
end
end
object tsRegions: TTabSheet
Caption = 'Регионы'
ClientHeight = 147
ClientWidth = 253
2015-05-01 12:14:15 +02:00
object Label1: TLabel
Left = 8
Height = 14
Top = 8
Width = 237
2015-05-01 12:14:15 +02:00
Align = alTop
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 4
Caption = 'Разрешенные регионы:'
2015-05-01 12:14:15 +02:00
ParentColor = False
end
object cbRegions: TCheckListBox
Left = 8
Height = 113
2015-05-01 12:14:15 +02:00
Top = 26
Width = 237
2015-05-01 12:14:15 +02:00
Align = alClient
BorderSpacing.Left = 8
BorderSpacing.Top = 4
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
ItemHeight = 0
2015-05-01 12:14:15 +02:00
TabOrder = 0
end
end
end
object Panel1: TPanel
Left = 8
Height = 25
Top = 181
Width = 245
Align = alBottom
BorderSpacing.Around = 8
BevelOuter = bvNone
ClientHeight = 25
ClientWidth = 245
TabOrder = 1
object btnCancel: TButton
Left = 170
Height = 25
Top = 0
2015-05-01 12:14:15 +02:00
Width = 75
Align = alRight
BorderSpacing.Left = 4
BorderSpacing.InnerBorder = 4
Cancel = True
Caption = 'Отмена'
2015-05-01 12:14:15 +02:00
ModalResult = 2
TabOrder = 0
end
object btnOK: TButton
Left = 91
Height = 25
Top = 0
2015-05-01 12:14:15 +02:00
Width = 75
Align = alRight
BorderSpacing.Right = 4
BorderSpacing.InnerBorder = 4
Caption = 'OK'
Default = True
ModalResult = 1
TabOrder = 1
end
end
end