mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2025-08-06 18:24:26 +08:00
36d9603f3c
Wrote a small console app which removes these properties automatically in a given directory. Feel free to download it at http://www.heidisql.com/files/explicit_sucks.exe and use it before committing *.dfm files.
514 lines
13 KiB
Plaintext
514 lines
13 KiB
Plaintext
object UserManagerForm: TUserManagerForm
|
|
Left = 252
|
|
Top = 131
|
|
BorderWidth = 5
|
|
Caption = 'User-Manager'
|
|
ClientHeight = 380
|
|
ClientWidth = 533
|
|
Color = clBtnFace
|
|
Constraints.MinHeight = 417
|
|
Constraints.MinWidth = 551
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poMainFormCenter
|
|
OnClose = FormClose
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object PageControl1: TPageControl
|
|
Left = 0
|
|
Top = 0
|
|
Width = 533
|
|
Height = 343
|
|
ActivePage = TabSheetAddUser
|
|
Align = alClient
|
|
TabHeight = 22
|
|
TabOrder = 0
|
|
OnChange = PageControl1Change
|
|
object TabSheetAddUser: TTabSheet
|
|
Caption = 'Add User'
|
|
object Label4: TLabel
|
|
Left = 16
|
|
Top = 40
|
|
Width = 51
|
|
Height = 13
|
|
Caption = '&Username:'
|
|
FocusControl = EditUser
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object Label5: TLabel
|
|
Left = 16
|
|
Top = 88
|
|
Width = 49
|
|
Height = 13
|
|
Caption = '&Password:'
|
|
FocusControl = EditPassword
|
|
end
|
|
object Label6: TLabel
|
|
Left = 16
|
|
Top = 64
|
|
Width = 51
|
|
Height = 13
|
|
Caption = 'From &Host:'
|
|
FocusControl = EditHost
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object Label7: TLabel
|
|
Left = 256
|
|
Top = 16
|
|
Width = 94
|
|
Height = 13
|
|
Caption = 'Allow a&ccess to:'
|
|
FocusControl = DBUserTree
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label8: TLabel
|
|
Left = 16
|
|
Top = 128
|
|
Width = 60
|
|
Height = 13
|
|
Caption = 'Privileges:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label9: TLabel
|
|
Left = 16
|
|
Top = 16
|
|
Width = 68
|
|
Height = 13
|
|
Caption = 'Credentials:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Bevel1: TBevel
|
|
Left = 16
|
|
Top = 120
|
|
Width = 209
|
|
Height = 9
|
|
Shape = bsTopLine
|
|
end
|
|
object Label1: TLabel
|
|
Left = 274
|
|
Top = 272
|
|
Width = 56
|
|
Height = 13
|
|
Caption = '&Description:'
|
|
Enabled = False
|
|
FocusControl = EditDescription
|
|
end
|
|
object DBUserTree: TTreeView
|
|
Left = 256
|
|
Top = 40
|
|
Width = 257
|
|
Height = 193
|
|
Images = MainForm.ImageList1
|
|
Indent = 19
|
|
ReadOnly = True
|
|
RowSelect = True
|
|
ShowLines = False
|
|
ShowRoot = False
|
|
TabOrder = 3
|
|
OnExpanding = DBUserTreeExpanding
|
|
end
|
|
object EditUser: TEdit
|
|
Left = 96
|
|
Top = 40
|
|
Width = 129
|
|
Height = 21
|
|
TabOrder = 0
|
|
end
|
|
object EditPassword: TEdit
|
|
Left = 96
|
|
Top = 88
|
|
Width = 129
|
|
Height = 21
|
|
PasswordChar = '*'
|
|
TabOrder = 2
|
|
end
|
|
object EditHost: TEdit
|
|
Left = 96
|
|
Top = 64
|
|
Width = 129
|
|
Height = 21
|
|
TabOrder = 1
|
|
Text = '%'
|
|
end
|
|
object CheckListBoxPrivileges: TCheckListBox
|
|
Left = 96
|
|
Top = 152
|
|
Width = 129
|
|
Height = 113
|
|
ItemHeight = 13
|
|
Items.Strings = (
|
|
'Select'
|
|
'Insert'
|
|
'Update'
|
|
'Delete'
|
|
'Index'
|
|
'Alter'
|
|
'Create'
|
|
'Drop'
|
|
'References'
|
|
'Reload'
|
|
'Shutdown'
|
|
'Process'
|
|
'File')
|
|
TabOrder = 5
|
|
end
|
|
object CheckBoxAllPrivileges: TCheckBox
|
|
Left = 96
|
|
Top = 128
|
|
Width = 105
|
|
Height = 17
|
|
Caption = '&All Privileges'
|
|
TabOrder = 4
|
|
OnClick = CheckBoxAllPrivilegesClick
|
|
end
|
|
object CheckBoxWithGrant: TCheckBox
|
|
Left = 96
|
|
Top = 272
|
|
Width = 105
|
|
Height = 17
|
|
Caption = '&With Grant Option'
|
|
TabOrder = 6
|
|
end
|
|
object CheckBoxCreateAccount: TCheckBox
|
|
Left = 256
|
|
Top = 248
|
|
Width = 249
|
|
Height = 17
|
|
Caption = 'Create Connection-Account for appname'
|
|
TabOrder = 7
|
|
OnClick = CheckBoxCreateAccountClick
|
|
end
|
|
object EditDescription: TEdit
|
|
Left = 336
|
|
Top = 270
|
|
Width = 177
|
|
Height = 21
|
|
Enabled = False
|
|
TabOrder = 8
|
|
end
|
|
end
|
|
object TabSheetEditUsers: TTabSheet
|
|
Caption = 'Edit Users'
|
|
ImageIndex = 1
|
|
object Panel1: TPanel
|
|
Left = 280
|
|
Top = 0
|
|
Width = 245
|
|
Height = 311
|
|
Align = alRight
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
DesignSize = (
|
|
245
|
|
311)
|
|
object Label13: TLabel
|
|
Left = 14
|
|
Top = 82
|
|
Width = 38
|
|
Height = 13
|
|
Caption = 'Column:'
|
|
Visible = False
|
|
end
|
|
object LabelColumn: TLabel
|
|
Left = 84
|
|
Top = 82
|
|
Width = 61
|
|
Height = 13
|
|
Caption = 'LabelColumn'
|
|
Visible = False
|
|
end
|
|
object LabelTable: TLabel
|
|
Left = 84
|
|
Top = 66
|
|
Width = 53
|
|
Height = 13
|
|
Caption = 'LabelTable'
|
|
Visible = False
|
|
end
|
|
object LabelDB: TLabel
|
|
Left = 84
|
|
Top = 50
|
|
Width = 41
|
|
Height = 13
|
|
Caption = 'LabelDB'
|
|
Visible = False
|
|
end
|
|
object Label12: TLabel
|
|
Left = 14
|
|
Top = 66
|
|
Width = 30
|
|
Height = 13
|
|
Caption = 'Table:'
|
|
Visible = False
|
|
end
|
|
object Label11: TLabel
|
|
Left = 14
|
|
Top = 50
|
|
Width = 49
|
|
Height = 13
|
|
Caption = 'Database:'
|
|
Visible = False
|
|
end
|
|
object LabelPrivileges: TLabel
|
|
Left = 14
|
|
Top = 8
|
|
Width = 60
|
|
Height = 13
|
|
Caption = 'Privileges:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
Visible = False
|
|
WordWrap = True
|
|
end
|
|
object LabelPleaseSelect: TLabel
|
|
Left = 40
|
|
Top = 96
|
|
Width = 142
|
|
Height = 39
|
|
Caption =
|
|
'Please select a user or doubleclick on a user to access items be' +
|
|
'low him.'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
WordWrap = True
|
|
end
|
|
object LabelNoPrivs: TLabel
|
|
Left = 24
|
|
Top = 120
|
|
Width = 195
|
|
Height = 13
|
|
Caption = 'No Privileges are set for the selected item'
|
|
Visible = False
|
|
end
|
|
object LabelUser: TLabel
|
|
Left = 14
|
|
Top = 32
|
|
Width = 3
|
|
Height = 13
|
|
end
|
|
object CheckListBoxPrivs: TCheckListBox
|
|
Left = 14
|
|
Top = 106
|
|
Width = 107
|
|
Height = 193
|
|
OnClickCheck = CheckListBoxPrivsClickCheck
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
ItemHeight = 13
|
|
Items.Strings = (
|
|
'Select'
|
|
'Insert'
|
|
'Update'
|
|
'Delete'
|
|
'Create'
|
|
'Drop'
|
|
'Reload'
|
|
'Shutdown'
|
|
'Process'
|
|
'File'
|
|
'Grant'
|
|
'References'
|
|
'Index'
|
|
'Alter')
|
|
TabOrder = 0
|
|
Visible = False
|
|
end
|
|
object ButtonSelectAll: TButton
|
|
Left = 136
|
|
Top = 172
|
|
Width = 100
|
|
Height = 25
|
|
Anchors = [akRight, akBottom]
|
|
Caption = 'Select all'
|
|
TabOrder = 1
|
|
Visible = False
|
|
OnClick = ButtonSelectAllClick
|
|
end
|
|
object ButtonSelectNone: TButton
|
|
Left = 136
|
|
Top = 204
|
|
Width = 100
|
|
Height = 25
|
|
Anchors = [akRight, akBottom]
|
|
Caption = 'Select none'
|
|
TabOrder = 2
|
|
Visible = False
|
|
OnClick = ButtonSelectNoneClick
|
|
end
|
|
object ButtonSet: TButton
|
|
Left = 136
|
|
Top = 244
|
|
Width = 100
|
|
Height = 25
|
|
Anchors = [akRight, akBottom]
|
|
Caption = 'Grant Privileges'
|
|
Enabled = False
|
|
TabOrder = 3
|
|
Visible = False
|
|
OnClick = ButtonSetClick
|
|
end
|
|
object ButtonSelectPrivileges: TButton
|
|
Left = 72
|
|
Top = 136
|
|
Width = 113
|
|
Height = 25
|
|
Caption = 'Specify Privileges'
|
|
TabOrder = 4
|
|
OnClick = ButtonSelectPrivilegesClick
|
|
end
|
|
object ButtonRevoke: TButton
|
|
Left = 136
|
|
Top = 274
|
|
Width = 100
|
|
Height = 25
|
|
Anchors = [akRight, akBottom]
|
|
Caption = 'Revoke Privileges'
|
|
TabOrder = 5
|
|
OnClick = ButtonRevokeClick
|
|
end
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 280
|
|
Height = 311
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
BorderWidth = 5
|
|
Caption = 'Panel2'
|
|
TabOrder = 1
|
|
object Label2: TLabel
|
|
Left = 5
|
|
Top = 5
|
|
Width = 270
|
|
Height = 13
|
|
Align = alTop
|
|
Caption = 'Registered users:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object TreeViewUsers: TTreeView
|
|
Left = 5
|
|
Top = 18
|
|
Width = 270
|
|
Height = 253
|
|
Align = alClient
|
|
Anchors = [akLeft, akTop, akBottom]
|
|
ChangeDelay = 50
|
|
HotTrack = True
|
|
Images = MainForm.ImageList1
|
|
Indent = 19
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
OnChange = TreeViewUsersChange
|
|
OnDblClick = TreeViewUsersDblClick
|
|
end
|
|
object Panel4: TPanel
|
|
Left = 5
|
|
Top = 271
|
|
Width = 270
|
|
Height = 35
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
object ButtonEditUser: TButton
|
|
Left = 0
|
|
Top = 8
|
|
Width = 105
|
|
Height = 25
|
|
Caption = 'Edit User...'
|
|
Enabled = False
|
|
TabOrder = 0
|
|
OnClick = ButtonEditUserClick
|
|
end
|
|
object Button1: TButton
|
|
Left = 112
|
|
Top = 8
|
|
Width = 105
|
|
Height = 25
|
|
Caption = 'Refresh'
|
|
TabOrder = 1
|
|
OnClick = Button1Click
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object Panel3: TPanel
|
|
Left = 0
|
|
Top = 343
|
|
Width = 533
|
|
Height = 37
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
DesignSize = (
|
|
533
|
|
37)
|
|
object ButtonClose: TButton
|
|
Left = 456
|
|
Top = 8
|
|
Width = 75
|
|
Height = 25
|
|
Anchors = [akTop, akRight]
|
|
Cancel = True
|
|
Caption = 'Close'
|
|
TabOrder = 0
|
|
OnClick = ButtonCloseClick
|
|
end
|
|
object ButtonAddUser: TButton
|
|
Left = 368
|
|
Top = 8
|
|
Width = 75
|
|
Height = 25
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Add User'
|
|
Default = True
|
|
TabOrder = 1
|
|
OnClick = ButtonAddUserClick
|
|
end
|
|
end
|
|
end
|