From 2acd0170e8f621c91e20c1011a494dff1d45ca63 Mon Sep 17 00:00:00 2001 From: Ansgar Becker Date: Sun, 17 May 2009 16:11:09 +0000 Subject: [PATCH] Fix one-click-editing in trees and grids, broken in recent VirtualTree update, r2416 --- source/main.dfm | 6 +++--- source/routine_editor.dfm | 2 +- source/table_editor.dfm | 4 ++-- 3 files changed, 6 insertions(+), 6 deletions(-) diff --git a/source/main.dfm b/source/main.dfm index acadbd91..4fa5820f 100644 --- a/source/main.dfm +++ b/source/main.dfm @@ -856,7 +856,7 @@ object MainForm: TMainForm ShowHint = True TabOrder = 0 TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoSort, toAutoTristateTracking, toAutoDeleteMovedNodes] - TreeOptions.MiscOptions = [toEditable, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning] + TreeOptions.MiscOptions = [toEditable, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick] TreeOptions.PaintOptions = [toHideFocusRect, toHotTrack, toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toUseExplorerTheme] TreeOptions.SelectionOptions = [toFullRowSelect, toMultiSelect, toRightClickSelect] OnAfterPaint = vstAfterPaint @@ -1201,7 +1201,7 @@ object MainForm: TMainForm LineStyle = lsSolid PopupMenu = popupDataGrid TabOrder = 2 - TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning] + TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick] TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toAlwaysHideSelection] TreeOptions.SelectionOptions = [toExtendedFocus, toMultiSelect, toRightClickSelect] WantTabs = True @@ -1371,7 +1371,7 @@ object MainForm: TMainForm LineStyle = lsSolid PopupMenu = popupResultGrid TabOrder = 1 - TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning] + TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick] TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toAlwaysHideSelection] TreeOptions.SelectionOptions = [toExtendedFocus, toMultiSelect, toRightClickSelect] WantTabs = True diff --git a/source/routine_editor.dfm b/source/routine_editor.dfm index f0e74d20..7bd6e455 100644 --- a/source/routine_editor.dfm +++ b/source/routine_editor.dfm @@ -215,7 +215,7 @@ object frmRoutineEditor: TfrmRoutineEditor Images = MainForm.PngImageListMain NodeDataSize = 0 TabOrder = 8 - TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning] + TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick] TreeOptions.PaintOptions = [toHideFocusRect, toHotTrack, toShowButtons, toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toFullVertGridLines, toUseExplorerTheme] TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect] OnBeforePaint = listParametersBeforePaint diff --git a/source/table_editor.dfm b/source/table_editor.dfm index 5e5f74a6..126c212d 100644 --- a/source/table_editor.dfm +++ b/source/table_editor.dfm @@ -112,7 +112,7 @@ object frmTableEditor: TfrmTableEditor NodeDataSize = 0 PopupMenu = popupColumns TabOrder = 2 - TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning, toFullRowDrag] + TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning, toFullRowDrag, toEditOnClick] TreeOptions.PaintOptions = [toHideFocusRect, toHotTrack, toShowDropmark, toThemeAware, toUseBlendedImages, toFullVertGridLines, toUseExplorerTheme, toHideTreeLinesIfThemed] TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect, toRightClickSelect] WantTabs = True @@ -424,7 +424,7 @@ object frmTableEditor: TfrmTableEditor Images = MainForm.PngImageListMain PopupMenu = popupIndexes TabOrder = 1 - TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning] + 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