mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2025-08-06 18:24:26 +08:00

* Replace checklist box by a virtual tree with checkboxes * Make "Maintenance" a single tab on a TPageControl, so there may follow other tools (e.g. issue #529) * Replace button layout by a combobox * Add "CHECKSUM" operation and various options
262 lines
7.6 KiB
Plaintext
262 lines
7.6 KiB
Plaintext
object frmTableTools: TfrmTableTools
|
|
Left = 734
|
|
Top = 126
|
|
Caption = 'Table tools'
|
|
ClientHeight = 383
|
|
ClientWidth = 544
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poMainFormCenter
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
OnShow = FormShow
|
|
DesignSize = (
|
|
544
|
|
383)
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object btnClose: TButton
|
|
Left = 461
|
|
Top = 350
|
|
Width = 75
|
|
Height = 25
|
|
Anchors = [akRight, akBottom]
|
|
Cancel = True
|
|
Caption = 'Close'
|
|
Default = True
|
|
ModalResult = 2
|
|
TabOrder = 0
|
|
end
|
|
object pnlTop: TPanel
|
|
AlignWithMargins = True
|
|
Left = 8
|
|
Top = 8
|
|
Width = 528
|
|
Height = 336
|
|
Margins.Left = 8
|
|
Margins.Top = 8
|
|
Margins.Right = 8
|
|
Margins.Bottom = 8
|
|
Align = alTop
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
object spltHorizontally: TSplitter
|
|
Left = 144
|
|
Top = 0
|
|
Width = 4
|
|
Height = 336
|
|
Cursor = crSizeWE
|
|
ResizeStyle = rsUpdate
|
|
end
|
|
object TreeObjects: TVirtualStringTree
|
|
Left = 0
|
|
Top = 0
|
|
Width = 144
|
|
Height = 336
|
|
Align = alLeft
|
|
Header.AutoSizeIndex = 0
|
|
Header.DefaultHeight = 17
|
|
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, hoShowSortGlyphs]
|
|
Images = MainForm.PngImageListMain
|
|
NodeDataSize = 0
|
|
TabOrder = 0
|
|
TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick]
|
|
TreeOptions.PaintOptions = [toHotTrack, toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages, toUseExplorerTheme, toHideTreeLinesIfThemed]
|
|
OnChecked = TreeObjectsChecked
|
|
OnGetText = TreeObjectsGetText
|
|
OnGetImageIndex = TreeObjectsGetImageIndex
|
|
OnInitChildren = TreeObjectsInitChildren
|
|
OnInitNode = TreeObjectsInitNode
|
|
Columns = <
|
|
item
|
|
Position = 0
|
|
Width = 144
|
|
WideText = 'Dummy, keeps compatibility to mainform.dbtree'
|
|
end>
|
|
end
|
|
object pnlRight: TPanel
|
|
Left = 148
|
|
Top = 0
|
|
Width = 380
|
|
Height = 336
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
object lblResults: TLabel
|
|
AlignWithMargins = True
|
|
Left = 0
|
|
Top = 164
|
|
Width = 380
|
|
Height = 13
|
|
Margins.Left = 0
|
|
Margins.Right = 0
|
|
Align = alTop
|
|
Caption = 'Results:'
|
|
end
|
|
object ResultGrid: TVirtualStringTree
|
|
Left = 0
|
|
Top = 180
|
|
Width = 380
|
|
Height = 156
|
|
Align = alClient
|
|
Header.AutoSizeIndex = -1
|
|
Header.DefaultHeight = 17
|
|
Header.Font.Charset = DEFAULT_CHARSET
|
|
Header.Font.Color = clWindowText
|
|
Header.Font.Height = -11
|
|
Header.Font.Name = 'Tahoma'
|
|
Header.Font.Style = []
|
|
Header.Images = MainForm.PngImageListMain
|
|
Header.MainColumn = -1
|
|
Header.Options = [hoColumnResize, hoShowSortGlyphs, hoVisible]
|
|
TabOrder = 0
|
|
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoSort, toAutoTristateTracking, toAutoDeleteMovedNodes]
|
|
TreeOptions.MiscOptions = [toAcceptOLEDrop, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick]
|
|
TreeOptions.PaintOptions = [toHotTrack, toShowButtons, toShowDropmark, toShowHorzGridLines, toShowTreeLines, toShowVertGridLines, toThemeAware, toUseBlendedImages]
|
|
TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect]
|
|
OnCompareNodes = ResultGridCompareNodes
|
|
OnGetText = ResultGridGetText
|
|
OnPaintText = ResultGridPaintText
|
|
OnGetNodeDataSize = ResultGridGetNodeDataSize
|
|
OnHeaderClick = ResultGridHeaderClick
|
|
OnInitNode = ResultGridInitNode
|
|
Columns = <>
|
|
end
|
|
object PageControlTools: TPageControl
|
|
Left = 0
|
|
Top = 0
|
|
Width = 380
|
|
Height = 161
|
|
ActivePage = Maintenance
|
|
Align = alTop
|
|
Images = MainForm.PngImageListMain
|
|
TabOrder = 1
|
|
object Maintenance: TTabSheet
|
|
Caption = 'Maintenance'
|
|
ImageIndex = 39
|
|
DesignSize = (
|
|
372
|
|
132)
|
|
object lblOperation: TLabel
|
|
Left = 3
|
|
Top = 14
|
|
Width = 52
|
|
Height = 13
|
|
Caption = 'Operation:'
|
|
end
|
|
object lblOptions: TLabel
|
|
Left = 3
|
|
Top = 39
|
|
Width = 41
|
|
Height = 13
|
|
Caption = 'Options:'
|
|
end
|
|
object comboOperation: TComboBox
|
|
Left = 80
|
|
Top = 11
|
|
Width = 289
|
|
Height = 21
|
|
Style = csDropDownList
|
|
Anchors = [akLeft, akTop, akRight]
|
|
ItemHeight = 13
|
|
ItemIndex = 0
|
|
TabOrder = 0
|
|
Text = 'Check'
|
|
OnChange = comboOperationChange
|
|
Items.Strings = (
|
|
'Check'
|
|
'Analyze'
|
|
'Checksum'
|
|
'Optimize'
|
|
'Repair')
|
|
end
|
|
object chkQuick: TCheckBox
|
|
Left = 81
|
|
Top = 38
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Quick'
|
|
TabOrder = 1
|
|
OnClick = MaintenanceOptionClick
|
|
end
|
|
object chkFast: TCheckBox
|
|
Left = 81
|
|
Top = 57
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Fast'
|
|
TabOrder = 2
|
|
OnClick = MaintenanceOptionClick
|
|
end
|
|
object chkMedium: TCheckBox
|
|
Left = 81
|
|
Top = 76
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Medium'
|
|
TabOrder = 3
|
|
OnClick = MaintenanceOptionClick
|
|
end
|
|
object chkExtended: TCheckBox
|
|
Left = 184
|
|
Top = 38
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Extended'
|
|
TabOrder = 4
|
|
OnClick = MaintenanceOptionClick
|
|
end
|
|
object chkChanged: TCheckBox
|
|
Left = 184
|
|
Top = 57
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Changed'
|
|
TabOrder = 5
|
|
OnClick = MaintenanceOptionClick
|
|
end
|
|
object btnExecuteMaintenance: TButton
|
|
Left = 80
|
|
Top = 99
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Execute'
|
|
TabOrder = 6
|
|
OnClick = ExecuteOperation
|
|
end
|
|
object chkUseFrm: TCheckBox
|
|
Left = 184
|
|
Top = 76
|
|
Width = 97
|
|
Height = 17
|
|
Caption = 'Use FRM file'
|
|
TabOrder = 7
|
|
OnClick = MaintenanceOptionClick
|
|
end
|
|
object btnHelp: TButton
|
|
Left = 294
|
|
Top = 38
|
|
Width = 75
|
|
Height = 25
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Help'
|
|
TabOrder = 8
|
|
OnClick = btnHelpClick
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|