mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2025-08-06 18:24:26 +08:00
446 lines
12 KiB
Plaintext
446 lines
12 KiB
Plaintext
object frmRoutineEditor: TfrmRoutineEditor
|
|
Left = 0
|
|
Top = 0
|
|
Width = 700
|
|
Height = 500
|
|
TabOrder = 0
|
|
DesignSize = (
|
|
700
|
|
500)
|
|
object lblSQLcode: TLabel
|
|
AlignWithMargins = True
|
|
Left = 3
|
|
Top = 183
|
|
Width = 694
|
|
Height = 13
|
|
Align = alTop
|
|
Caption = 'Routine body:'
|
|
FocusControl = SynMemoBody
|
|
end
|
|
object lblDisabledWhy: TLabel
|
|
Left = 256
|
|
Top = 476
|
|
Width = 177
|
|
Height = 13
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'You have no privilege to this routine.'
|
|
Visible = False
|
|
end
|
|
object spltTop: TSplitter
|
|
Left = 0
|
|
Top = 172
|
|
Width = 700
|
|
Height = 8
|
|
Cursor = crSizeNS
|
|
Align = alTop
|
|
ResizeStyle = rsUpdate
|
|
end
|
|
object btnSave: TButton
|
|
Left = 165
|
|
Top = 471
|
|
Width = 75
|
|
Height = 25
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Save'
|
|
Default = True
|
|
TabOrder = 4
|
|
OnClick = btnSaveClick
|
|
end
|
|
object btnDiscard: TButton
|
|
Left = 84
|
|
Top = 471
|
|
Width = 75
|
|
Height = 25
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Discard'
|
|
ModalResult = 2
|
|
TabOrder = 3
|
|
OnClick = btnDiscardClick
|
|
end
|
|
object btnHelp: TButton
|
|
Left = 3
|
|
Top = 471
|
|
Width = 75
|
|
Height = 25
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Help'
|
|
TabOrder = 2
|
|
OnClick = btnHelpClick
|
|
end
|
|
object SynMemoBody: TSynMemo
|
|
AlignWithMargins = True
|
|
Left = 3
|
|
Top = 202
|
|
Width = 694
|
|
Height = 258
|
|
Margins.Bottom = 40
|
|
SingleLineMode = False
|
|
Align = alClient
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Courier New'
|
|
Font.Style = []
|
|
TabOrder = 1
|
|
OnDragDrop = SynMemoBodyDragDrop
|
|
OnDragOver = SynMemoBodyDragOver
|
|
CodeFolding.GutterShapeSize = 11
|
|
CodeFolding.CollapsedLineColor = clGrayText
|
|
CodeFolding.FolderBarLinesColor = clGrayText
|
|
CodeFolding.IndentGuidesColor = clGray
|
|
CodeFolding.IndentGuides = True
|
|
CodeFolding.ShowCollapsedLine = False
|
|
CodeFolding.ShowHintMark = True
|
|
UseCodeFolding = False
|
|
Gutter.AutoSize = True
|
|
Gutter.DigitCount = 2
|
|
Gutter.Font.Charset = DEFAULT_CHARSET
|
|
Gutter.Font.Color = clWindowText
|
|
Gutter.Font.Height = -11
|
|
Gutter.Font.Name = 'Courier New'
|
|
Gutter.Font.Style = []
|
|
Gutter.LeftOffset = 2
|
|
Gutter.ShowLineNumbers = True
|
|
Highlighter = MainForm.SynSQLSynUsed
|
|
Lines.Strings = (
|
|
'SynMemoBody')
|
|
RightEdge = 0
|
|
TabWidth = 3
|
|
WantTabs = True
|
|
OnChange = Modification
|
|
FontSmoothing = fsmNone
|
|
RemovedKeystrokes = <
|
|
item
|
|
Command = ecDeleteLine
|
|
ShortCut = 16473
|
|
end>
|
|
AddedKeystrokes = <
|
|
item
|
|
Command = ecRedo
|
|
ShortCut = 16473
|
|
end>
|
|
end
|
|
object PageControlMain: TPageControl
|
|
AlignWithMargins = True
|
|
Left = 3
|
|
Top = 3
|
|
Width = 694
|
|
Height = 166
|
|
ActivePage = tabOptions
|
|
Align = alTop
|
|
Constraints.MinHeight = 166
|
|
Images = MainForm.VirtualImageListMain
|
|
TabOrder = 0
|
|
OnChange = PageControlMainChange
|
|
object tabOptions: TTabSheet
|
|
Caption = 'Options'
|
|
ImageIndex = 39
|
|
ImageName = 'icons8-support'
|
|
DesignSize = (
|
|
686
|
|
137)
|
|
object lblName: TLabel
|
|
Left = 3
|
|
Top = 11
|
|
Width = 31
|
|
Height = 13
|
|
Caption = '&Name:'
|
|
FocusControl = editName
|
|
end
|
|
object lblType: TLabel
|
|
Left = 3
|
|
Top = 65
|
|
Width = 28
|
|
Height = 13
|
|
Caption = '&Type:'
|
|
FocusControl = comboType
|
|
end
|
|
object lblReturns: TLabel
|
|
Left = 3
|
|
Top = 90
|
|
Width = 42
|
|
Height = 13
|
|
Caption = '&Returns:'
|
|
FocusControl = comboReturns
|
|
end
|
|
object lblSQL: TLabel
|
|
Left = 408
|
|
Top = 65
|
|
Width = 62
|
|
Height = 13
|
|
Caption = '&Data access:'
|
|
FocusControl = comboDataAccess
|
|
end
|
|
object lblSecurity: TLabel
|
|
Left = 408
|
|
Top = 90
|
|
Width = 65
|
|
Height = 13
|
|
Caption = 'SQL Se&curity:'
|
|
FocusControl = comboSecurity
|
|
end
|
|
object lblComment: TLabel
|
|
Left = 3
|
|
Top = 38
|
|
Width = 49
|
|
Height = 13
|
|
Caption = '&Comment:'
|
|
FocusControl = editComment
|
|
end
|
|
object lblDefiner: TLabel
|
|
Left = 408
|
|
Top = 11
|
|
Width = 39
|
|
Height = 13
|
|
Caption = 'De&finer:'
|
|
end
|
|
object chkDeterministic: TCheckBox
|
|
Left = 84
|
|
Top = 114
|
|
Width = 602
|
|
Height = 17
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Caption = '&Deterministic'
|
|
TabOrder = 7
|
|
OnClick = Modification
|
|
end
|
|
object editComment: TEdit
|
|
Left = 84
|
|
Top = 35
|
|
Width = 599
|
|
Height = 21
|
|
Anchors = [akLeft, akTop, akRight]
|
|
TabOrder = 2
|
|
Text = 'editComment'
|
|
OnChange = Modification
|
|
end
|
|
object comboSecurity: TComboBox
|
|
Left = 489
|
|
Top = 87
|
|
Width = 194
|
|
Height = 21
|
|
Style = csDropDownList
|
|
Anchors = [akLeft, akTop, akRight]
|
|
TabOrder = 6
|
|
OnChange = Modification
|
|
end
|
|
object comboDataAccess: TComboBox
|
|
Left = 489
|
|
Top = 62
|
|
Width = 194
|
|
Height = 21
|
|
Style = csDropDownList
|
|
Anchors = [akLeft, akTop, akRight]
|
|
TabOrder = 5
|
|
OnChange = Modification
|
|
end
|
|
object comboReturns: TComboBox
|
|
Left = 84
|
|
Top = 87
|
|
Width = 310
|
|
Height = 21
|
|
TabOrder = 4
|
|
Text = 'comboReturns'
|
|
OnChange = Modification
|
|
end
|
|
object comboType: TComboBox
|
|
Left = 84
|
|
Top = 62
|
|
Width = 310
|
|
Height = 21
|
|
Style = csDropDownList
|
|
TabOrder = 3
|
|
OnSelect = comboTypeSelect
|
|
end
|
|
object editName: TEdit
|
|
Left = 84
|
|
Top = 8
|
|
Width = 310
|
|
Height = 21
|
|
TabOrder = 0
|
|
Text = 'editName'
|
|
TextHint = 'Enter routine name'
|
|
OnChange = Modification
|
|
end
|
|
object comboDefiner: TComboBox
|
|
Left = 489
|
|
Top = 8
|
|
Width = 194
|
|
Height = 21
|
|
Anchors = [akLeft, akTop, akRight]
|
|
TabOrder = 1
|
|
Text = 'comboDefiner'
|
|
OnChange = Modification
|
|
OnDropDown = comboDefinerDropDown
|
|
end
|
|
end
|
|
object tabParameters: TTabSheet
|
|
Caption = 'Parameters'
|
|
ImageIndex = 122
|
|
ImageName = 'icons8-refresh'
|
|
object listParameters: TVirtualStringTree
|
|
Left = 82
|
|
Top = 0
|
|
Width = 604
|
|
Height = 137
|
|
Align = alClient
|
|
DragImageKind = diMainColumnOnly
|
|
DragMode = dmAutomatic
|
|
DragType = dtVCL
|
|
EditDelay = 0
|
|
Header.AutoSizeIndex = 1
|
|
Header.MainColumn = 1
|
|
Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoVisible, hoDisableAnimatedResize, hoAutoResizeInclCaption]
|
|
Header.PopupMenu = MainForm.popupListHeader
|
|
Images = MainForm.VirtualImageListMain
|
|
NodeDataSize = 0
|
|
TabOrder = 0
|
|
TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick]
|
|
TreeOptions.PaintOptions = [toHideFocusRect, toHotTrack, toShowButtons, toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toFullVertGridLines, toUseExplorerTheme]
|
|
TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect]
|
|
OnBeforePaint = listParametersBeforePaint
|
|
OnCreateEditor = listParametersCreateEditor
|
|
OnEditing = listParametersEditing
|
|
OnFocusChanged = listParametersFocusChanged
|
|
OnGetText = listParametersGetText
|
|
OnPaintText = listParametersPaintText
|
|
OnGetImageIndex = listParametersGetImageIndex
|
|
OnNewText = listParametersNewText
|
|
Touch.InteractiveGestures = [igPan, igPressAndTap]
|
|
Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough]
|
|
Columns = <
|
|
item
|
|
Position = 0
|
|
Text = '#'
|
|
end
|
|
item
|
|
Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus]
|
|
Position = 1
|
|
Text = 'Name'
|
|
Width = 390
|
|
end
|
|
item
|
|
Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus]
|
|
Position = 2
|
|
Text = 'Datatype'
|
|
Width = 90
|
|
end
|
|
item
|
|
Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus]
|
|
Position = 3
|
|
Text = 'Context'
|
|
Width = 70
|
|
end>
|
|
end
|
|
object tlbParameters: TToolBar
|
|
Left = 0
|
|
Top = 0
|
|
Width = 82
|
|
Height = 137
|
|
Align = alLeft
|
|
AutoSize = True
|
|
ButtonWidth = 82
|
|
Caption = 'tlbParameters'
|
|
Images = MainForm.VirtualImageListMain
|
|
List = True
|
|
ShowCaptions = True
|
|
TabOrder = 1
|
|
object btnAddParam: TToolButton
|
|
Left = 0
|
|
Top = 0
|
|
Caption = 'Add'
|
|
ImageIndex = 45
|
|
ImageName = 'icons8-add'
|
|
Wrap = True
|
|
OnClick = btnAddParamClick
|
|
end
|
|
object btnRemoveParam: TToolButton
|
|
Left = 0
|
|
Top = 22
|
|
Caption = 'Remove'
|
|
Enabled = False
|
|
ImageIndex = 46
|
|
ImageName = 'icons8-delete-button'
|
|
Wrap = True
|
|
OnClick = btnRemoveParamClick
|
|
end
|
|
object btnClearParams: TToolButton
|
|
Left = 0
|
|
Top = 44
|
|
Caption = 'Clear'
|
|
ImageIndex = 26
|
|
ImageName = 'icons8-close-button'
|
|
Wrap = True
|
|
OnClick = btnClearParamsClick
|
|
end
|
|
object btnMoveUpParam: TToolButton
|
|
Left = 0
|
|
Top = 66
|
|
Caption = 'Move up'
|
|
Enabled = False
|
|
ImageIndex = 74
|
|
ImageName = 'icons8-sort-up'
|
|
Wrap = True
|
|
OnClick = btnMoveParamClick
|
|
end
|
|
object btnMoveDownParam: TToolButton
|
|
Left = 0
|
|
Top = 88
|
|
Caption = 'Move down'
|
|
Enabled = False
|
|
ImageIndex = 75
|
|
ImageName = 'icons8-caret-arrowhead-facing-down'
|
|
OnClick = btnMoveParamClick
|
|
end
|
|
end
|
|
end
|
|
object tabCreateCode: TTabSheet
|
|
Caption = 'CREATE code'
|
|
ImageIndex = 119
|
|
ImageName = 'icons8-source-code-other'
|
|
object SynMemoCREATEcode: TSynMemo
|
|
Left = 0
|
|
Top = 0
|
|
Width = 686
|
|
Height = 137
|
|
SingleLineMode = False
|
|
Align = alClient
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Courier New'
|
|
Font.Style = []
|
|
TabOrder = 0
|
|
CodeFolding.GutterShapeSize = 11
|
|
CodeFolding.CollapsedLineColor = clGrayText
|
|
CodeFolding.FolderBarLinesColor = clGrayText
|
|
CodeFolding.IndentGuidesColor = clGray
|
|
CodeFolding.IndentGuides = True
|
|
CodeFolding.ShowCollapsedLine = False
|
|
CodeFolding.ShowHintMark = True
|
|
UseCodeFolding = False
|
|
Gutter.Font.Charset = DEFAULT_CHARSET
|
|
Gutter.Font.Color = clWindowText
|
|
Gutter.Font.Height = -11
|
|
Gutter.Font.Name = 'Courier New'
|
|
Gutter.Font.Style = []
|
|
Highlighter = MainForm.SynSQLSynUsed
|
|
Lines.Strings = (
|
|
'SynMemoCREATEcode')
|
|
ReadOnly = True
|
|
FontSmoothing = fsmNone
|
|
end
|
|
end
|
|
end
|
|
object btnRunProc: TButton
|
|
Left = 533
|
|
Top = 471
|
|
Width = 164
|
|
Height = 25
|
|
Action = MainForm.actRunRoutines
|
|
Anchors = [akRight, akBottom]
|
|
Images = MainForm.VirtualImageListMain
|
|
TabOrder = 5
|
|
end
|
|
end
|