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 = 191 Width = 380 Height = 13 Margins.Left = 0 Margins.Right = 0 Align = alTop Caption = 'Results:' end object ResultGrid: TVirtualStringTree Left = 0 Top = 207 Width = 380 Height = 129 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 = tabMaintenance Align = alTop Images = MainForm.PngImageListMain TabOrder = 1 object tabMaintenance: 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 = ValidateControls end object chkFast: TCheckBox Left = 81 Top = 57 Width = 97 Height = 17 Caption = 'Fast' TabOrder = 2 OnClick = ValidateControls end object chkMedium: TCheckBox Left = 81 Top = 76 Width = 97 Height = 17 Caption = 'Medium' TabOrder = 3 OnClick = ValidateControls end object chkExtended: TCheckBox Left = 184 Top = 38 Width = 97 Height = 17 Caption = 'Extended' TabOrder = 4 OnClick = ValidateControls end object chkChanged: TCheckBox Left = 184 Top = 57 Width = 97 Height = 17 Caption = 'Changed' TabOrder = 5 OnClick = ValidateControls 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 = ValidateControls end object btnHelp: TButton Left = 294 Top = 38 Width = 75 Height = 25 Anchors = [akTop, akRight] Caption = 'Help' TabOrder = 8 OnClick = btnHelpClick end end object tabFind: TTabSheet Caption = 'Find text' ImageIndex = 30 DesignSize = ( 372 132) object lblFindText: TLabel Left = 3 Top = 14 Width = 60 Height = 13 Caption = 'Text to find:' end object lblDataTypes: TLabel Left = 80 Top = 77 Width = 151 Height = 13 Caption = 'Restrict search to column types' end object memoFindText: TTntMemo Left = 80 Top = 11 Width = 289 Height = 57 Anchors = [akLeft, akTop, akRight, akBottom] ScrollBars = ssVertical TabOrder = 0 OnChange = ValidateControls end object btnFindText: TButton Left = 80 Top = 99 Width = 75 Height = 25 Anchors = [akLeft, akBottom] Caption = 'Find' TabOrder = 1 OnClick = ExecuteOperation end object comboDataTypes: TComboBox Left = 264 Top = 74 Width = 105 Height = 21 Style = csDropDownList Anchors = [akLeft, akTop, akRight] ItemHeight = 13 TabOrder = 2 end end end object pnlSkipLargeTables: TPanel Left = 0 Top = 161 Width = 380 Height = 27 Align = alTop BevelOuter = bvNone TabOrder = 2 object lblSkipLargeTables: TLabel Left = 0 Top = 6 Width = 107 Height = 13 Caption = 'Skip tables larger than' end object lblSkipLargeTablesMB: TLabel Left = 184 Top = 6 Width = 87 Height = 13 Caption = 'MB (0 = unlimited)' end object editSkipLargeTables: TEdit Left = 122 Top = 3 Width = 40 Height = 21 TabOrder = 0 Text = '20' end object udSkipLargeTables: TUpDown Left = 162 Top = 3 Width = 16 Height = 21 Associate = editSkipLargeTables Position = 20 TabOrder = 1 end end end end end