From 558bafc0d7460cacea7b708aa8984c65267cd567 Mon Sep 17 00:00:00 2001 From: Ansgar Becker Date: Mon, 15 Mar 2010 17:52:09 +0000 Subject: [PATCH] Enable incremental search on keyboard presses in various lists and trees. Fixes issue #1769. --- source/tabletools.dfm | 2 ++ source/usermanager.dfm | 2 ++ 2 files changed, 4 insertions(+) diff --git a/source/tabletools.dfm b/source/tabletools.dfm index d9bf96db..79b0fcb4 100644 --- a/source/tabletools.dfm +++ b/source/tabletools.dfm @@ -86,6 +86,7 @@ object frmTableTools: TfrmTableTools Header.Font.Style = [] Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs] Images = MainForm.ImageListMain + IncrementalSearch = isInitializedOnly NodeDataSize = 0 TabOrder = 0 TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick] @@ -130,6 +131,7 @@ object frmTableTools: TfrmTableTools Header.MainColumn = -1 Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible] Header.ParentFont = True + IncrementalSearch = isAll TabOrder = 0 TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoSort, toAutoTristateTracking, toAutoDeleteMovedNodes] TreeOptions.MiscOptions = [toAcceptOLEDrop, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick] diff --git a/source/usermanager.dfm b/source/usermanager.dfm index 277202a5..c7e440d8 100644 --- a/source/usermanager.dfm +++ b/source/usermanager.dfm @@ -436,6 +436,7 @@ object UserManagerForm: TUserManagerForm Header.MainColumn = -1 Header.ParentFont = True Images = MainForm.ImageListMain + IncrementalSearch = isAll TabOrder = 2 TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick] TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages, toUseExplorerTheme, toHideTreeLinesIfThemed] @@ -470,6 +471,7 @@ object UserManagerForm: TUserManagerForm Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs] Header.ParentFont = True Images = MainForm.ImageListMain + IncrementalSearch = isAll NodeDataSize = 0 TabOrder = 1 TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages, toUseExplorerTheme, toHideTreeLinesIfThemed]