Files
HeidiSQL/source/usermanager.dfm

643 lines
17 KiB
Plaintext

object UserManagerForm: TUserManagerForm
Left = 252
Top = 131
BorderIcons = [biSystemMenu, biMaximize]
Caption = 'User Manager'
ClientHeight = 364
ClientWidth = 484
Color = clBtnFace
Constraints.MinHeight = 350
Constraints.MinWidth = 450
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = []
Position = poMainFormCenter
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnResize = FormResize
OnShow = FormShow
DesignSize = (
484
364)
TextHeight = 14
object Splitter1: TSplitter
AlignWithMargins = True
Left = 185
Top = 8
Width = 8
Height = 316
Cursor = crSizeWE
Margins.Left = 0
Margins.Top = 8
Margins.Right = 0
Margins.Bottom = 40
ResizeStyle = rsUpdate
OnMoved = FormResize
end
object lblWarning: TLabel
Left = 8
Top = 330
Width = 165
Height = 30
Anchors = [akLeft, akRight, akBottom]
AutoSize = False
Layout = tlCenter
WordWrap = True
end
object btnCancel: TButton
Left = 381
Top = 331
Width = 95
Height = 25
Anchors = [akRight, akBottom]
Cancel = True
Caption = 'Close'
ImageIndex = 26
ImageName = 'icons8-close-button'
Images = MainForm.VirtualImageListMain
ModalResult = 2
TabOrder = 4
end
object btnSave: TButton
Left = 179
Top = 331
Width = 95
Height = 25
Anchors = [akRight, akBottom]
Caption = 'Save'
Default = True
ImageIndex = 10
ImageName = 'icons8-save-button-100'
Images = MainForm.VirtualImageListMain
TabOrder = 2
OnClick = btnSaveClick
end
object pnlLeft: TPanel
AlignWithMargins = True
Left = 8
Top = 8
Width = 177
Height = 316
Margins.Left = 8
Margins.Top = 8
Margins.Right = 0
Margins.Bottom = 40
Align = alLeft
BevelOuter = bvNone
Constraints.MinWidth = 20
TabOrder = 0
object lblUsers: TLabel
AlignWithMargins = True
Left = 3
Top = 3
Width = 171
Height = 13
Align = alTop
Caption = '&Select user account:'
FocusControl = listUsers
end
object listUsers: TVirtualStringTree
Left = 0
Top = 41
Width = 177
Height = 275
Align = alClient
Header.AutoSizeIndex = 0
Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible, hoDisableAnimatedResize, hoAutoResizeInclCaption]
Header.PopupMenu = MainForm.popupListHeader
Header.SortColumn = 0
Images = MainForm.VirtualImageListMain
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
Touch.InteractiveGestures = [igPan, igPressAndTap]
Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough]
Columns = <
item
Position = 0
Text = 'Username'
Width = 93
end
item
Position = 1
Text = 'Host'
Width = 80
end>
end
object ToolBar1: TToolBar
Left = 0
Top = 19
Width = 177
Height = 22
AutoSize = True
ButtonWidth = 58
Caption = 'ToolBar1'
Images = MainForm.VirtualImageListMain
List = True
ShowCaptions = True
TabOrder = 1
Wrapable = False
object btnAddUser: TToolButton
Left = 0
Top = 0
Caption = 'Add'
ImageIndex = 45
ImageName = 'icons8-add'
OnClick = btnAddUserClick
end
object btnCloneUser: TToolButton
Left = 58
Top = 0
Caption = 'Clone'
ImageIndex = 3
ImageName = 'icons8-copy-100'
OnClick = btnAddUserClick
end
object btnDeleteUser: TToolButton
Left = 116
Top = 0
Caption = 'Delete'
ImageIndex = 46
ImageName = 'icons8-delete-button'
OnClick = btnDeleteUserClick
end
end
end
object pnlRight: TPanel
AlignWithMargins = True
Left = 193
Top = 8
Width = 283
Height = 316
Margins.Left = 0
Margins.Top = 8
Margins.Right = 8
Margins.Bottom = 40
Align = alClient
BevelOuter = bvNone
Constraints.MinWidth = 20
TabOrder = 1
object tlbObjects: TToolBar
Left = 0
Top = 145
Width = 283
Height = 22
AutoSize = True
ButtonWidth = 79
Caption = 'tlbObjects'
Images = MainForm.VirtualImageListMain
List = True
ParentShowHint = False
ShowCaptions = True
ShowHint = True
TabOrder = 1
Wrapable = False
object lblAllowAccessTo: TLabel
Left = 0
Top = 0
Width = 121
Height = 22
AutoSize = False
Caption = 'Allow access to:'
Transparent = False
Layout = tlCenter
end
object btnAddObject: TToolButton
Left = 121
Top = 0
Hint = 'Add object ...'
Caption = 'Add object'
ImageIndex = 45
ImageName = 'icons8-add'
OnClick = btnAddObjectClick
end
end
object treePrivs: TVirtualStringTree
Left = 0
Top = 167
Width = 283
Height = 149
Align = alClient
Header.AutoSizeIndex = 0
Header.MainColumn = -1
Images = MainForm.VirtualImageListMain
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
Touch.InteractiveGestures = [igPan, igPressAndTap]
Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough]
Columns = <>
end
object PageControlSettings: TPageControl
Left = 0
Top = 0
Width = 283
Height = 145
ActivePage = tabCredentials
Align = alTop
TabOrder = 0
object tabCredentials: TTabSheet
Caption = 'Credentials'
DesignSize = (
275
117)
object lblUsername: TLabel
Left = 3
Top = 10
Width = 55
Height = 13
Caption = 'User &name:'
end
object lblFromHost: TLabel
Left = 3
Top = 37
Width = 52
Height = 13
Caption = 'From &host:'
FocusControl = editFromHost
end
object lblPassword: TLabel
Left = 3
Top = 64
Width = 50
Height = 13
Caption = '&Password:'
FocusControl = editPassword
end
object lblRepeatPassword: TLabel
Left = 3
Top = 91
Width = 88
Height = 13
Caption = 'Repeat password:'
FocusControl = editRepeatPassword
end
object editRepeatPassword: TEdit
Left = 176
Top = 88
Width = 96
Height = 21
Anchors = [akLeft, akTop, akRight]
PasswordChar = '*'
TabOrder = 3
OnChange = Modification
end
object editPassword: TButtonedEdit
Left = 176
Top = 61
Width = 96
Height = 21
Anchors = [akLeft, akTop, akRight]
Images = MainForm.VirtualImageListMain
PasswordChar = '*'
RightButton.DropDownMenu = menuPassword
RightButton.Hint = 'Select random password'
RightButton.ImageIndex = 75
RightButton.Visible = True
TabOrder = 2
OnChange = editPasswordChange
end
object editFromHost: TButtonedEdit
Left = 176
Top = 34
Width = 96
Height = 21
Anchors = [akLeft, akTop, akRight]
Images = MainForm.VirtualImageListMain
RightButton.DropDownMenu = menuHost
RightButton.ImageIndex = 75
RightButton.Visible = True
TabOrder = 1
OnChange = Modification
end
object editUsername: TEdit
Left = 176
Top = 7
Width = 96
Height = 21
Anchors = [akLeft, akTop, akRight]
TabOrder = 0
OnChange = Modification
end
end
object tabLimitations: TTabSheet
Caption = 'Limitations'
ImageIndex = 1
DesignSize = (
275
117)
object lblMaxQueries: TLabel
Left = 3
Top = 10
Width = 85
Height = 13
Caption = 'Queries per hour:'
end
object lblMaxUpdates: TLabel
Left = 3
Top = 37
Width = 88
Height = 13
Caption = 'Updates per hour:'
end
object lblMaxConnections: TLabel
Left = 3
Top = 64
Width = 107
Height = 13
Caption = 'Connections per hour:'
end
object lblMaxUserConnections: TLabel
Left = 3
Top = 91
Width = 127
Height = 13
Caption = 'Simultaneous connections:'
end
object editMaxQueries: TEdit
Left = 176
Top = 7
Width = 80
Height = 21
Anchors = [akLeft, akTop, akRight]
NumbersOnly = True
TabOrder = 0
Text = '0'
OnChange = Modification
end
object editMaxUpdates: TEdit
Left = 176
Top = 34
Width = 80
Height = 21
Anchors = [akLeft, akTop, akRight]
NumbersOnly = True
TabOrder = 2
Text = '0'
OnChange = Modification
end
object editMaxConnections: TEdit
Left = 176
Top = 61
Width = 80
Height = 21
Anchors = [akLeft, akTop, akRight]
NumbersOnly = True
TabOrder = 4
Text = '0'
OnChange = Modification
end
object editMaxUserConnections: TEdit
Left = 176
Top = 88
Width = 80
Height = 21
Anchors = [akLeft, akTop, akRight]
NumbersOnly = True
TabOrder = 6
Text = '0'
OnChange = Modification
end
object udMaxQueries: TUpDown
Left = 256
Top = 7
Width = 17
Height = 21
Anchors = [akTop, akRight]
Associate = editMaxQueries
Max = 2147483647
TabOrder = 1
Thousands = False
OnClick = udMaxQueriesClick
end
object udMaxUpdates: TUpDown
Left = 256
Top = 34
Width = 17
Height = 21
Anchors = [akTop, akRight]
Associate = editMaxUpdates
Max = 2147483647
TabOrder = 3
Thousands = False
end
object udMaxConnections: TUpDown
Left = 256
Top = 61
Width = 17
Height = 21
Anchors = [akTop, akRight]
Associate = editMaxConnections
Max = 2147483647
TabOrder = 5
Thousands = False
end
object udMaxUserConnections: TUpDown
Left = 256
Top = 88
Width = 17
Height = 21
Anchors = [akTop, akRight]
Associate = editMaxUserConnections
Max = 2147483647
TabOrder = 7
Thousands = False
end
end
object tabSSL: TTabSheet
Caption = 'SSL options'
ImageIndex = 2
DesignSize = (
275
117)
object lblCipher: TLabel
Left = 3
Top = 36
Width = 35
Height = 13
Caption = '&Cipher:'
FocusControl = editCipher
end
object lblIssuer: TLabel
Left = 3
Top = 62
Width = 34
Height = 13
Caption = '&Issuer:'
FocusControl = editIssuer
end
object lblSubject: TLabel
Left = 3
Top = 89
Width = 40
Height = 13
Caption = '&Subject:'
FocusControl = editSubject
end
object lblSSL: TLabel
Left = 3
Top = 9
Width = 61
Height = 13
Caption = '&Require SSL:'
end
object editCipher: TEdit
Left = 176
Top = 33
Width = 96
Height = 21
Anchors = [akLeft, akTop, akRight]
TabOrder = 1
Text = 'editCipher'
OnChange = Modification
end
object editIssuer: TEdit
Left = 176
Top = 59
Width = 96
Height = 21
Anchors = [akLeft, akTop, akRight]
TabOrder = 2
Text = 'editIssuer'
OnChange = Modification
end
object editSubject: TEdit
Left = 176
Top = 86
Width = 96
Height = 21
Anchors = [akLeft, akTop, akRight]
TabOrder = 3
Text = 'editSubject'
OnChange = Modification
end
object comboSSL: TComboBox
Left = 176
Top = 6
Width = 96
Height = 21
Style = csDropDownList
Anchors = [akLeft, akTop, akRight]
TabOrder = 0
OnChange = comboSSLChange
Items.Strings = (
'No SSL or X509 requirements'
'Only permit SSL-encrypted connections'
'X509 (certificate, issuer and subject do not matter)'
'Specify requirements...')
end
end
end
end
object btnDiscard: TButton
Left = 280
Top = 331
Width = 95
Height = 25
Anchors = [akRight, akBottom]
Caption = 'Discard'
ImageIndex = 40
ImageName = 'icons8-undo'
Images = MainForm.VirtualImageListMain
TabOrder = 3
OnClick = btnDiscardClick
end
object menuHost: TPopupMenu
OnPopup = menuHostPopup
Left = 16
Top = 280
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
AutoHotkeys = maManual
Left = 48
Top = 280
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