object frmTableEditor: TfrmTableEditor Left = 0 Top = 0 Width = 700 Height = 500 TabOrder = 0 DesignSize = ( 700 500) object SplitterTopBottom: TSplitter AlignWithMargins = True Left = 3 Top = 153 Width = 694 Height = 8 Cursor = crSizeNS Margins.Top = 0 Margins.Bottom = 0 Align = alTop ResizeStyle = rsUpdate end object PageControlMain: TPageControl AlignWithMargins = True Left = 3 Top = 3 Width = 694 Height = 150 Margins.Bottom = 0 ActivePage = tabBasic Align = alTop Images = MainForm.VirtualImageListMain TabOrder = 0 OnChange = PageControlMainChange object tabBasic: TTabSheet Caption = 'Basic' ImageIndex = 14 ImageName = 'icons8-data-sheet-100' DesignSize = ( 686 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: TEdit Left = 96 Top = 3 Width = 589 Height = 21 Anchors = [akLeft, akTop, akRight] TabOrder = 0 Text = 'editName' TextHint = 'Enter table name' OnChange = Modification end object memoComment: TMemo Left = 96 Top = 30 Width = 589 Height = 78 Anchors = [akLeft, akTop, akRight, akBottom] Lines.Strings = ( 'memoComment') MaxLength = 60 ScrollBars = ssVertical TabOrder = 1 OnChange = Modification end end object tabOptions: TTabSheet Caption = 'Options' ImageIndex = 39 ImageName = 'icons8-support' object lblAutoinc: TLabel Left = 4 Top = 6 Width = 86 Height = 15 Caption = 'Auto increment:' end object lblCollation: TLabel Left = 358 Top = 6 Width = 90 Height = 15 Caption = 'Default collation:' end object lblAvgRowLen: TLabel Left = 4 Top = 29 Width = 106 Height = 15 Caption = 'Average row length:' end object lblEngine: TLabel Left = 358 Top = 29 Width = 39 Height = 15 Caption = 'Engine:' end object lblMaxRows: TLabel Left = 4 Top = 52 Width = 115 Height = 15 Caption = 'Maximum row count:' end object lblUnion: TLabel Left = 358 Top = 52 Width = 69 Height = 15 Caption = 'Union tables:' end object lblRowFormat: TLabel Left = 4 Top = 98 Width = 65 Height = 15 Caption = 'Row format:' end object lblInsertMethod: TLabel Left = 358 Top = 98 Width = 84 Height = 15 Caption = 'INSERT method:' end object editAutoInc: TEdit Left = 178 Top = 3 Width = 155 Height = 23 TabOrder = 0 OnChange = editNumEditChange end object comboCollation: TComboBox Left = 464 Top = 3 Width = 102 Height = 23 Style = csDropDownList DropDownCount = 16 Sorted = True TabOrder = 5 OnChange = chkCharsetConvertClick end object chkCharsetConvert: TCheckBox Left = 574 Top = 5 Width = 107 Height = 17 Caption = 'Convert data' TabOrder = 6 OnClick = chkCharsetConvertClick end object editAvgRowLen: TEdit Left = 178 Top = 26 Width = 155 Height = 23 TabOrder = 1 OnChange = editNumEditChange end object comboEngine: TComboBox Left = 464 Top = 26 Width = 221 Height = 23 Style = csDropDownList TabOrder = 7 OnSelect = comboEngineSelect end object editMaxRows: TEdit Left = 178 Top = 49 Width = 155 Height = 23 TabOrder = 2 OnChange = editNumEditChange end object memoUnionTables: TMemo Left = 464 Top = 49 Width = 221 Height = 44 Lines.Strings = ( 'memoUnion') TabOrder = 8 OnChange = Modification end object chkChecksum: TCheckBox Left = 4 Top = 75 Width = 190 Height = 17 Alignment = taLeftJustify Caption = 'Checksum for rows:' TabOrder = 3 OnClick = Modification end object comboRowFormat: TComboBox Left = 178 Top = 95 Width = 155 Height = 23 Style = csDropDownList TabOrder = 4 OnChange = Modification end object comboInsertMethod: TComboBox Left = 464 Top = 95 Width = 221 Height = 23 Style = csDropDownList TabOrder = 9 OnClick = Modification end end object tabIndexes: TTabSheet Caption = 'Indexes' ImageIndex = 13 ImageName = 'icons8-lightning-bolt-100' object treeIndexes: TVirtualStringTree AlignWithMargins = True Left = 69 Top = 0 Width = 614 Height = 121 Margins.Top = 0 Margins.Bottom = 0 Align = alClient DragMode = dmAutomatic EditDelay = 0 Header.AutoSizeIndex = 0 Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible, hoDisableAnimatedResize, hoAutoResizeInclCaption] Header.PopupMenu = MainForm.popupListHeader Images = MainForm.VirtualImageListMain PopupMenu = popupProperties TabOrder = 1 TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoTristateTracking, toAutoChangeScale] TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick] TreeOptions.PaintOptions = [toHotTrack, toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toFullVertGridLines, toUseExplorerTheme, toHideTreeLinesIfThemed] TreeOptions.SelectionOptions = [toExtendedFocus, toRightClickSelect] OnBeforePaint = treeIndexesBeforePaint OnClick = AnyTreeClick OnCreateEditor = treeIndexesCreateEditor OnDragOver = treeIndexesDragOver OnDragDrop = treeIndexesDragDrop OnEditing = treeIndexesEditing OnFocusChanged = treeIndexesFocusChanged OnGetText = treeIndexesGetText OnGetImageIndex = treeIndexesGetImageIndex OnInitChildren = treeIndexesInitChildren OnInitNode = treeIndexesInitNode OnNewText = treeIndexesNewText OnStructureChange = AnyTreeStructureChange Touch.InteractiveGestures = [igPan, igPressAndTap] Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough] Columns = < item Options = [coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 0 Text = 'Name' Width = 214 end item Options = [coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 1 Text = 'Type / Length' Width = 100 end item Position = 2 Text = 'Algorithm' Width = 80 end item Position = 3 Text = 'Comment' Width = 120 end item Position = 4 Text = 'Direction' Width = 80 end> end object tlbIndexes: TToolBar Left = 0 Top = 0 Width = 66 Height = 121 Align = alLeft AutoSize = True ButtonWidth = 66 Caption = 'tlbIndexes' Images = MainForm.VirtualImageListMain List = True ShowCaptions = True TabOrder = 0 object btnAddIndex: TToolButton Left = 0 Top = 0 Hint = 'Add index' Caption = 'Add' ImageIndex = 45 ImageName = 'icons8-add' Wrap = True OnClick = btnAddIndexClick end object btnRemoveIndex: TToolButton Left = 0 Top = 22 Hint = 'Remove index' Caption = 'Remove' ImageIndex = 46 ImageName = 'icons8-delete-button' Wrap = True OnClick = btnRemoveIndexClick end object btnClearIndexes: TToolButton Left = 0 Top = 44 Hint = 'Clear indexes' Caption = 'Clear' ImageIndex = 26 ImageName = 'icons8-close-button' Wrap = True OnClick = btnClearIndexesClick end object btnMoveUpIndex: TToolButton Left = 0 Top = 66 Hint = 'Move up' Caption = 'Up' ImageIndex = 74 ImageName = 'icons8-sort-up' Wrap = True OnClick = btnMoveUpIndexClick end object btnMoveDownIndex: TToolButton Left = 0 Top = 88 Hint = 'Move down' Caption = 'Down' ImageIndex = 75 ImageName = 'icons8-caret-arrowhead-facing-down' OnClick = btnMoveDownIndexClick end end end object tabForeignKeys: TTabSheet Caption = 'Foreign keys' ImageIndex = 136 ImageName = 'icons8-data-grid-relation' object tlbForeignKeys: TToolBar Left = 0 Top = 0 Width = 66 Height = 121 Align = alLeft AutoSize = True ButtonWidth = 66 Caption = 'tlbForeignKeys' Images = MainForm.VirtualImageListMain List = True ShowCaptions = True TabOrder = 0 object btnAddForeignKey: TToolButton Left = 0 Top = 0 Caption = 'Add' ImageIndex = 45 ImageName = 'icons8-add' Wrap = True OnClick = btnAddForeignKeyClick end object btnRemoveForeignKey: TToolButton Left = 0 Top = 22 Caption = 'Remove' Enabled = False ImageIndex = 46 ImageName = 'icons8-delete-button' Wrap = True OnClick = btnRemoveForeignKeyClick end object btnClearForeignKeys: TToolButton Left = 0 Top = 44 Caption = 'Clear' Enabled = False ImageIndex = 26 ImageName = 'icons8-close-button' OnClick = btnClearForeignKeysClick end end object listForeignKeys: TVirtualStringTree Left = 66 Top = 0 Width = 620 Height = 121 Margins.Top = 0 Margins.Bottom = 0 Align = alClient EditDelay = 0 Header.AutoSizeIndex = -1 Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible, hoDisableAnimatedResize, hoAutoResizeInclCaption] Header.PopupMenu = MainForm.popupListHeader Images = MainForm.VirtualImageListMain PopupMenu = popupProperties TabOrder = 1 TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick] TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowTreeLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toUseExplorerTheme, toHideTreeLinesIfThemed] TreeOptions.SelectionOptions = [toExtendedFocus] OnBeforePaint = listForeignKeysBeforePaint OnClick = AnyTreeClick OnCreateEditor = listForeignKeysCreateEditor OnEditing = listForeignKeysEditing OnFocusChanged = listForeignKeysFocusChanged OnGetText = listForeignKeysGetText OnGetImageIndex = listForeignKeysGetImageIndex OnNewText = listForeignKeysNewText OnStructureChange = AnyTreeStructureChange Touch.InteractiveGestures = [igPan, igPressAndTap] Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough] Columns = < item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 0 Text = 'Key name' Width = 196 end item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 1 Text = 'Columns' Width = 80 end item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 2 Text = 'Reference table' Width = 100 end item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 3 Text = 'Foreign columns' Width = 80 end item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 4 Text = 'On UPDATE' Width = 80 end item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 5 Text = 'On DELETE' Width = 80 end> end end object tabCheckConstraints: TTabSheet Caption = 'Check constraints' ImageIndex = 55 object tlbCheckConstraints: TToolBar Left = 0 Top = 0 Width = 66 Height = 121 Align = alLeft AutoSize = True ButtonWidth = 66 Caption = 'tlbCheckConstraints' Images = MainForm.VirtualImageListMain List = True ShowCaptions = True TabOrder = 0 object btnAddCheckConstraint: TToolButton Left = 0 Top = 0 Caption = 'Add' ImageIndex = 45 Wrap = True OnClick = btnAddCheckConstraintClick end object btnRemoveCheckConstraint: TToolButton Left = 0 Top = 22 Caption = 'Remove' Enabled = False ImageIndex = 46 Wrap = True OnClick = btnRemoveCheckConstraintClick end object btnClearCheckConstraints: TToolButton Left = 0 Top = 44 Caption = 'Clear' Enabled = False ImageIndex = 26 OnClick = btnClearCheckConstraintsClick end end object listCheckConstraints: TVirtualStringTree Left = 66 Top = 0 Width = 620 Height = 121 Align = alClient EditDelay = 0 Header.AutoSizeIndex = 1 Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible, hoDisableAnimatedResize, hoAutoResizeInclCaption] Header.PopupMenu = MainForm.popupListHeader Images = MainForm.VirtualImageListMain PopupMenu = popupProperties TabOrder = 1 TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick] TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowTreeLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toUseExplorerTheme, toHideTreeLinesIfThemed] TreeOptions.SelectionOptions = [toExtendedFocus] OnBeforePaint = listCheckConstraintsBeforePaint OnClick = AnyTreeClick OnCreateEditor = listCheckConstraintsCreateEditor OnFocusChanged = listCheckConstraintsFocusChanged OnGetText = listCheckConstraintsGetText OnGetImageIndex = listCheckConstraintsGetImageIndex OnNewText = listCheckConstraintsNewText OnStructureChange = AnyTreeStructureChange Touch.InteractiveGestures = [igPan, igPressAndTap] Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough] Columns = < item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus, coEditable, coStyleColor] Position = 0 Text = 'Name' Width = 200 end item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus, coEditable, coStyleColor] Position = 1 Text = 'Check clause' Width = 416 end> end end object tabPartitions: TTabSheet Caption = 'Partitions' ImageIndex = 186 ImageName = 'icons8-pie-chart' object SynMemoPartitions: TSynMemo Left = 0 Top = 0 Width = 593 Height = 121 SingleLineMode = False Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier New' Font.Style = [] TabOrder = 0 CodeFolding.GutterShapeSize = 11 CodeFolding.CollapsedLineColor = clGrayText CodeFolding.FolderBarLinesColor = clGrayText CodeFolding.IndentGuidesColor = clGray CodeFolding.IndentGuides = True CodeFolding.ShowCollapsedLine = False CodeFolding.ShowHintMark = True UseCodeFolding = False 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.SynSQLSynUsed Lines.Strings = ( 'SynMemoPartitions') Options = [eoAutoIndent, eoDragDropEditing, eoEnhanceEndKey, eoGroupUndo, eoHideShowScrollbars, eoKeepCaretX, eoShowScrollHint, eoSmartTabDelete, eoSmartTabs, eoTabsToSpaces] ReadOnly = True FontSmoothing = fsmNone end end object tabCREATEcode: TTabSheet Caption = 'CREATE code' ImageIndex = 119 ImageName = 'icons8-source-code-other' object SynMemoCREATEcode: TSynMemo Left = 0 Top = 0 Width = 593 Height = 121 SingleLineMode = False Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier New' Font.Style = [] TabOrder = 0 CodeFolding.GutterShapeSize = 11 CodeFolding.CollapsedLineColor = clGrayText CodeFolding.FolderBarLinesColor = clGrayText CodeFolding.IndentGuidesColor = clGray CodeFolding.IndentGuides = True CodeFolding.ShowCollapsedLine = False CodeFolding.ShowHintMark = True UseCodeFolding = False 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.SynSQLSynUsed Lines.Strings = ( 'SynMemoALTERcode') Options = [eoAutoIndent, eoDragDropEditing, eoEnhanceEndKey, eoGroupUndo, eoHideShowScrollbars, eoKeepCaretX, eoShowScrollHint, eoSmartTabDelete, eoSmartTabs, eoTabsToSpaces] ReadOnly = True FontSmoothing = fsmNone end end object tabALTERCode: TTabSheet Caption = 'ALTER code' ImageIndex = 119 ImageName = 'icons8-source-code-other' object SynMemoALTERcode: TSynMemo Left = 0 Top = 0 Width = 593 Height = 121 SingleLineMode = False Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier New' Font.Style = [] TabOrder = 0 CodeFolding.GutterShapeSize = 11 CodeFolding.CollapsedLineColor = clGrayText CodeFolding.FolderBarLinesColor = clGrayText CodeFolding.IndentGuidesColor = clGray CodeFolding.IndentGuides = True CodeFolding.ShowCollapsedLine = False CodeFolding.ShowHintMark = True UseCodeFolding = False 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.SynSQLSynUsed Lines.Strings = ( 'SynMemoALTERcode') Options = [eoAutoIndent, eoDragDropEditing, eoEnhanceEndKey, eoGroupUndo, eoHideShowScrollbars, eoKeepCaretX, eoShowScrollHint, eoSmartTabDelete, eoSmartTabs, eoTabsToSpaces] ReadOnly = True FontSmoothing = fsmNone end end end object pnlColumnsTop: TPanel AlignWithMargins = True Left = 3 Top = 161 Width = 694 Height = 22 Margins.Top = 0 Margins.Bottom = 0 Align = alTop Alignment = taLeftJustify BevelOuter = bvNone Caption = 'Columns:' TabOrder = 1 object tlbColumns: TToolBar AlignWithMargins = True Left = 100 Top = 0 Width = 594 Height = 22 Margins.Left = 100 Margins.Top = 0 Margins.Right = 0 Margins.Bottom = 0 Align = alClient AutoSize = True ButtonWidth = 66 Caption = 'Columns:' Images = MainForm.VirtualImageListMain List = True ShowCaptions = True TabOrder = 0 object btnAddColumn: TToolButton Left = 0 Top = 0 Hint = 'Add column' Caption = 'Add' ImageIndex = 45 ImageName = 'icons8-add' OnClick = btnAddColumnClick end object btnRemoveColumn: TToolButton Left = 66 Top = 0 Hint = 'Remove column' Caption = 'Remove' ImageIndex = 46 ImageName = 'icons8-delete-button' OnClick = btnRemoveColumnClick end object btnMoveUpColumn: TToolButton Left = 132 Top = 0 Hint = 'Move up' Caption = 'Up' ImageIndex = 74 ImageName = 'icons8-sort-up' OnClick = btnMoveUpColumnClick end object btnMoveDownColumn: TToolButton Left = 198 Top = 0 Hint = 'Move down' Caption = 'Down' ImageIndex = 75 ImageName = 'icons8-caret-arrowhead-facing-down' OnClick = btnMoveDownColumnClick end end end object listColumns: TVirtualStringTree AlignWithMargins = True Left = 3 Top = 186 Width = 694 Height = 282 Margins.Bottom = 32 Align = alClient Constraints.MinHeight = 20 DragMode = dmAutomatic EditDelay = 0 Header.AutoSizeIndex = -1 Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoVisible, hoDisableAnimatedResize, hoAutoResizeInclCaption] Header.PopupMenu = MainForm.popupListHeader Images = MainForm.VirtualImageListMain IncrementalSearch = isAll PopupMenu = popupColumns TabOrder = 2 TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoTristateTracking, toAutoChangeScale] TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toWheelPanning, toFullRowDrag, toEditOnClick] TreeOptions.PaintOptions = [toHotTrack, toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toUseExplorerTheme, toHideTreeLinesIfThemed] TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect, toMultiSelect, toRightClickSelect] WantTabs = True OnAfterCellPaint = listColumnsAfterCellPaint OnBeforeCellPaint = listColumnsBeforeCellPaint OnChange = listColumnsChange OnClick = listColumnsClick OnCreateEditor = listColumnsCreateEditor OnDragOver = listColumnsDragOver OnDragDrop = listColumnsDragDrop OnEditing = listColumnsEditing OnFocusChanged = listColumnsFocusChanged OnGetText = listColumnsGetText OnPaintText = listColumnsPaintText OnGetNodeDataSize = listColumnsGetNodeDataSize OnInitNode = listColumnsInitNode OnKeyPress = listColumnsKeyPress OnNewText = listColumnsNewText OnNodeMoved = listColumnsNodeMoved Touch.InteractiveGestures = [igPan, igPressAndTap] Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough] Columns = < item Alignment = taRightJustify MinWidth = 20 Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coShowDropMark, coVisible, coAllowFocus] Position = 0 Text = '#' Width = 20 end item MinWidth = 50 Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 1 Text = 'Name' Width = 100 end item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 2 Text = 'Datatype' Width = 90 end item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 3 Text = 'Length/Set' Width = 90 end item Alignment = taCenter Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 4 Text = 'Unsigned' Width = 60 end item Alignment = taCenter Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 5 Text = 'Allow NULL' Width = 65 end item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 6 Text = 'Zerofill' end item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 7 Text = 'Default' Width = 100 end item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 8 Text = 'Comment' Width = 130 end item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 9 Text = 'Collation' Width = 100 end item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 10 Text = 'Expression' Width = 100 end item Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 11 Text = 'Virtuality' Width = 100 end item Hint = 'Spatial reference system' Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 12 Text = 'SRID' end item Hint = 'Hide in certain contexts' Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Position = 13 Text = 'Invisible' end> end object btnSave: TButton Left = 165 Top = 471 Width = 75 Height = 25 Anchors = [akLeft, akBottom] Caption = 'Save' Default = True TabOrder = 5 OnClick = btnSaveClick end object btnDiscard: TButton Left = 84 Top = 471 Width = 75 Height = 25 Anchors = [akLeft, akBottom] Caption = 'Discard' TabOrder = 4 OnClick = btnDiscardClick end object btnHelp: TButton Left = 3 Top = 471 Width = 75 Height = 25 Anchors = [akLeft, akBottom] Caption = 'Help' TabOrder = 3 OnClick = btnHelpClick end object popupProperties: TPopupMenu Images = MainForm.VirtualImageListMain OnPopup = popupPropertiesPopup Left = 400 Top = 360 object Copy1: TMenuItem Action = MainForm.actCopy end object menuAddProperty: TMenuItem Caption = 'Add' ImageIndex = 45 ImageName = 'icons8-add' ShortCut = 16429 OnClick = menuAddPropertyClick end object menuAddIndexColumn: TMenuItem Caption = 'Add column' ImageIndex = 91 ImageName = 'icons8-rhombus-add' ShortCut = 24621 OnClick = menuAddIndexColumnClick end object menuRemoveProperty: TMenuItem Caption = 'Remove' ImageIndex = 46 ImageName = 'icons8-delete-button' ShortCut = 16430 OnClick = menuRemovePropertyClick end object menuClearProperties: TMenuItem Caption = 'Clear' ImageIndex = 26 ImageName = 'icons8-close-button' ShortCut = 24622 OnClick = menuClearPropertiesClick end object menuMoveUpIndex: TMenuItem Caption = 'Up' ImageIndex = 74 ImageName = 'icons8-sort-up' ShortCut = 16469 OnClick = btnMoveUpIndexClick end object menuMoveDownIndex: TMenuItem Caption = 'Down' ImageIndex = 75 ImageName = 'icons8-caret-arrowhead-facing-down' ShortCut = 16452 OnClick = btnMoveDownIndexClick end end object popupColumns: TPopupMenu Images = MainForm.VirtualImageListMain OnPopup = popupColumnsPopup Left = 312 Top = 360 object menuCopyColumnCell: TMenuItem Action = MainForm.actCopy end object menuCopyColumns: TMenuItem Caption = 'Copy selected columns' ImageIndex = 155 ImageName = 'icons8-copy-rows' OnClick = menuCopyColumnsClick end object menuPasteColumns: TMenuItem Caption = 'Paste columns' ImageIndex = 156 ImageName = 'icons8-paste-rows' OnClick = menuPasteColumnsClick end object N2: TMenuItem Caption = '-' end object menuAddColumn: TMenuItem Caption = 'Add column' ImageIndex = 45 ImageName = 'icons8-add' ShortCut = 16429 OnClick = btnAddColumnClick end object menuRemoveColumn: TMenuItem Caption = 'Remove column' ImageIndex = 46 ImageName = 'icons8-delete-button' ShortCut = 16430 OnClick = btnRemoveColumnClick end object menuMoveUpColumn: TMenuItem Caption = 'Move up' ImageIndex = 74 ImageName = 'icons8-sort-up' ShortCut = 16469 OnClick = btnMoveUpColumnClick end object menuMoveDownColumn: TMenuItem Caption = 'Move down' ImageIndex = 75 ImageName = 'icons8-caret-arrowhead-facing-down' ShortCut = 16452 OnClick = btnMoveDownColumnClick end object N1: TMenuItem Caption = '-' end object menuCreateIndex: TMenuItem Caption = 'Create new index' ImageIndex = 13 ImageName = 'icons8-lightning-bolt-100' end object menuAddToIndex: TMenuItem Caption = 'Add to index' ImageIndex = 13 ImageName = 'icons8-lightning-bolt-100' end end end