Issue #906: disable animation for resizing columns per doubleclick, and activate Header.PopupMenu for some trees missing this menu

This commit is contained in:
Ansgar Becker
2020-07-08 10:35:48 +02:00
parent 955ba58a66
commit 04e7334bd0
8 changed files with 23 additions and 17 deletions

View File

@ -876,7 +876,7 @@ object connform: Tconnform
Align = alClient Align = alClient
DragMode = dmAutomatic DragMode = dmAutomatic
Header.AutoSizeIndex = -1 Header.AutoSizeIndex = -1
Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible, hoAutoResizeInclCaption] Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible, hoDisableAnimatedResize, hoAutoResizeInclCaption]
Header.PopupMenu = MainForm.popupListHeader Header.PopupMenu = MainForm.popupListHeader
Header.SortColumn = 0 Header.SortColumn = 0
HintMode = hmTooltip HintMode = hmTooltip

View File

@ -103,7 +103,7 @@ object frmInsertFiles: TfrmInsertFiles
EditDelay = 0 EditDelay = 0
Header.AutoSizeIndex = 2 Header.AutoSizeIndex = 2
Header.Images = MainForm.VirtualImageListMain Header.Images = MainForm.VirtualImageListMain
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible, hoAutoResizeInclCaption] Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible, hoDisableAnimatedResize, hoAutoResizeInclCaption]
Header.PopupMenu = MainForm.popupListHeader Header.PopupMenu = MainForm.popupListHeader
TabOrder = 2 TabOrder = 2
TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick] TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick]
@ -175,7 +175,7 @@ object frmInsertFiles: TfrmInsertFiles
Height = 128 Height = 128
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
Header.AutoSizeIndex = 0 Header.AutoSizeIndex = 0
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoHotTrack, hoShowImages, hoShowSortGlyphs, hoVisible, hoAutoResizeInclCaption] Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoHotTrack, hoShowImages, hoShowSortGlyphs, hoVisible, hoDisableAnimatedResize, hoAutoResizeInclCaption]
Header.PopupMenu = MainForm.popupListHeader Header.PopupMenu = MainForm.popupListHeader
Header.SortColumn = 0 Header.SortColumn = 0
TabOrder = 0 TabOrder = 0

View File

