From cc11515859394e2e552f892e35e383525bb1d38e Mon Sep 17 00:00:00 2001 From: Ansgar Becker Date: Sat, 25 Aug 2007 00:13:11 +0000 Subject: [PATCH] Add Header.hoHotTrack property to VirtualTrees where that was missing. This enables the mouse-over effect when XP-theming is active. Also adjust the height of the header to be the same in all VTs. --- source/childwin.dfm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/source/childwin.dfm b/source/childwin.dfm index a4aea78b..565dd086 100644 --- a/source/childwin.dfm +++ b/source/childwin.dfm @@ -123,7 +123,7 @@ object MDIChild: TMDIChild Header.Font.Name = 'Tahoma' Header.Font.Style = [] Header.Height = 20 - Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoShowSortGlyphs, hoVisible] + Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible] Header.SortColumn = 0 Images = MainForm.ImageList1 IncrementalSearch = isInitializedOnly @@ -169,7 +169,8 @@ object MDIChild: TMDIChild Header.Font.Height = -11 Header.Font.Name = 'Tahoma' Header.Font.Style = [] - Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoShowSortGlyphs, hoVisible] + Header.Height = 20 + Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible] Header.SortColumn = 0 Header.SortDirection = sdDescending Images = MainForm.ImageList1 @@ -252,7 +253,7 @@ object MDIChild: TMDIChild Header.Font.Name = 'Tahoma' Header.Font.Style = [] Header.Height = 20 - Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoShowSortGlyphs, hoVisible] + Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible] Header.SortColumn = 1 Header.SortDirection = sdDescending Images = MainForm.ImageList1