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.
This commit is contained in:
Ansgar Becker
2007-08-25 00:13:11 +00:00
parent 9068f08609
commit cc11515859

View File

@@ -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