@ -423,7 +423,7 @@ object MainForm: TMainForm
Height = 253 Height = 253
Align = alClient Align = alClient
Header.AutoSizeIndex = 0 Header.AutoSizeIndex = 0
Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible, hoAutoResizeInclCaption] Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible, hoDisableAnimatedResize, hoAutoResizeInclCaption]
Header.PopupMenu = popupListHeader Header.PopupMenu = popupListHeader
Header.SortColumn = 0 Header.SortColumn = 0
Images = VirtualImageListMain Images = VirtualImageListMain
@ -505,7 +505,7 @@ object MainForm: TMainForm
DragOperations = [] DragOperations = []
Header.AutoSizeIndex = 2 Header.AutoSizeIndex = 2
Header.Height = 20 Header.Height = 20
Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible, hoAutoResizeInclCaption] Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible, hoDisableAnimatedResize, hoAutoResizeInclCaption]
Header.PopupMenu = popupListHeader Header.PopupMenu = popupListHeader
Header.SortColumn = 0 Header.SortColumn = 0
HintMode = hmTooltip HintMode = hmTooltip
@ -561,7 +561,7 @@ object MainForm: TMainForm
DragOperations = [] DragOperations = []
Header.AutoSizeIndex = 1 Header.AutoSizeIndex = 1
Header.Height = 20 Header.Height = 20
Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible, hoAutoResizeInclCaption] Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible, hoDisableAnimatedResize, hoAutoResizeInclCaption]
Header.PopupMenu = popupListHeader Header.PopupMenu = popupListHeader
Header.SortColumn = 0 Header.SortColumn = 0
HintMode = hmTooltip HintMode = hmTooltip
@ -630,7 +630,7 @@ object MainForm: TMainForm
Align = alClient Align = alClient
Header.AutoSizeIndex = 7 Header.AutoSizeIndex = 7
Header.Height = 20 Header.Height = 20
Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible, hoAutoResizeInclCaption] Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible, hoDisableAnimatedResize, hoAutoResizeInclCaption]
Header.PopupMenu = popupListHeader Header.PopupMenu = popupListHeader
Header.SortColumn = 0 Header.SortColumn = 0
Header.SortDirection = sdDescending Header.SortDirection = sdDescending
@ -788,7 +788,7 @@ object MainForm: TMainForm
Align = alClient Align = alClient
Header.AutoSizeIndex = 4 Header.AutoSizeIndex = 4
Header.Height = 20 Header.Height = 20
Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible, hoAutoResizeInclCaption] Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible, hoDisableAnimatedResize, hoAutoResizeInclCaption]
Header.PopupMenu = popupListHeader Header.PopupMenu = popupListHeader
Header.SortColumn = 1 Header.SortColumn = 1
Header.SortDirection = sdDescending Header.SortDirection = sdDescending
@ -858,7 +858,7 @@ object MainForm: TMainForm
EditDelay = 500 EditDelay = 500
Header.AutoSizeIndex = -1 Header.AutoSizeIndex = -1
Header.Height = 20 Header.Height = 20
Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible, hoAutoResizeInclCaption] Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible, hoDisableAnimatedResize, hoAutoResizeInclCaption]
Header.PopupMenu = popupListHeader Header.PopupMenu = popupListHeader
Header.SortColumn = 0 Header.SortColumn = 0
HintMode = hmTooltip HintMode = hmTooltip
@ -1229,7 +1229,7 @@ object MainForm: TMainForm
Header.Height = 20 Header.Height = 20
Header.Images = VirtualImageListMain Header.Images = VirtualImageListMain
Header.MainColumn = -1 Header.MainColumn = -1
Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoOwnerDraw, hoShowHint, hoShowImages, hoVisible, hoAutoResizeInclCaption] Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoOwnerDraw, hoShowHint, hoShowImages, hoVisible, hoDisableAnimatedResize, hoAutoResizeInclCaption]
IncrementalSearch = isInitializedOnly IncrementalSearch = isInitializedOnly
LineStyle = lsSolid LineStyle = lsSolid
PopupMenu = popupDataGrid PopupMenu = popupDataGrid
@ -1450,7 +1450,8 @@ object MainForm: TMainForm
Header.Height = 20 Header.Height = 20
Header.Images = VirtualImageListMain Header.Images = VirtualImageListMain
Header.MainColumn = -1 Header.MainColumn = -1
Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoOwnerDraw, hoShowHint, hoShowImages, hoAutoResizeInclCaption] Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoOwnerDraw, hoShowHint, hoShowImages, hoDisableAnimatedResize, hoAutoResizeInclCaption]
Header.PopupMenu = popupListHeader
IncrementalSearch = isAll IncrementalSearch = isAll
LineStyle = lsSolid LineStyle = lsSolid
PopupMenu = popupDataGrid PopupMenu = popupDataGrid

View File

@ -13860,6 +13860,7 @@ begin
Grid.EditDelay := OrgGrid.EditDelay; Grid.EditDelay := OrgGrid.EditDelay;
Grid.Font.Assign(OrgGrid.Font); Grid.Font.Assign(OrgGrid.Font);
Grid.Header.Options := OrgGrid.Header.Options; Grid.Header.Options := OrgGrid.Header.Options;
Grid.Header.PopupMenu := OrgGrid.Header.PopupMenu;
Grid.Header.ParentFont := OrgGrid.Header.ParentFont; Grid.Header.ParentFont := OrgGrid.Header.ParentFont;
Grid.Header.Images := OrgGrid.Header.Images; Grid.Header.Images := OrgGrid.Header.Images;
Grid.WantTabs := OrgGrid.WantTabs; Grid.WantTabs := OrgGrid.WantTabs;

View File

