From dd6759d680b4009cf047b64d376ed0ad11ca42d2 Mon Sep 17 00:00:00 2001 From: Ansgar Becker Date: Tue, 20 Oct 2009 11:26:03 +0000 Subject: [PATCH] Bugfix: Dragged nodes were deleted in table editor's column list and index tree. --- source/table_editor.dfm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/source/table_editor.dfm b/source/table_editor.dfm index 1a0aaa77..c7955555 100644 --- a/source/table_editor.dfm +++ b/source/table_editor.dfm @@ -78,6 +78,7 @@ object frmTableEditor: TfrmTableEditor Images = MainForm.PngImageListMain PopupMenu = popupColumns TabOrder = 2 + TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoTristateTracking] TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning, toFullRowDrag, toEditOnClick] TreeOptions.PaintOptions = [toHotTrack, toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toUseExplorerTheme, toHideTreeLinesIfThemed] TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect, toMultiSelect, toRightClickSelect] @@ -401,6 +402,7 @@ object frmTableEditor: TfrmTableEditor Images = MainForm.PngImageListMain PopupMenu = popupIndexes TabOrder = 1 + TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoTristateTracking] 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]