object frmTableEditor: TfrmTableEditor Left = 0 Top = 0 Caption = 'Table editor' ClientHeight = 412 ClientWidth = 598 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poMainFormCenter OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow DesignSize = ( 598 412) PixelsPerInch = 96 TextHeight = 13 object SplitterTopBottom: TSplitter AlignWithMargins = True Left = 8 Top = 158 Width = 582 Height = 8 Cursor = crSizeNS Margins.Left = 8 Margins.Top = 0 Margins.Right = 8 Margins.Bottom = 0 Align = alTop ResizeStyle = rsUpdate end object lblStatus: TLabel Left = 104 Top = 384 Width = 41 Height = 13 Anchors = [akLeft, akBottom] Caption = 'lblStatus' end object btnApply: TButton Left = 515 Top = 379 Width = 75 Height = 25 Anchors = [akRight, akBottom] Caption = 'Apply' TabOrder = 6 OnClick = btnApplyClick end object btnCancel: TButton Left = 434 Top = 379 Width = 75 Height = 25 Anchors = [akRight, akBottom] Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 5 end object btnOK: TButton Left = 353 Top = 379 Width = 75 Height = 25 Anchors = [akRight, akBottom] Caption = 'OK' Default = True ModalResult = 1 TabOrder = 4 OnClick = btnApplyClick end object btnHelp: TButton Left = 8 Top = 379 Width = 75 Height = 25 Anchors = [akLeft, akBottom] Caption = 'Help' TabOrder = 3 OnClick = btnHelpClick end object listColumns: TVirtualStringTree AlignWithMargins = True Left = 8 Top = 196 Width = 582 Height = 176 Margins.Left = 8 Margins.Top = 8 Margins.Right = 8 Margins.Bottom = 40 Align = alClient CheckImageKind = ckSystem Constraints.MinHeight = 50 DragMode = dmAutomatic 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.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoVisible] Images = MainForm.PngImageListMain NodeDataSize = 0 PopupMenu = popupColumns TabOrder = 2 TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning, toFullRowDrag] TreeOptions.PaintOptions = [toHideFocusRect, toHotTrack, toShowDropmark, toThemeAware, toUseBlendedImages, toFullVertGridLines, toUseExplorerTheme, toHideTreeLinesIfThemed] TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect, toRightClickSelect] WantTabs = True OnAfterCellPaint = listColumnsAfterCellPaint OnBeforePaint = listColumnsBeforePaint OnClick = listColumnsClick OnCreateEditor = listColumnsCreateEditor OnDragOver = listColumnsDragOver OnDragDrop = listColumnsDragDrop OnEditing = listColumnsEditing OnFocusChanged = listColumnsFocusChanged OnGetText = listColumnsGetText OnPaintText = listColumnsPaintText OnNewText = listColumnsNewText Columns = < item Alignment = taRightJustify Color = clBtnFace MinWidth = 20 Options = [coDraggable, coEnabled, coParentBidiMode, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 0 Width = 20 WideText = '#' end item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 1 Width = 100 WideText = 'Name' end item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 2 Width = 90 WideText = 'Datatype' end item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 3 Width = 90 WideText = 'Length/Set' end item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 4 Width = 60 WideText = 'Unsigned' end item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 5 Width = 70 WideText = 'Allow NULL' end item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 6 Width = 100 WideText = 'Default' end item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 7 Width = 130 WideText = 'Comment' end item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 8 Width = 100 WideText = 'Collation' end> end object PageControlMain: TPageControl AlignWithMargins = True Left = 8 Top = 8 Width = 582 Height = 150 Margins.Left = 8 Margins.Top = 8 Margins.Right = 8 Margins.Bottom = 0 ActivePage = tabBasic Align = alTop Constraints.MinHeight = 150 Constraints.MinWidth = 500 Images = MainForm.PngImageListMain TabOrder = 0 OnChange = PageControlMainChange object tabBasic: TTabSheet Caption = 'Basic' ImageIndex = 14 DesignSize = ( 574 121) object lblName: TLabel Left = 4 Top = 6 Width = 31 Height = 13 Caption = 'Name:' end object lblComment: TLabel Left = 4 Top = 33 Width = 49 Height = 13 Caption = 'Comment:' end object editName: TTntEdit Left = 123 Top = 3 Width = 448 Height = 21 Anchors = [akLeft, akTop, akRight] TabOrder = 0 Text = 'editName' OnChange = editNameChange end object memoComment: TTntMemo Left = 123 Top = 30 Width = 448 Height = 83 Anchors = [akLeft, akTop, akRight, akBottom] Lines.Strings = ( 'memoComment') MaxLength = 60 TabOrder = 1 OnChange = Modification end end object tabOptions: TTabSheet Caption = 'Options' ImageIndex = 39 DesignSize = ( 574 121) object lblAutoinc: TLabel Left = 4 Top = 6 Width = 77 Height = 13 Caption = 'Auto increment:' end object lblAvgRowLen: TLabel Left = 4 Top = 29 Width = 99 Height = 13 Caption = 'Average row length:' end object lblInsertMethod: TLabel Left = 315 Top = 98 Width = 79 Height = 13 Caption = 'INSERT method:' end object lblUnion: TLabel Left = 315 Top = 52 Width = 63 Height = 13 Caption = 'Union tables:' end object lblMaxRows: TLabel Left = 4 Top = 52 Width = 99 Height = 13 Caption = 'Maximum row count:' end object lblRowFormat: TLabel Left = 4 Top = 98 Width = 60 Height = 13 Caption = 'Row format:' end object lblCollation: TLabel Left = 315 Top = 6 Width = 81 Height = 13 Caption = 'Default collation:' end object lblEngine: TLabel Left = 315 Top = 29 Width = 36 Height = 13 Caption = 'Engine:' end object editAvgRowLen: TEdit Left = 136 Top = 26 Width = 153 Height = 21 TabOrder = 1 OnChange = editNumEditChange end object editMaxRows: TEdit Left = 136 Top = 49 Width = 153 Height = 21 TabOrder = 2 OnChange = editNumEditChange end object chkChecksum: TCheckBox Left = 4 Top = 75 Width = 145 Height = 17 Alignment = taLeftJustify Caption = 'Checksum for rows:' TabOrder = 3 OnClick = Modification end object comboRowFormat: TComboBox Left = 136 Top = 95 Width = 153 Height = 21 Style = csDropDownList ItemHeight = 0 TabOrder = 4 OnChange = Modification end object memoUnionTables: TTntMemo Left = 411 Top = 49 Width = 160 Height = 44 Anchors = [akLeft, akTop, akRight] Lines.Strings = ( 'memoUnion') TabOrder = 7 OnChange = Modification end object comboInsertMethod: TComboBox Left = 411 Top = 95 Width = 160 Height = 21 Style = csDropDownList Anchors = [akLeft, akTop, akRight] ItemHeight = 0 TabOrder = 8 OnClick = Modification end object editAutoInc: TEdit Left = 136 Top = 3 Width = 152 Height = 21 TabOrder = 0 OnChange = editNumEditChange end object comboCollation: TComboBox Left = 411 Top = 3 Width = 160 Height = 21 Style = csDropDownList Anchors = [akLeft, akTop, akRight] ItemHeight = 0 Sorted = True TabOrder = 5 OnChange = Modification end object comboEngine: TComboBox Left = 411 Top = 26 Width = 160 Height = 21 Style = csDropDownList Anchors = [akLeft, akTop, akRight] ItemHeight = 0 TabOrder = 6 OnChange = Modification OnSelect = comboEngineSelect end end object tabIndexes: TTabSheet Caption = 'Indexes' ImageIndex = 13 DesignSize = ( 574 121) object treeIndexes: TVirtualStringTree Left = 75 Top = 3 Width = 251 Height = 110 Anchors = [akLeft, akTop, akRight, akBottom] DragMode = dmAutomatic EditDelay = 0 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, hoVisible] Images = MainForm.PngImageListMain PopupMenu = popupIndexes TabOrder = 1 TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning] TreeOptions.PaintOptions = [toHotTrack, toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toFullVertGridLines, toUseExplorerTheme, toHideTreeLinesIfThemed] TreeOptions.SelectionOptions = [toExtendedFocus, toRightClickSelect] OnBeforePaint = treeIndexesBeforePaint OnCreateEditor = treeIndexesCreateEditor OnDragOver = treeIndexesDragOver OnDragDrop = treeIndexesDragDrop OnEditing = treeIndexesEditing OnFocusChanged = treeIndexesFocusChanged OnGetText = treeIndexesGetText OnGetImageIndex = treeIndexesGetImageIndex OnInitChildren = treeIndexesInitChildren OnInitNode = treeIndexesInitNode OnNewText = treeIndexesNewText Columns = < item Options = [coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 0 Width = 151 WideText = 'Name' end item Options = [coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 1 Width = 100 WideText = 'Type' end> end object tlbIndexes: TToolBar Left = 3 Top = 3 Width = 66 Height = 110 Align = alNone AutoSize = True ButtonWidth = 66 Caption = 'tlbIndexes' Images = MainForm.PngImageListMain List = True ShowCaptions = True TabOrder = 0 object btnAddIndex: TToolButton Left = 0 Top = 0 Hint = 'Add index' Caption = 'Add' ImageIndex = 45 Wrap = True OnClick = btnAddIndexClick end object btnRemoveIndex: TToolButton Left = 0 Top = 22 Hint = 'Remove index' Caption = 'Remove' ImageIndex = 46 Wrap = True OnClick = btnRemoveIndexClick end object btnClearIndexes: TToolButton Left = 0 Top = 44 Hint = 'Clear indexes' Caption = 'Clear' ImageIndex = 26 Wrap = True OnClick = btnClearIndexesClick end object btnMoveUpIndex: TToolButton Left = 0 Top = 66 Hint = 'Move up' Caption = 'Up' ImageIndex = 74 Wrap = True OnClick = btnMoveUpIndexClick end object btnMoveDownIndex: TToolButton Left = 0 Top = 88 Hint = 'Move down' Caption = 'Down' ImageIndex = 75 OnClick = btnMoveDownIndexClick end end object StaticText1: TStaticText Left = 341 Top = 25 Width = 221 Height = 39 Anchors = [akTop, akRight] AutoSize = False Caption = 'To add a column, drag it from the column list below into the ind' + 'ex tree.' TabOrder = 2 end end object tabSQLCode: TTabSheet Caption = 'SQL code' ImageIndex = 119 object SynMemoSQLcode: TSynMemo Left = 0 Top = 0 Width = 574 Height = 121 SingleLineMode = False Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier New' Font.Style = [] TabOrder = 0 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.SynSQLSyn1 Lines.UnicodeStrings = 'SynMemoSQLcode' Options = [eoAutoIndent, eoDragDropEditing, eoEnhanceEndKey, eoGroupUndo, eoHideShowScrollbars, eoKeepCaretX, eoShowScrollHint, eoSmartTabDelete, eoSmartTabs, eoTabsToSpaces] ReadOnly = True end end end object pnlColumnsTop: TPanel AlignWithMargins = True Left = 8 Top = 166 Width = 582 Height = 22 Margins.Left = 8 Margins.Top = 0 Margins.Right = 8 Margins.Bottom = 0 Align = alTop Alignment = taLeftJustify AutoSize = True BevelOuter = bvNone Caption = 'Columns:' TabOrder = 1 object tlbColumns: TToolBar Left = 61 Top = 0 Width = 473 Height = 22 Align = alNone ButtonWidth = 66 Caption = 'Columns:' Images = MainForm.PngImageListMain List = True ShowCaptions = True TabOrder = 0 object btnAddColumn: TToolButton Left = 0 Top = 0 Hint = 'Add column' Caption = 'Add' ImageIndex = 45 OnClick = btnAddColumnClick end object btnRemoveColumn: TToolButton Left = 66 Top = 0 Hint = 'Remove column' Caption = 'Remove' ImageIndex = 46 OnClick = btnRemoveColumnClick end object btnClearColumns: TToolButton Left = 132 Top = 0 Hint = 'Remove all columns' Caption = 'Clear' ImageIndex = 26 OnClick = btnClearColumnsClick end object btnMoveUpColumn: TToolButton Left = 198 Top = 0 Hint = 'Move up' Caption = 'Up' ImageIndex = 74 OnClick = btnMoveUpColumnClick end object btnMoveDownColumn: TToolButton Left = 264 Top = 0 Hint = 'Move down' Caption = 'Down' ImageIndex = 75 OnClick = btnMoveDownColumnClick end end end object popupIndexes: TPopupMenu Images = MainForm.PngImageListMain Left = 296 Top = 376 object menuAddIndex: TMenuItem Caption = 'Add index' ImageIndex = 45 ShortCut = 45 OnClick = btnAddIndexClick end object menuAddIndexColumn: TMenuItem Caption = 'Add column' ImageIndex = 91 ShortCut = 16429 OnClick = menuAddIndexColumnClick end object menuRemoveIndex: TMenuItem Caption = 'Remove' ImageIndex = 46 ShortCut = 46 OnClick = btnRemoveIndexClick end object menuClearIndexes: TMenuItem Caption = 'Clear' ImageIndex = 26 ShortCut = 16430 OnClick = btnClearIndexesClick end object menuMoveUpIndex: TMenuItem Caption = 'Up' ImageIndex = 74 ShortCut = 16469 OnClick = btnMoveUpIndexClick end object menuMoveDownIndex: TMenuItem Caption = 'Down' ImageIndex = 75 ShortCut = 16452 OnClick = btnMoveDownIndexClick end end object popupColumns: TPopupMenu Images = MainForm.PngImageListMain Left = 264 Top = 376 object menuAddColumn: TMenuItem Caption = 'Add column' ImageIndex = 45 ShortCut = 45 OnClick = btnAddColumnClick end object menuRemoveColumn: TMenuItem Caption = 'Remove column' ImageIndex = 46 ShortCut = 46 OnClick = btnRemoveColumnClick end object menuClearColumns: TMenuItem Caption = 'Clear all columns' ImageIndex = 26 ShortCut = 16430 OnClick = btnClearColumnsClick end object menuMoveUpColumn: TMenuItem Caption = 'Move up' ImageIndex = 74 ShortCut = 16469 OnClick = btnMoveUpColumnClick end object menuMoveDownColumn: TMenuItem Caption = 'Move down' ImageIndex = 75 ShortCut = 16452 OnClick = btnMoveDownColumnClick end end end