@ -281,7 +281,8 @@ object frmRoutineEditor: TfrmRoutineEditor
EditDelay = 0 EditDelay = 0
Header.AutoSizeIndex = 1 Header.AutoSizeIndex = 1
Header.MainColumn = 1 Header.MainColumn = 1
Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoVisible, hoAutoResizeInclCaption] Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoVisible, hoDisableAnimatedResize, hoAutoResizeInclCaption]
Header.PopupMenu = MainForm.popupListHeader
Images = MainForm.VirtualImageListMain Images = MainForm.VirtualImageListMain
NodeDataSize = 0 NodeDataSize = 0
TabOrder = 0 TabOrder = 0

View File

@ -253,7 +253,8 @@ object frmTableEditor: TfrmTableEditor
DragMode = dmAutomatic DragMode = dmAutomatic
EditDelay = 0 EditDelay = 0
Header.AutoSizeIndex = 0 Header.AutoSizeIndex = 0
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible, hoAutoResizeInclCaption] Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible, hoDisableAnimatedResize, hoAutoResizeInclCaption]
Header.PopupMenu = MainForm.popupListHeader
Images = MainForm.VirtualImageListMain Images = MainForm.VirtualImageListMain
PopupMenu = popupIndexes PopupMenu = popupIndexes
TabOrder = 1 TabOrder = 1
@ -412,7 +413,7 @@ object frmTableEditor: TfrmTableEditor
Align = alClient Align = alClient
EditDelay = 0 EditDelay = 0
Header.AutoSizeIndex = 0 Header.AutoSizeIndex = 0
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible, hoAutoResizeInclCaption] Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible, hoDisableAnimatedResize, hoAutoResizeInclCaption]
Header.PopupMenu = MainForm.popupListHeader Header.PopupMenu = MainForm.popupListHeader
Images = MainForm.VirtualImageListMain Images = MainForm.VirtualImageListMain
TabOrder = 1 TabOrder = 1
@ -650,7 +651,7 @@ object frmTableEditor: TfrmTableEditor
DragMode = dmAutomatic DragMode = dmAutomatic
EditDelay = 0 EditDelay = 0
Header.AutoSizeIndex = -1 Header.AutoSizeIndex = -1
Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoVisible, hoAutoResizeInclCaption] Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoVisible, hoDisableAnimatedResize, hoAutoResizeInclCaption]
Header.PopupMenu = MainForm.popupListHeader Header.PopupMenu = MainForm.popupListHeader
Images = MainForm.VirtualImageListMain Images = MainForm.VirtualImageListMain
IncrementalSearch = isAll IncrementalSearch = isAll

View File

@ -119,7 +119,8 @@ object frmTableTools: TfrmTableTools
Header.AutoSizeIndex = -1 Header.AutoSizeIndex = -1
Header.Images = MainForm.VirtualImageListMain Header.Images = MainForm.VirtualImageListMain
Header.MainColumn = -1 Header.MainColumn = -1
Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible, hoAutoResizeInclCaption] Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible, hoDisableAnimatedResize, hoAutoResizeInclCaption]
Header.PopupMenu = MainForm.popupListHeader
IncrementalSearch = isAll IncrementalSearch = isAll
TabOrder = 0 TabOrder = 0
TreeOptions.MiscOptions = [toAcceptOLEDrop, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick] TreeOptions.MiscOptions = [toAcceptOLEDrop, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick]

View File

@ -109,7 +109,8 @@ object UserManagerForm: TUserManagerForm
Height = 275 Height = 275
Align = alClient Align = alClient
Header.AutoSizeIndex = 0 Header.AutoSizeIndex = 0
Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible, hoAutoResizeInclCaption] Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible, hoDisableAnimatedResize, hoAutoResizeInclCaption]
Header.PopupMenu = MainForm.popupListHeader
Header.SortColumn = 0 Header.SortColumn = 0
Images = MainForm.VirtualImageListMain Images = MainForm.VirtualImageListMain
IncrementalSearch = isAll IncrementalSearch = isAll