Files
HeidiSQL/source/tabletools.dfm
Ansgar Becker e0796b153f Refactor maintenance dialog:
* 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
2009-09-14 00:09:03 +00:00

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