Files
HeidiSQL/source/usermanager.lfm

655 lines
18 KiB
Plaintext

object UserManagerForm: TUserManagerForm
Left = 252
Height = 455
Top = 131
Width = 784
BorderIcons = [biSystemMenu, biMaximize]
Caption = 'User Manager'
ClientHeight = 455
ClientWidth = 784
Color = clBtnFace
Constraints.MinHeight = 188
Constraints.MinWidth = 312
DesignTimePPI = 120
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
OnResize = FormResize
OnShow = FormShow
Position = poMainFormCenter
object Splitter1: TSplitter
Cursor = crSizeWE
Left = 292
Height = 396
Top = 0
Width = 10
OnMoved = FormResize
end
object pnlLeft: TPanel
Left = 6
Height = 390
Top = 6
Width = 280
Align = alLeft
BorderSpacing.Around = 6
BevelOuter = bvNone
ClientHeight = 390
ClientWidth = 280
Constraints.MinWidth = 25
ParentBackground = False
TabOrder = 0
object lblUsers: TLabel
Left = 0
Height = 20
Top = 0
Width = 280
Align = alTop
Caption = '&Select user account:'
FocusControl = listUsers
end
object listUsers: TLazVirtualStringTree
Left = 0
Height = 333
Top = 57
Width = 280
Align = alClient
Header.AutoSizeIndex = 0
Header.Columns = <
item
Position = 0
Text = 'Username'
Width = 176
end
item
Position = 1
Text = 'Host'
Width = 100
end>
Header.Height = 32
Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible, hoDisableAnimatedResize]
Header.PopupMenu = MainForm.popupListHeader
Header.SortColumn = 0
Images = MainForm.ImageListIcons8
IncrementalSearch = isAll
TabOrder = 0
TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages, toUseExplorerTheme, toHideTreeLinesIfThemed]
TreeOptions.SelectionOptions = [toFullRowSelect]
OnAfterPaint = listUsersAfterPaint
OnBeforePaint = listUsersBeforePaint
OnCompareNodes = listUsersCompareNodes
OnFocusChanged = listUsersFocusChanged
OnFocusChanging = listUsersFocusChanging
OnGetText = listUsersGetText
OnGetImageIndex = listUsersGetImageIndex
OnGetNodeDataSize = listUsersGetNodeDataSize
OnHeaderClick = listUsersHeaderClick
OnHotChange = listUsersHotChange
OnInitNode = listUsersInitNode
end
object ToolBar1: TToolBar
Left = 0
Height = 37
Top = 20
Width = 280
AutoSize = True
ButtonHeight = 35
ButtonWidth = 72
Caption = 'ToolBar1'
Images = MainForm.ImageListIcons8
List = True
ShowCaptions = True
TabOrder = 1
Wrapable = False
object btnAddUser: TToolButton
Left = 1
Top = 2
Caption = 'Add'
ImageIndex = 45
OnClick = btnAddUserClick
end
object btnCloneUser: TToolButton
Left = 73
Top = 2
Caption = 'Clone'
ImageIndex = 3
OnClick = btnAddUserClick
end
object btnDeleteUser: TToolButton
Left = 145
Top = 2
Caption = 'Delete'
ImageIndex = 46
OnClick = btnDeleteUserClick
end
end
end
object pnlRight: TPanel
Left = 308
Height = 390
Top = 6
Width = 470
Align = alClient
BorderSpacing.Around = 6
BevelOuter = bvNone
ClientHeight = 390
ClientWidth = 470
Constraints.MinWidth = 25
ParentBackground = False
TabOrder = 1
object tlbObjects: TToolBar
Left = 0
Height = 37
Top = 175
Width = 470
AutoSize = True
ButtonHeight = 35
ButtonWidth = 99
Caption = 'tlbObjects'
Images = MainForm.ImageListIcons8
List = True
ParentShowHint = False
ShowCaptions = True
ShowHint = True
TabOrder = 1
Wrapable = False
object lblAllowAccessTo: TLabel
Left = 1
Height = 35
Top = 2
Width = 151
AutoSize = False
Caption = 'Allow access to:'
Layout = tlCenter
Transparent = False
end
object btnAddObject: TToolButton
Left = 152
Hint = 'Add object ...'
Top = 2
Caption = 'Add object'
ImageIndex = 45
OnClick = btnAddObjectClick
end
end
object treePrivs: TLazVirtualStringTree
AnchorSideTop.Control = tlbObjects
AnchorSideTop.Side = asrBottom
Left = 0
Height = 178
Top = 212
Width = 470
Align = alClient
Header.AutoSizeIndex = 0
Header.Columns = <>
Header.MainColumn = -1
Images = MainForm.ImageListIcons8
IncrementalSearch = isAll
TabOrder = 2
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoTristateTracking, toAutoDeleteMovedNodes, toAutoChangeScale]
TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick]
TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages, toUseExplorerTheme, toHideTreeLinesIfThemed]
OnChecked = treePrivsChecked
OnExpanded = treePrivsExpanded
OnGetText = treePrivsGetText
OnPaintText = treePrivsPaintText
OnGetImageIndex = treePrivsGetImageIndex
OnInitChildren = treePrivsInitChildren
OnInitNode = treePrivsInitNode
end
object PageControlSettings: TPageControl
Left = 0
Height = 175
Top = 0
Width = 470
ActivePage = tabCredentials
Align = alTop
AutoSize = True
TabIndex = 2
TabOrder = 0
object tabCredentials: TTabSheet
AutoSize = True
Caption = 'Credentials'
ClientHeight = 142
ClientWidth = 462
object lblUsername: TLabel
Left = 6
Height = 20
Top = 9
Width = 73
BorderSpacing.Around = 6
Caption = 'User &name:'
end
object lblFromHost: TLabel
AnchorSideTop.Control = editUsername
AnchorSideTop.Side = asrBottom
Left = 6
Height = 20
Top = 40
Width = 69
BorderSpacing.Around = 6
Caption = 'From &host:'
FocusControl = editFromHost
end
object lblPassword: TLabel
AnchorSideTop.Control = editFromHost
AnchorSideTop.Side = asrBottom
Left = 6
Height = 20
Top = 74
Width = 64
BorderSpacing.Around = 6
Caption = '&Password:'
FocusControl = editPassword
end
object lblRepeatPassword: TLabel
AnchorSideTop.Control = editPassword
AnchorSideTop.Side = asrBottom
Left = 6
Height = 20
Top = 108
Width = 117
BorderSpacing.Around = 6
Caption = 'Repeat password:'
FocusControl = editRepeatPassword
end
object editRepeatPassword: TEdit
AnchorSideTop.Control = editPassword
AnchorSideTop.Side = asrBottom
Left = 222
Height = 28
Top = 108
Width = 234
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
EchoMode = emPassword
PasswordChar = '*'
TabOrder = 3
OnChange = Modification
end
object editPassword: TEditButton
AnchorSideTop.Control = editFromHost
AnchorSideTop.Side = asrBottom
Left = 222
Height = 28
Top = 74
Width = 234
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
ButtonWidth = 29
EchoMode = emPassword
Images = MainForm.ImageListIcons8
ImageIndex = 75
MaxLength = 0
NumGlyphs = 1
OnButtonClick = editPasswordButtonClick
OnChange = editPasswordChange
PasswordChar = '*'
TabOrder = 2
end
object editFromHost: TEditButton
AnchorSideTop.Control = editUsername
AnchorSideTop.Side = asrBottom
Left = 222
Height = 28
Top = 40
Width = 234
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
ButtonWidth = 29
Images = MainForm.ImageListIcons8
ImageIndex = 75
MaxLength = 0
NumGlyphs = 1
OnButtonClick = editFromHostButtonClick
OnChange = Modification
PasswordChar = #0
TabOrder = 1
end
object editUsername: TEdit
Left = 222
Height = 28
Top = 6
Width = 234
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
TabOrder = 0
OnChange = Modification
end
end
object tabLimitations: TTabSheet
AutoSize = True
Caption = 'Limitations'
ClientHeight = 142
ClientWidth = 462
ImageIndex = 1
object lblMaxQueries: TLabel
AnchorSideTop.Control = editMaxQueries
Left = 6
Height = 20
Top = 12
Width = 113
BorderSpacing.Around = 6
Caption = 'Queries per hour:'
end
object lblMaxUpdates: TLabel
AnchorSideTop.Control = editMaxQueries
AnchorSideTop.Side = asrBottom
Left = 6
Height = 20
Top = 40
Width = 118
BorderSpacing.Around = 6
Caption = 'Updates per hour:'
end
object lblMaxConnections: TLabel
AnchorSideTop.Control = editMaxUpdates
AnchorSideTop.Side = asrBottom
Left = 6
Height = 20
Top = 74
Width = 144
BorderSpacing.Around = 6
Caption = 'Connections per hour:'
end
object lblMaxUserConnections: TLabel
AnchorSideTop.Control = editMaxConnections
AnchorSideTop.Side = asrBottom
Left = 6
Height = 20
Top = 108
Width = 175
BorderSpacing.Around = 6
Caption = 'Simultaneous connections:'
end
object editMaxQueries: TEdit
Left = 222
Height = 28
Top = 6
Width = 234
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
NumbersOnly = True
TabOrder = 0
Text = '0'
OnChange = Modification
end
object editMaxUpdates: TEdit
AnchorSideTop.Control = editMaxQueries
AnchorSideTop.Side = asrBottom
Left = 222
Height = 28
Top = 40
Width = 234
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
NumbersOnly = True
TabOrder = 1
Text = '0'
OnChange = Modification
end
object editMaxConnections: TEdit
AnchorSideTop.Control = editMaxUpdates
AnchorSideTop.Side = asrBottom
Left = 222
Height = 28
Top = 74
Width = 234
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
NumbersOnly = True
TabOrder = 2
Text = '0'
OnChange = Modification
end
object editMaxUserConnections: TEdit
AnchorSideTop.Control = editMaxConnections
AnchorSideTop.Side = asrBottom
Left = 222
Height = 28
Top = 108
Width = 234
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
NumbersOnly = True
TabOrder = 3
Text = '0'
OnChange = Modification
end
end
object tabSSL: TTabSheet
AutoSize = True
Caption = 'SSL options'
ClientHeight = 142
ClientWidth = 462
ImageIndex = 2
object lblCipher: TLabel
AnchorSideTop.Control = comboSSL
AnchorSideTop.Side = asrBottom
Left = 6
Height = 20
Top = 40
Width = 46
BorderSpacing.Around = 6
Caption = '&Cipher:'
FocusControl = editCipher
end
object lblIssuer: TLabel
AnchorSideTop.Control = editCipher
AnchorSideTop.Side = asrBottom
Left = 6
Height = 20
Top = 74
Width = 40
BorderSpacing.Around = 6
Caption = '&Issuer:'
FocusControl = editIssuer
end
object lblSubject: TLabel
AnchorSideTop.Control = editIssuer
AnchorSideTop.Side = asrBottom
Left = 6
Height = 20
Top = 108
Width = 52
BorderSpacing.Around = 6
Caption = '&Subject:'
FocusControl = editSubject
end
object lblSSL: TLabel
Left = 6
Height = 20
Top = 9
Width = 81
BorderSpacing.Around = 6
Caption = '&Require SSL:'
end
object editCipher: TEdit
AnchorSideTop.Control = comboSSL
AnchorSideTop.Side = asrBottom
Left = 222
Height = 28
Top = 40
Width = 234
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
TabOrder = 1
Text = 'editCipher'
OnChange = Modification
end
object editIssuer: TEdit
AnchorSideTop.Control = editCipher
AnchorSideTop.Side = asrBottom
Left = 222
Height = 28
Top = 74
Width = 234
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
TabOrder = 2
Text = 'editIssuer'
OnChange = Modification
end
object editSubject: TEdit
AnchorSideTop.Control = editIssuer
AnchorSideTop.Side = asrBottom
Left = 222
Height = 28
Top = 108
Width = 234
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
TabOrder = 3
Text = 'editSubject'
OnChange = Modification
end
object comboSSL: TComboBox
Left = 222
Height = 28
Top = 6
Width = 234
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
ItemHeight = 20
Items.Strings = (
'No SSL or X509 requirements'
'Only permit SSL-encrypted connections'
'X509 (certificate, issuer and subject do not matter)'
'Specify requirements...'
)
Style = csDropDownList
TabOrder = 0
OnChange = comboSSLChange
end
end
end
end
object pnlBottom: TPanel
Left = 6
Height = 47
Top = 402
Width = 772
Align = alBottom
BorderSpacing.Around = 6
ClientHeight = 47
ClientWidth = 772
ParentBackground = False
TabOrder = 3
object btnDiscard: TSpeedButton
Left = 517
Height = 31
Top = 8
Width = 119
Anchors = [akTop, akRight]
Caption = 'Discard'
Images = MainForm.ImageListIcons8
ImageIndex = 40
OnClick = btnDiscardClick
end
object btnSave: TSpeedButton
Left = 391
Height = 31
Top = 8
Width = 119
Anchors = [akTop, akRight]
Caption = 'Save'
Images = MainForm.ImageListIcons8
ImageIndex = 10
OnClick = btnSaveClick
end
object btnCancel: TSpeedButton
Left = 643
Height = 31
Top = 8
Width = 119
Anchors = [akTop, akRight]
Caption = 'Close'
Images = MainForm.ImageListIcons8
ImageIndex = 26
OnClick = btnCancelClick
end
object lblWarning: TLabel
Left = 10
Height = 30
Top = 8
Width = 252
Anchors = [akTop, akLeft, akRight]
AutoSize = False
Layout = tlCenter
WordWrap = True
end
end
object menuHost: TPopupMenu
OnPopup = menuHostPopup
Left = 20
Top = 350
object menuHost1: TMenuItem
Caption = 'Access from server location only'
Hint = 'localhost'
OnClick = menuHostClick
end
object menuHost2: TMenuItem
Caption = 'Local network: 192.168.%'
Hint = '192.168.%'
OnClick = menuHostClick
end
object menuHost3: TMenuItem
Caption = 'Local network: 10.122.%'
Hint = '10.122.%'
OnClick = menuHostClick
end
object menuHostLocal4: TMenuItem
Caption = 'Access from everywhere'
Hint = '%'
OnClick = menuHostClick
end
object N1: TMenuItem
Caption = '-'
end
end
object menuPassword: TPopupMenu
Left = 60
Top = 350
object menuPassword1: TMenuItem
Caption = '6 characters'
OnClick = menuPasswordClick
object menuDummy1: TMenuItem
Caption = 'dummy'
OnClick = menuPasswordInsert
end
end
object menuPassword2: TMenuItem
Caption = '8 characters'
OnClick = menuPasswordClick
object menuDummy2: TMenuItem
Caption = 'dummy'
OnClick = menuPasswordInsert
end
end
object menuPassword3: TMenuItem
Caption = '10 characters'
OnClick = menuPasswordClick
object menuDummy3: TMenuItem
Caption = 'dummy'
OnClick = menuPasswordInsert
end
end
object menuPassword4: TMenuItem
Caption = '12 characters'
OnClick = menuPasswordClick
object menuDummy4: TMenuItem
Caption = 'dummy'
OnClick = menuPasswordInsert
end
end
object menuPassword5: TMenuItem
Caption = '30 characters'
OnClick = menuPasswordClick
object menuDummy5: TMenuItem
Caption = 'dummy'
OnClick = menuPasswordInsert
end
end
end
end