Files
HeidiSQL/source/childwin.dfm

2001 lines
62 KiB
Plaintext

object MDIChild: TMDIChild
Left = 646
Top = 110
Caption = 'MySQL-Host'
ClientHeight = 420
ClientWidth = 677
Color = clBtnFace
Constraints.MinHeight = 200
Constraints.MinWidth = 300
ParentFont = True
FormStyle = fsMDIChild
OldCreateOrder = True
Position = poDefault
Visible = True
WindowState = wsMaximized
OnActivate = FormActivate
OnClose = FormClose
OnResize = FormResize
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object splitterTopBottom: TSplitter
Left = 0
Top = 336
Width = 677
Height = 4
Cursor = crSizeNS
Align = alBottom
AutoSnap = False
ResizeStyle = rsUpdate
end
object panelTop: TPanel
Left = 0
Top = 0
Width = 677
Height = 336
Align = alClient
AutoSize = True
BevelOuter = bvNone
TabOrder = 0
object Splitter1: TSplitter
Left = 169
Top = 0
Width = 4
Height = 336
Cursor = crSizeWE
ResizeStyle = rsUpdate
end
object DBtree: TVirtualStringTree
Left = 0
Top = 0
Width = 169
Height = 336
Align = alLeft
Constraints.MinWidth = 40
DragMode = dmAutomatic
DragType = dtVCL
Header.AutoSizeIndex = 0
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.Options = [hoAutoResize, hoColumnResize, hoDrag]
HintMode = hmTooltip
HotCursor = crHandPoint
Images = MainForm.PngImageListMain
IncrementalSearch = isInitializedOnly
Indent = 16
ParentShowHint = False
PopupMenu = popupTreeView
ShowHint = True
TabOrder = 0
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoTristateTracking, toAutoDeleteMovedNodes]
TreeOptions.PaintOptions = [toHotTrack, toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages]
TreeOptions.SelectionOptions = [toRightClickSelect]
OnChange = DBtreeChange
OnDblClick = DBtreeDblClick
OnGetText = DBtreeGetText
OnPaintText = DBtreePaintText
OnGetImageIndex = DBtreeGetImageIndex
OnGetHint = vstGetHint
OnGetNodeDataSize = DBtreeGetNodeDataSize
OnInitChildren = DBtreeInitChildren
OnInitNode = DBtreeInitNode
Columns = <
item
Position = 0
Width = 110
WideText = 'Name'
end
item
Alignment = taRightJustify
MinWidth = 0
Position = 1
Width = 55
WideText = 'Size'
end>
end
object PageControlMain: TPageControl
Left = 173
Top = 0
Width = 504
Height = 336
ActivePage = tabHost
Align = alClient
HotTrack = True
Images = MainForm.PngImageListMain
MultiLine = True
TabHeight = 22
TabOrder = 1
OnChange = pcChange
object tabHost: TTabSheet
Caption = 'Host'
ImageIndex = 1
object PageControlHost: TPageControl
Left = 0
Top = 0
Width = 496
Height = 304
ActivePage = tabVariables
Align = alClient
HotTrack = True
TabOrder = 0
OnChange = PageControlHostChange
object tabVariables: TTabSheet
Caption = 'Variables'
object ListVariables: TVirtualStringTree
Left = 0
Top = 25
Width = 488
Height = 251
Align = alClient
DragOperations = []
Header.AutoSizeIndex = 1
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.Height = 20
Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible]
Header.ParentFont = True
Header.SortColumn = 0
HintMode = hmTooltip
Images = MainForm.PngImageListMain
IncrementalSearch = isInitializedOnly
ParentShowHint = False
PopupMenu = popupHost
ShowHint = True
TabOrder = 0
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoSort, toAutoTristateTracking, toAutoDeleteMovedNodes]
TreeOptions.MiscOptions = [toToggleOnDblClick]
TreeOptions.PaintOptions = [toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages]
TreeOptions.SelectionOptions = [toFullRowSelect, toRightClickSelect]
OnBeforePaint = vstBeforePaint
OnCompareNodes = vstCompareNodes
OnDblClick = ListVariablesDblClick
OnFreeNode = vstFreeNode
OnGetText = vstGetText
OnGetImageIndex = vstGetImageIndex
OnGetHint = vstGetHint
OnGetNodeDataSize = vstGetNodeDataSize
OnHeaderClick = vstHeaderClick
OnInitNode = vstInitNode
Columns = <
item
Position = 0
Width = 160
WideText = 'Variable'
end
item
Position = 1
Width = 324
WideText = 'Value'
end>
end
object pnlFilterVariables: TPanel
Left = 0
Top = 0
Width = 488
Height = 25
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object lblFilterVariables: TLabel
Left = 1
Top = 4
Width = 28
Height = 13
Caption = 'Filter:'
end
object editFilterVariables: TEdit
Left = 34
Top = 1
Width = 154
Height = 21
TabOrder = 0
OnChange = editFilterVTChange
end
end
end
object tabStatus: TTabSheet
Caption = 'Status'
object ListStatus: TVirtualStringTree
Left = 0
Top = 25
Width = 488
Height = 251
Align = alClient
DragOperations = []
Header.AutoSizeIndex = 1
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.Height = 20
Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible]
Header.ParentFont = True
Header.SortColumn = 0
HintMode = hmTooltip
Images = MainForm.PngImageListMain
IncrementalSearch = isInitializedOnly
ParentShowHint = False
PopupMenu = popupHost
ShowHint = True
TabOrder = 0
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoSort, toAutoTristateTracking, toAutoDeleteMovedNodes]
TreeOptions.MiscOptions = [toToggleOnDblClick]
TreeOptions.PaintOptions = [toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages]
TreeOptions.SelectionOptions = [toFullRowSelect, toRightClickSelect]
OnBeforePaint = vstBeforePaint
OnCompareNodes = vstCompareNodes
OnFreeNode = vstFreeNode
OnGetText = vstGetText
OnGetImageIndex = vstGetImageIndex
OnGetHint = vstGetHint
OnGetNodeDataSize = vstGetNodeDataSize
OnHeaderClick = vstHeaderClick
OnInitNode = vstInitNode
Columns = <
item
Position = 0
Width = 160
WideText = 'Variable'
end
item
Alignment = taRightJustify
Position = 1
Width = 124
WideText = 'Value'
end
item
Alignment = taRightJustify
Position = 2
Width = 100
WideText = 'Avg per hour'
end
item
Alignment = taRightJustify
Position = 3
Width = 100
WideText = 'Avg per second'
end>
end
object pnlFilterStatus: TPanel
Left = 0
Top = 0
Width = 488
Height = 25
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object lblFilterStatus: TLabel
Left = 1
Top = 4
Width = 28
Height = 13
Caption = 'Filter:'
end
object editFilterStatus: TEdit
Left = 34
Top = 1
Width = 154
Height = 21
TabOrder = 0
OnChange = editFilterVTChange
end
end
end
object tabProcessList: TTabSheet
Caption = 'Process-List'
ImageIndex = 1
object Splitter3: TSplitter
Left = 0
Top = 203
Width = 488
Height = 4
Cursor = crSizeNS
Align = alBottom
ResizeStyle = rsUpdate
end
object ListProcesses: TVirtualStringTree
Left = 0
Top = 25
Width = 488
Height = 178
Align = alClient
Header.AutoSizeIndex = 7
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.Height = 20
Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible]
Header.ParentFont = True
Header.SortColumn = 0
Header.SortDirection = sdDescending
HintMode = hmTooltip
Images = MainForm.PngImageListMain
IncrementalSearch = isInitializedOnly
ParentShowHint = False
PopupMenu = popupHost
ShowHint = True
TabOrder = 0
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoSort, toAutoTristateTracking, toAutoDeleteMovedNodes]
TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
TreeOptions.PaintOptions = [toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages]
TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect, toRightClickSelect]
OnBeforePaint = vstBeforePaint
OnChange = ListProcessesChange
OnCompareNodes = vstCompareNodes
OnFreeNode = vstFreeNode
OnGetText = vstGetText
OnGetImageIndex = vstGetImageIndex
OnGetHint = vstGetHint
OnGetNodeDataSize = vstGetNodeDataSize
OnHeaderClick = vstHeaderClick
OnInitNode = vstInitNode
Columns = <
item
Alignment = taRightJustify
Position = 0
Width = 70
WideText = 'id'
end
item
Position = 1
Width = 80
WideText = 'User'
end
item
Position = 2
Width = 80
WideText = 'Host'
end
item
Position = 3
Width = 80
WideText = 'DB'
end
item
Position = 4
Width = 80
WideText = 'Command'
end
item
Position = 5
WideText = 'Time'
end
item
Position = 6
WideText = 'State'
end
item
Position = 7
Width = 10
WideText = 'Info'
end>
end
object pnlProcessViewBox: TPanel
Left = 0
Top = 207
Width = 488
Height = 69
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
object pnlProcessView: TPanel
Left = 0
Top = 0
Width = 488
Height = 15
Align = alTop
Alignment = taLeftJustify
BevelOuter = bvNone
Caption = 'Process SQL:'
TabOrder = 0
end
object SynMemoProcessView: TSynMemo
Left = 0
Top = 15
Width = 488
Height = 54
SingleLineMode = False
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
TabOrder = 1
Gutter.Font.Charset = DEFAULT_CHARSET
Gutter.Font.Color = clWindowText
Gutter.Font.Height = -11
Gutter.Font.Name = 'Courier New'
Gutter.Font.Style = []
Gutter.LeftOffset = 0
Gutter.ShowLineNumbers = True
Highlighter = SynSQLSyn1
Options = [eoAutoIndent, eoDragDropEditing, eoEnhanceEndKey, eoGroupUndo, eoShowScrollHint, eoSmartTabDelete, eoSmartTabs, eoTabsToSpaces]
ReadOnly = True
WordWrap = True
end
end
object pnlFilterProcesses: TPanel
Left = 0
Top = 0
Width = 488
Height = 25
Align = alTop
BevelOuter = bvNone
TabOrder = 2
object lblFilterProcesses: TLabel
Left = 1
Top = 4
Width = 28
Height = 13
Caption = 'Filter:'
end
object editFilterProcesses: TEdit
Left = 34
Top = 1
Width = 154
Height = 21
TabOrder = 0
OnChange = editFilterVTChange
end
end
end
object tabCommandStats: TTabSheet
Caption = 'Command-Statistics'
ImageIndex = 2
object ListCommandStats: TVirtualStringTree
Left = 0
Top = 0
Width = 488
Height = 276
Align = alClient
Header.AutoSizeIndex = 4
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.Height = 20
Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible]
Header.ParentFont = True
Header.SortColumn = 1
Header.SortDirection = sdDescending
HintMode = hmTooltip
Images = MainForm.PngImageListMain
IncrementalSearch = isInitializedOnly
ParentShowHint = False
PopupMenu = popupHost
ShowHint = True
TabOrder = 0
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoSort, toAutoTristateTracking, toAutoDeleteMovedNodes]
TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages]
TreeOptions.SelectionOptions = [toFullRowSelect]
OnBeforeCellPaint = ListCommandStatsBeforeCellPaint
OnBeforePaint = vstBeforePaint
OnCompareNodes = vstCompareNodes
OnFreeNode = vstFreeNode
OnGetText = vstGetText
OnGetImageIndex = vstGetImageIndex
OnGetHint = vstGetHint
OnGetNodeDataSize = vstGetNodeDataSize
OnHeaderClick = vstHeaderClick
OnInitNode = vstInitNode
Columns = <
item
Position = 0
Width = 120
WideText = 'Command-type'
end
item
Alignment = taRightJustify
Position = 1
Width = 100
WideText = 'Total count'
end
item
Alignment = taRightJustify
Position = 2
Width = 100
WideText = 'Average per hour'
end
item
Alignment = taRightJustify
Position = 3
Width = 100
WideText = 'Average per second'
end
item
Position = 4
Width = 68
WideText = 'Percentage'
end>
end
end
end
end
object tabDatabase: TTabSheet
Caption = 'Database'
ImageIndex = 5
object ListTables: TVirtualStringTree
Left = 0
Top = 0
Width = 496
Height = 304
Align = alClient
EditDelay = 500
Header.AutoSizeIndex = -1
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.Height = 20
Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible]
Header.ParentFont = True
Header.PopupMenu = popupDbGridHeader
Header.SortColumn = 0
HintMode = hmTooltip
Images = MainForm.PngImageListMain
IncrementalSearch = isInitializedOnly
ParentShowHint = False
PopupMenu = popupDbGrid
ShowHint = True
TabOrder = 0
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoSort, toAutoTristateTracking, toAutoDeleteMovedNodes]
TreeOptions.MiscOptions = [toEditable, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
TreeOptions.PaintOptions = [toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages]
TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect, toRightClickSelect]
OnBeforePaint = vstBeforePaint
OnChange = ListTablesChange
OnCompareNodes = vstCompareNodes
OnDblClick = ListTablesDblClick
OnFreeNode = vstFreeNode
OnGetText = vstGetText
OnGetImageIndex = vstGetImageIndex
OnGetHint = vstGetHint
OnGetNodeDataSize = vstGetNodeDataSize
OnHeaderClick = vstHeaderClick
OnHeaderDraggedOut = vstHeaderDraggedOut
OnInitNode = vstInitNode
OnNewText = ListTablesNewText
Columns = <
item
Position = 0
Width = 120
WideText = 'Name'
end
item
Alignment = taRightJustify
Position = 1
Width = 70
WideText = 'Rows'
end
item
Alignment = taRightJustify
Position = 2
Width = 70
WideText = 'Size'
end
item
Position = 3
Width = 120
WideText = 'Created'
end
item
Position = 4
Width = 120
WideText = 'Updated'
end
item
Position = 5
Width = 70
WideText = 'Engine'
end
item
Position = 6
Width = 100
WideText = 'Comment'
end
item
Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark]
Position = 7
WideText = 'Version'
end
item
Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark]
Position = 8
Width = 70
WideText = 'Row format'
end
item
Alignment = taRightJustify
Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark]
Position = 9
Width = 70
WideText = 'Avg row length'
end
item
Alignment = taRightJustify
Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark]
Position = 10
Width = 70
WideText = 'Max data length'
end
item
Alignment = taRightJustify
Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark]
Position = 11
Width = 70
WideText = 'Index length'
end
item
Alignment = taRightJustify
Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark]
Position = 12
Width = 70
WideText = 'Data free'
end
item
Alignment = taRightJustify
Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark]
Position = 13
Width = 90
WideText = 'Auto increment'
end
item
Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark]
Position = 14
Width = 120
WideText = 'Check time'
end
item
Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark]
Position = 15
Width = 70
WideText = 'Collation'
end
item
Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark]
Position = 16
Width = 70
WideText = 'Checksum'
end
item
Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark]
Position = 17
Width = 70
WideText = 'Create options'
end
item
Position = 18
WideText = 'Type'
end>
end
end
object tabTable: TTabSheet
Caption = 'Table'
ImageIndex = 14
object ListColumns: TVirtualStringTree
Left = 0
Top = 0
Width = 496
Height = 304
Align = alClient
EditDelay = 500
Header.AutoSizeIndex = -1
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.Height = 20
Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible]
Header.ParentFont = True
HintMode = hmTooltip
Images = MainForm.PngImageListMain
IncrementalSearch = isInitializedOnly
ParentShowHint = False
PopupMenu = popupTableGrid
ShowHint = True
TabOrder = 0
TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
TreeOptions.PaintOptions = [toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages]
TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect, toRightClickSelect]
OnBeforePaint = vstBeforePaint
OnChange = ListColumnsChange
OnCompareNodes = vstCompareNodes
OnDblClick = ListColumnsDblClick
OnFreeNode = vstFreeNode
OnGetText = vstGetText
OnGetImageIndex = vstGetImageIndex
OnGetHint = vstGetHint
OnGetNodeDataSize = vstGetNodeDataSize
OnHeaderClick = vstHeaderClick
OnInitNode = vstInitNode
OnKeyUp = controlsKeyUp
OnNewText = ListColumnsNewText
Columns = <
item
Position = 0
Width = 120
WideText = 'Name'
end
item
Position = 1
Width = 120
WideText = 'Type'
end
item
Position = 2
Width = 40
WideText = 'Null'
end
item
Position = 3
Width = 115
WideText = 'Default'
end
item
Position = 4
Width = 80
WideText = 'Extra'
end
item
Position = 5
Width = 120
WideText = 'Comment'
end>
end
end
object tabData: TTabSheet
Caption = 'Data'
ImageIndex = 41
object pnlDataTop: TPanel
Left = 0
Top = 0
Width = 496
Height = 25
Align = alTop
Alignment = taLeftJustify
BevelOuter = bvNone
BorderWidth = 1
TabOrder = 0
object lblDataTop: TTntLabel
Left = 1
Top = 1
Width = 220
Height = 23
Align = alLeft
Anchors = [akLeft, akTop, akRight, akBottom]
AutoSize = False
Caption = 'Data'
Layout = tlCenter
WordWrap = True
end
object tlbDataButtons: TToolBar
Left = 163
Top = 1
Width = 332
Height = 23
Align = alRight
AutoSize = True
ButtonWidth = 83
Caption = 'tlbDataButtons'
Images = MainForm.PngImageListMain
List = True
ShowCaptions = True
TabOrder = 0
Wrapable = False
object tbtnDataSorting: TToolButton
Left = 0
Top = 0
AllowAllUp = True
Caption = 'Sorting'
ImageIndex = 107
Style = tbsTextButton
OnClick = btnDataClick
end
object tbtnDataColumns: TToolButton
Left = 83
Top = 0
AllowAllUp = True
Caption = 'Columns'
ImageIndex = 107
Style = tbsTextButton
OnClick = btnDataClick
end
object tbtnDataFilter: TToolButton
Left = 166
Top = 0
AllowAllUp = True
Caption = 'Filter'
ImageIndex = 107
OnClick = btnDataClick
end
object tbtnDataView: TToolButton
Left = 249
Top = 0
Caption = 'Perspective'
DropdownMenu = popupDataView
ImageIndex = 112
end
end
end
object pnlFilter: TPanel
Left = 0
Top = 25
Width = 496
Height = 66
Align = alTop
BevelOuter = bvNone
TabOrder = 1
Visible = False
DesignSize = (
496
66)
object lblTableFilter: TLabel
Left = 339
Top = 0
Width = 114
Height = 13
Anchors = [akTop, akRight]
Caption = 'Create table wide filter:'
end
object btnFilterApply: TButton
Left = 339
Top = 41
Width = 76
Height = 22
Action = MainForm.actApplyFilter
Anchors = [akTop, akRight]
TabOrder = 2
end
object btnFilterClear: TButton
Left = 419
Top = 41
Width = 76
Height = 22
Action = MainForm.actClearFilterEditor
Anchors = [akTop, akRight]
TabOrder = 3
end
object SynMemoFilter: TSynMemo
Left = 0
Top = 0
Width = 335
Height = 63
SingleLineMode = False
Anchors = [akLeft, akTop, akRight, akBottom]
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
PopupMenu = popupFilter
TabOrder = 0
OnKeyUp = controlsKeyUp
Gutter.Font.Charset = DEFAULT_CHARSET
Gutter.Font.Color = clWindowText
Gutter.Font.Height = -11
Gutter.Font.Name = 'Terminal'
Gutter.Font.Style = []
Gutter.LeftOffset = 10
Gutter.RightOffset = 0
Gutter.ShowLineNumbers = True
Gutter.Visible = False
Gutter.Width = 0
Highlighter = SynSQLSyn1
Options = [eoAutoIndent, eoDragDropEditing, eoDropFiles, eoGroupUndo, eoHideShowScrollbars, eoKeepCaretX, eoShowScrollHint, eoTabIndent]
RightEdge = 0
ScrollBars = ssVertical
WantTabs = True
WordWrap = True
OnChange = SynMemoFilterChange
RemovedKeystrokes = <
item
Command = ecDeleteLastChar
ShortCut = 8200
end
item
Command = ecLineBreak
ShortCut = 8205
end
item
Command = ecContextHelp
ShortCut = 112
end
item
Command = ecDeleteLine
ShortCut = 16473
end>
AddedKeystrokes = <>
end
object editFilterSearch: TEdit
Left = 339
Top = 15
Width = 156
Height = 21
Anchors = [akTop, akRight]
TabOrder = 1
OnChange = editFilterSearchChange
OnEnter = editFilterSearchEnter
OnExit = editFilterSearchExit
end
end
object DataGrid: TVirtualStringTree
Left = 0
Top = 91
Width = 496
Height = 213
Align = alClient
EditDelay = 0
Header.AutoSizeIndex = -1
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.Height = 20
Header.Images = MainForm.PngImageListMain
Header.MainColumn = -1
Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowHint, hoShowImages]
Header.ParentFont = True
IncrementalSearch = isInitializedOnly
LineStyle = lsSolid
PopupMenu = popupDataGrid
TabOrder = 2
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes, toDisableAutoscrollOnFocus, toDisableAutoscrollOnEdit]
TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning]
TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toAlwaysHideSelection]
TreeOptions.SelectionOptions = [toExtendedFocus, toMultiSelect, toRightClickSelect]
WantTabs = True
OnAfterCellPaint = DataGridAfterCellPaint
OnBeforeCellPaint = GridBeforeCellPaint
OnChange = DataGridChange
OnColumnResize = DataGridColumnResize
OnCreateEditor = DataGridCreateEditor
OnEditCancelled = DataGridEditCancelled
OnEdited = DataGridEdited
OnEditing = DataGridEditing
OnFocusChanging = DataGridFocusChanging
OnGetText = GridGetText
OnPaintText = GridPaintText
OnHeaderClick = DataGridHeaderClick
OnKeyDown = GridKeyDown
OnKeyUp = controlsKeyUp
OnNewText = DataGridNewText
Columns = <>
end
end
object tabQuery: TTabSheet
Caption = 'Query'
ImageIndex = 57
object spltQuery: TSplitter
Left = 0
Top = 96
Width = 496
Height = 4
Cursor = crSizeNS
Align = alTop
ResizeStyle = rsUpdate
end
object LabelResultinfo: TLabel
Left = 0
Top = 117
Width = 496
Height = 13
Align = alTop
end
object pnlQueryMemo: TPanel
Left = 0
Top = 0
Width = 496
Height = 96
Align = alTop
BevelOuter = bvNone
Constraints.MinHeight = 10
TabOrder = 0
OnCanResize = pnlQueryMemoCanResize
object spltQueryHelpers: TSplitter
Left = 332
Top = 0
Width = 4
Height = 96
Cursor = crSizeWE
Align = alRight
ResizeStyle = rsUpdate
end
object SynMemoQuery: TSynMemo
Left = 0
Top = 0
Width = 332
Height = 96
SingleLineMode = False
Align = alClient
ActiveLineColor = clWindow
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
PopupMenu = popupQuery
TabOrder = 0
OnDragDrop = SynMemoQueryDragDrop
OnDragOver = SynMemoQueryDragOver
OnKeyUp = controlsKeyUp
Gutter.AutoSize = True
Gutter.Font.Charset = DEFAULT_CHARSET
Gutter.Font.Color = clWindowText
Gutter.Font.Height = -11
Gutter.Font.Name = 'Terminal'
Gutter.Font.Style = []
Gutter.LeftOffset = 10
Gutter.RightOffset = 0
Gutter.ShowLineNumbers = True
Highlighter = SynSQLSyn1
Options = [eoAutoIndent, eoDropFiles, eoGroupUndo, eoHideShowScrollbars, eoKeepCaretX, eoShowScrollHint, eoTabIndent]
RightEdge = 40
SearchEngine = SynEditSearch1
TabWidth = 2
WantTabs = True
OnDropFiles = SynMemoQueryDropFiles
OnStatusChange = SynMemoQueryStatusChange
RemovedKeystrokes = <
item
Command = ecDeleteLastChar
ShortCut = 8200
end
item
Command = ecLineBreak
ShortCut = 8205
end
item
Command = ecContextHelp
ShortCut = 112
end
item
Command = ecDeleteLine
ShortCut = 16473
end>
AddedKeystrokes = <>
end
object pnlQueryHelpers: TPanel
Left = 336
Top = 0
Width = 160
Height = 96
Align = alRight
BevelOuter = bvNone
TabOrder = 1
OnCanResize = pnlQueryHelpersCanResize
object tabsetQueryHelpers: TTabSet
Left = 0
Top = 72
Width = 160
Height = 24
Align = alBottom
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentShowHint = False
ShowHint = False
Style = tsModernTabs
Tabs.Strings = (
'Cols'
'SQL fn'
'SQL kw'
'Snippets')
TabIndex = 0
OnChange = tabsetQueryHelpersChange
end
object lboxQueryHelpers: TTntListBox
Left = 0
Top = 0
Width = 160
Height = 72
Align = alClient
DragMode = dmAutomatic
ItemHeight = 13
MultiSelect = True
PopupMenu = popupQueryHelpers
TabOrder = 1
OnClick = lboxQueryHelpersClick
OnDblClick = lboxQueryHelpersDblClick
OnKeyUp = controlsKeyUp
end
end
end
object ProgressBarQuery: TProgressBar
Left = 0
Top = 100
Width = 496
Height = 17
Align = alTop
Step = 1
TabOrder = 1
Visible = False
end
object QueryGrid: TVirtualStringTree
Left = 0
Top = 130
Width = 496
Height = 174
Align = alClient
EditDelay = 0
Header.AutoSizeIndex = -1
Header.Font.Charset = DEFAULT_CHARSET
Header.Font.Color = clWindowText
Header.Font.Height = -11
Header.Font.Name = 'Tahoma'
Header.Font.Style = []
Header.Height = 20
Header.MainColumn = -1
Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoShowHint]
Header.ParentFont = True
IncrementalSearch = isAll
LineStyle = lsSolid
PopupMenu = popupResultGrid
TabOrder = 2
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes, toDisableAutoscrollOnFocus, toDisableAutoscrollOnEdit]
TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning]
TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toAlwaysHideSelection]
TreeOptions.SelectionOptions = [toExtendedFocus, toMultiSelect, toRightClickSelect]
WantTabs = True
OnBeforeCellPaint = GridBeforeCellPaint
OnFocusChanging = QueryGridFocusChanging
OnGetText = GridGetText
OnPaintText = GridPaintText
OnKeyDown = GridKeyDown
OnKeyUp = controlsKeyUp
Columns = <>
end
end
end
end
object SynMemoSQLLog: TSynMemo
Left = 0
Top = 340
Width = 677
Height = 80
SingleLineMode = True
Align = alBottom
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Courier New'
Font.Style = []
PopupMenu = popupSqlLog
TabOrder = 1
OnKeyUp = controlsKeyUp
Gutter.AutoSize = True
Gutter.DigitCount = 2
Gutter.Font.Charset = DEFAULT_CHARSET
Gutter.Font.Color = clWindowText
Gutter.Font.Height = -11
Gutter.Font.Name = 'Terminal'
Gutter.Font.Style = []
Gutter.ShowLineNumbers = True
Highlighter = SynSQLSyn1
Options = [eoAutoIndent, eoDragDropEditing, eoHideShowScrollbars, eoShowScrollHint, eoSmartTabs, eoTabsToSpaces]
ReadOnly = True
RightEdge = -1
RemovedKeystrokes = <
item
Command = ecDeleteLastChar
ShortCut = 8200
end
item
Command = ecLineBreak
ShortCut = 8205
end
item
Command = ecContextHelp
ShortCut = 112
end
item
Command = ecDeleteLine
ShortCut = 16473
end>
AddedKeystrokes = <>
end
object popupTreeView: TPopupMenu
Images = MainForm.PngImageListMain
OnPopup = popupTreeViewPopup
Left = 8
Top = 16
object NewDatabase1: TMenuItem
Action = MainForm.actCreateDatabase
end
object menuAlterdatabase: TMenuItem
Action = MainForm.actEditDatabase
end
object PopupmenuDropDatabase: TMenuItem
Action = MainForm.actDropDatabase
end
object N17: TMenuItem
Caption = '-'
end
object PopupMenuCreateTable: TMenuItem
Action = MainForm.actCreateTable
end
object menuTreeAlterTable: TMenuItem
Action = MainForm.actEditTableProperties
end
object menuTreeCreateView: TMenuItem
Action = MainForm.actCreateView
end
object menuTreeEditView: TMenuItem
Action = MainForm.actEditView
end
object PopupMenuDropTable: TMenuItem
Action = MainForm.actDropTablesAndViews
end
object Exporttables2: TMenuItem
Action = MainForm.actExportTables
end
object N5: TMenuItem
Caption = '-'
end
object menuTreeExpandAll: TMenuItem
Caption = 'Expand all'
ImageIndex = 87
OnClick = menuTreeExpandAllClick
end
object menuTreeCollapseAll: TMenuItem
Caption = 'Collapse all'
ImageIndex = 88
OnClick = menuTreeCollapseAllClick
end
object menuShowSizeColumn: TMenuItem
Caption = 'Display size of objects'
OnClick = menuShowSizeColumnClick
end
object menuRefreshDBTree: TMenuItem
Caption = 'Refresh'
ImageIndex = 0
ShortCut = 116
OnClick = menuRefreshDBTreeClick
end
end
object popupDbGrid: TPopupMenu
AutoHotkeys = maManual
Images = MainForm.PngImageListMain
Left = 72
Top = 16
object menuproperties: TMenuItem
Action = MainForm.actEditTableFields
Default = True
end
object menuAlterTable: TMenuItem
Action = MainForm.actEditTableProperties
end
object actView1: TMenuItem
Action = MainForm.actEditView
end
object InsertfilesintoBLOBfields1: TMenuItem
Action = MainForm.actInsertFiles
end
object N2: TMenuItem
Caption = '-'
end
object menudroptable: TMenuItem
Action = MainForm.actDropTablesAndViews
end
object menuemptytable: TMenuItem
Action = MainForm.actEmptyTables
end
object MenuRenameTable: TMenuItem
Caption = 'Rename'
Enabled = False
ImageIndex = 33
ShortCut = 113
OnClick = MenuRenameTableClick
end
object menuMaintenance: TMenuItem
Action = MainForm.actMaintenance
end
object N18: TMenuItem
Caption = '-'
end
object MenuCopyTable: TMenuItem
Action = MainForm.actCopyTable
end
object menucreatetable: TMenuItem
Action = MainForm.actCreateTable
end
object Createview1: TMenuItem
Action = MainForm.actCreateView
end
object Exporttables1: TMenuItem
Action = MainForm.actExportTables
end
object N10: TMenuItem
Caption = '-'
end
object PrintList3: TMenuItem
Action = MainForm.actPrintList
end
object menurefresh: TMenuItem
Tag = 28
Caption = 'Refresh'
ImageIndex = 0
ShortCut = 116
OnClick = MenuRefreshClick
end
object selectall1: TMenuItem
Caption = 'select all'
ShortCut = 16449
Visible = False
OnClick = selectall1Click
end
end
object popupHost: TPopupMenu
Images = MainForm.PngImageListMain
OnPopup = popupHostPopup
Left = 41
Top = 16
object Kill1: TMenuItem
Caption = 'Kill Process(es)...'
Enabled = False
ImageIndex = 26
ShortCut = 46
OnClick = KillProcess
end
object MenuAutoupdate: TMenuItem
Caption = 'Auto-refresh'
object Set1: TMenuItem
Caption = 'Set interval...'
OnClick = Autoupdate1Click
end
object EnableAutoRefresh: TMenuItem
Caption = 'Active'
RadioItem = True
ShortCut = 16500
OnClick = EnableAutoRefreshClick
end
object DisableAutoRefresh: TMenuItem
Caption = 'Inactive'
Checked = True
RadioItem = True
ShortCut = 27
OnClick = DisableAutoRefreshClick
end
end
object menuEditVariable: TMenuItem
Caption = 'Edit ...'
ImageIndex = 33
ShortCut = 13
OnClick = menuEditVariableClick
end
object N1: TMenuItem
Caption = '-'
end
object PrintList2: TMenuItem
Action = MainForm.actPrintList
end
object Refresh1: TMenuItem
Tag = 28
Caption = 'Refresh'
ImageIndex = 0
ShortCut = 116
OnClick = ShowVariablesAndProcesses
end
end
object SynSQLSyn1: TSynSQLSyn
DefaultFilter = 'SQL files (*.sql)|*.sql'
CommentAttri.Foreground = clGray
DataTypeAttri.Foreground = clMaroon
FunctionAttri.Foreground = clNavy
KeyAttri.Foreground = clBlue
NumberAttri.Foreground = clPurple
StringAttri.Foreground = clGreen
SymbolAttri.Foreground = clBlue
TableNameAttri.Foreground = clFuchsia
VariableAttri.Foreground = clPurple
SQLDialect = sqlMySQL
Left = 7
Top = 192
end
object OpenDialog1: TOpenDialog
DefaultExt = 'sql'
Filter = 'SQL-Scripts (*.sql)|*.sql|All files (*.*)|*.*'
Left = 7
Top = 120
end
object TimerHostUptime: TTimer
OnTimer = TimerHostUptimeTimer
Left = 7
Top = 157
end
object popupTableGrid: TPopupMenu
Images = MainForm.PngImageListMain
Left = 104
Top = 16
object MenuEditField: TMenuItem
Action = MainForm.actEditField
Default = True
end
object MenuAddField: TMenuItem
Action = MainForm.actCreateField
end
object DropField1: TMenuItem
Action = MainForm.actDropFields
end
object menuRenameColumn: TMenuItem
Caption = 'Rename Field'
ImageIndex = 33
ShortCut = 113
OnClick = menuRenameColumnClick
end
object N16: TMenuItem
Caption = '-'
end
object ManageIndexes1: TMenuItem
Action = MainForm.actEditIndexes
end
object N3: TMenuItem
Caption = '-'
end
object InsertfilesintoBLOBfields2: TMenuItem
Action = MainForm.actInsertFiles
end
object PrintList4: TMenuItem
Action = MainForm.actPrintList
end
object Refresh2: TMenuItem
Tag = 28
Caption = 'Refresh'
Hint = 'Refresh|Refresh Field-List'
ImageIndex = 0
ShortCut = 116
OnClick = RefreshFieldListClick
end
end
object popupDataGrid: TPopupMenu
AutoHotkeys = maManual
Images = MainForm.PngImageListMain
OnPopup = popupDataGridPopup
Left = 8
Top = 48
object Copy3: TMenuItem
Action = MainForm.actCopy
end
object Paste2: TMenuItem
Action = MainForm.actPaste
end
object setNULL1: TMenuItem
Caption = 'Set NULL'
ShortCut = 24654
OnClick = setNULL1Click
end
object N4: TMenuItem
Caption = '-'
end
object Insert1: TMenuItem
Action = MainForm.actDataInsert
end
object DataPost1: TMenuItem
Action = MainForm.actDataPostChanges
end
object Cancelediting1: TMenuItem
Action = MainForm.actDataCancelChanges
end
object Delete1: TMenuItem
Action = MainForm.actDataDelete
end
object N6: TMenuItem
Caption = '-'
end
object QuickFilter1: TMenuItem
Caption = 'Quick Filter'
ImageIndex = 53
object QF1: TMenuItem
AutoHotkeys = maManual
Caption = 'Column = Value'
ImageIndex = 61
OnClick = QuickFilterClick
end
object QF2: TMenuItem
AutoHotkeys = maManual
Caption = 'Column != Value'
ImageIndex = 61
OnClick = QuickFilterClick
end
object QF3: TMenuItem
AutoHotkeys = maManual
Caption = 'Column > Value'
ImageIndex = 61
OnClick = QuickFilterClick
end
object QF4: TMenuItem
AutoHotkeys = maManual
Caption = 'Column < Value'
ImageIndex = 61
OnClick = QuickFilterClick
end
object QF5: TMenuItem
Caption = 'Column LIKE Value%'
ImageIndex = 61
OnClick = QuickFilterClick
end
object QF6: TMenuItem
Caption = 'Column LIKE %Value'
ImageIndex = 61
OnClick = QuickFilterClick
end
object QF7: TMenuItem
Caption = 'Column LIKE %Value%'
ImageIndex = 61
OnClick = QuickFilterClick
end
object N11: TMenuItem
Caption = '-'
end
object QF8: TMenuItem
Caption = 'Column = ...'
ImageIndex = 58
OnClick = QuickFilterClick
end
object QF9: TMenuItem
Caption = 'Column != ...'
ImageIndex = 58
OnClick = QuickFilterClick
end
object QF10: TMenuItem
Caption = 'Column > ...'
ImageIndex = 58
OnClick = QuickFilterClick
end
object QF11: TMenuItem
Caption = 'Column < ...'
ImageIndex = 58
OnClick = QuickFilterClick
end
object QF12: TMenuItem
Caption = 'Column like ...'
ImageIndex = 58
OnClick = QuickFilterClick
end
object N7: TMenuItem
AutoHotkeys = maManual
Caption = '-'
end
object QF13: TMenuItem
Caption = 'Column = CLIPBOARD'
ImageIndex = 4
OnClick = QuickFilterClick
end
object QF14: TMenuItem
Caption = 'Column != CLIPBOARD'
ImageIndex = 4
OnClick = QuickFilterClick
end
object QF15: TMenuItem
Caption = 'Column > CLIPBOARD'
ImageIndex = 4
OnClick = QuickFilterClick
end
object QF16: TMenuItem
Caption = 'Column < CLIPBOARD'
ImageIndex = 4
OnClick = QuickFilterClick
end
object QF17: TMenuItem
Caption = 'Column LIKE %CLIPBOARD%'
ImageIndex = 4
OnClick = QuickFilterClick
end
object N21: TMenuItem
Caption = '-'
end
object DropFilter1: TMenuItem
Action = MainForm.actRemoveFilter
end
end
object N9: TMenuItem
Caption = '-'
end
object Copytableas1: TMenuItem
Tag = 46
Caption = 'Copy data'
object CopyasCSVData1: TMenuItem
Tag = 48
Action = MainForm.actCopyAsCSV
end
object CopycontentsasHTML1: TMenuItem
Tag = 49
Action = MainForm.actCopyAsHTML
end
object CopyasXMLdata1: TMenuItem
Action = MainForm.actCopyAsXML
end
end
object Exportdata2: TMenuItem
Action = MainForm.actExportData
end
object N12: TMenuItem
Caption = '-'
end
object DataInsertDateTime: TMenuItem
Caption = 'Insert Date/Time'
ImageIndex = 80
object DataDateTime: TMenuItem
Caption = 'datetime'
Hint = 'Insert datetime-value'
ImageIndex = 80
OnClick = InsertDate
end
object DataDate: TMenuItem
Caption = 'date'
Hint = 'Insert date-value'
ImageIndex = 80
OnClick = InsertDate
end
object DataTime: TMenuItem
Caption = 'time'
Hint = 'Insert time-value'
ImageIndex = 80
OnClick = InsertDate
end
object DataTimestamp: TMenuItem
Caption = 'timestamp'
Hint = 'Insert timestamp-value'
ImageIndex = 80
OnClick = InsertDate
end
object DataYear: TMenuItem
Caption = 'year'
Hint = 'Insert year-value'
ImageIndex = 80
OnClick = InsertDate
end
end
object ViewasHTML1: TMenuItem
Action = MainForm.actHTMLview
end
object InsertfilesintoBLOBfields3: TMenuItem
Action = MainForm.actInsertFiles
end
object N19: TMenuItem
Caption = '-'
end
object menuSQLhelpData: TMenuItem
Action = MainForm.actSQLhelp
end
object Refresh3: TMenuItem
Tag = 28
Caption = 'Refresh'
ImageIndex = 0
ShortCut = 116
OnClick = viewdata
end
end
object popupResultGrid: TPopupMenu
Images = MainForm.PngImageListMain
OnPopup = popupResultGridPopup
Left = 40
Top = 48
object Copy4: TMenuItem
Action = MainForm.actCopy
end
object HTMLview1: TMenuItem
Action = MainForm.actHTMLview
end
object N14: TMenuItem
Caption = '-'
end
object Copyrecords1: TMenuItem
Tag = 48
Action = MainForm.actCopyAsCSV
end
object CopycontentsasHTML2: TMenuItem
Tag = 49
Action = MainForm.actCopyAsHTML
end
object CopyasXMLdata2: TMenuItem
Action = MainForm.actCopyAsXML
end
object Exportdata1: TMenuItem
Action = MainForm.actExportData
end
end
object TimerConnected: TTimer
Enabled = False
OnTimer = TimerConnectedTimer
Left = 103
Top = 157
end
object popupSqlLog: TPopupMenu
Images = MainForm.PngImageListMain
Left = 72
Top = 48
object Copy1: TMenuItem
Action = MainForm.actCopy
end
object Clear2: TMenuItem
Caption = 'Clear'
ImageIndex = 58
OnClick = Clear2Click
end
object N15: TMenuItem
Caption = '-'
end
object Markall3: TMenuItem
Caption = 'Select all'
OnClick = Markall3Click
end
object N13: TMenuItem
Caption = '-'
end
object EditQuery1: TMenuItem
Caption = 'Edit Selection'
ImageIndex = 33
OnClick = EditQuery1Click
end
object Saveastextfile1: TMenuItem
Caption = 'Save as textfile...'
ImageIndex = 10
OnClick = Saveastextfile1Click
end
object menuLogToFile: TMenuItem
Caption = 'Log to file'
OnClick = menuLogToFileClick
end
object menuOpenLogFolder: TMenuItem
Caption = 'Open log folder ...'
Enabled = False
ImageIndex = 51
OnClick = menuOpenLogFolderClick
end
end
object TimerConnectErrorCloseWindow: TTimer
Enabled = False
Interval = 10
OnTimer = TimerConnectErrorCloseWindowTimer
Left = 39
Top = 157
end
object TimerHost: TTimer
Enabled = False
Interval = 5000
OnTimer = ShowVariablesAndProcesses
Left = 72
Top = 157
end
object SaveDialogExportData: TSaveDialog
DefaultExt = 'csv'
Filter =
'CSV-Files (*.csv)|*.csv|Hypertext-Files (*.html)|*.html|XML-File' +
's (*.xml)|*.xml'
Options = [ofOverwritePrompt, ofEnableSizing]
OnTypeChange = SaveDialogExportDataTypeChange
Left = 72
Top = 120
end
object ZSQLMonitor1: TZSQLMonitor
Active = True
MaxTraceCount = 100
OnLogTrace = ZSQLMonitor1LogTrace
Left = 224
Top = 168
end
object popupDbGridHeader: TPopupMenu
AutoHotkeys = maManual
AutoLineReduction = maManual
Left = 104
Top = 48
end
object SynCompletionProposal1: TSynCompletionProposal
Options = [scoLimitToMatchedText, scoUseInsertList, scoUsePrettyText, scoUseBuiltInTimer, scoEndCharCompletion, scoCompleteWithTab, scoCompleteWithEnter]
Width = 262
EndOfTokenChr = '()[]. ='#9
TriggerChars = '.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clBtnText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = [fsBold]
Columns = <
item
BiggestWord = 'databasemore'
BiggestWordW = 'databasemore'
end
item
BiggestWord = 'IHAVENOCLUEWHICHLENGTH'
DefaultFontStyle = [fsBold]
BiggestWordW = 'IHAVENOCLUEWHICHLENGTH'
end>
ItemHeight = 18
Images = MainForm.PngImageListMain
Margin = 1
OnExecute = SynCompletionProposal1Execute
ShortCut = 16416
Editor = SynMemoQuery
TimerInterval = 500
OnAfterCodeCompletion = SynCompletionProposal1AfterCodeCompletion
OnCodeCompletion = SynCompletionProposal1CodeCompletion
Left = 40
Top = 192
EndOfTokenChrW = '()[]. ='#9
TriggerCharsW = '.'
end
object OpenDialogSQLFile: TOpenDialog
DefaultExt = 'sql'
Filter = 'SQL-Scripts (*.sql)|*.sql|All files (*.*)|*.*'
Left = 40
Top = 120
end
object SaveDialogSQLFile: TSaveDialog
DefaultExt = 'sql'
Filter = 'SQL-Scripts (*.sql)|*.sql|All Files (*.*)|*.*'
Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
Left = 104
Top = 120
end
object SynEditSearch1: TSynEditSearch
Left = 72
Top = 192
end
object popupQuery: TPopupMenu
Images = MainForm.PngImageListMain
OnPopup = popupQueryPopup
Left = 40
Top = 80
object MenuRun: TMenuItem
Action = MainForm.actExecuteQuery
end
object MenuRunSelection: TMenuItem
Action = MainForm.actExecuteSelection
end
object MenuRunLine: TMenuItem
Action = MainForm.actExecuteLine
end
object MenuItem1: TMenuItem
Caption = '-'
end
object menucopy: TMenuItem
Action = MainForm.actCopy
end
object menupaste: TMenuItem
Action = MainForm.actPaste
end
object menuclear: TMenuItem
Action = MainForm.actClearQueryEditor
end
object N22: TMenuItem
Caption = '-'
end
object MenuFind: TMenuItem
Action = MainForm.actQueryFind
end
object MenuReplace: TMenuItem
Action = MainForm.actQueryReplace
end
object MenuItem2: TMenuItem
Caption = '-'
end
object menuload: TMenuItem
Action = MainForm.actLoadSQL
end
object menusave: TMenuItem
Action = MainForm.actSaveSQL
end
object menuSaveSelectionToFile: TMenuItem
Tag = 1
Action = MainForm.actSaveSQLselection
end
object menuSaveAsSnippet: TMenuItem
Action = MainForm.actSaveSQLSnippet
end
object menuSaveSelectionAsSnippet: TMenuItem
Tag = 1
Action = MainForm.actSaveSQLSelectionSnippet
end
object N23: TMenuItem
Caption = '-'
end
object menuSQLhelp: TMenuItem
Action = MainForm.actSQLhelp
end
object N24: TMenuItem
Caption = '-'
end
end
object popupQueryHelpers: TPopupMenu
Images = MainForm.PngImageListMain
Left = 72
Top = 80
object menuInsertSnippetAtCursor: TMenuItem
Caption = 'Insert at cursor'
Default = True
Enabled = False
ImageIndex = 52
OnClick = menuInsertSnippetAtCursorClick
end
object menuLoadSnippet: TMenuItem
Caption = 'Load'
Enabled = False
ImageIndex = 52
OnClick = menuLoadSnippetClick
end
object menuDeleteSnippet: TMenuItem
Caption = 'Delete ...'
Enabled = False
ImageIndex = 26
ShortCut = 46
OnClick = menuDeleteSnippetClick
end
object menuExplore: TMenuItem
Caption = 'Explore folder'
Enabled = False
ImageIndex = 51
OnClick = menuExploreClick
end
object menuHelp: TMenuItem
Action = MainForm.actSQLhelp
end
end
object popupFilter: TPopupMenu
Images = MainForm.PngImageListMain
Left = 8
Top = 80
object menuFilterCopy: TMenuItem
Action = MainForm.actCopy
end
object menuFilterPaste: TMenuItem
Action = MainForm.actPaste
end
object menuFilterClear: TMenuItem
Action = MainForm.actClearFilterEditor
end
object N8: TMenuItem
Caption = '-'
end
object menuFilterApply: TMenuItem
Action = MainForm.actApplyFilter
end
object N20: TMenuItem
Caption = '-'
end
end
object popupDataView: TPopupMenu
AutoHotkeys = maManual
OnPopup = popupDataViewPopup
Left = 104
Top = 80
object menuViewSave: TMenuItem
Caption = 'Save perspective ...'
Hint = 'Save current view details (columns, filter, sorting) permanently'
ImageIndex = 10
OnClick = menuViewSaveClick
end
object menuViewDefault: TMenuItem
Caption = 'Load xyz by default'
Checked = True
Visible = False
OnClick = menuViewDefaultClick
end
object N25: TMenuItem
Caption = '-'
end
end
end