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
DragMode = dmAutomatic
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.SortColumn = 0
HintMode = hmTooltip

View File

@ -103,7 +103,7 @@ object frmInsertFiles: TfrmInsertFiles
EditDelay = 0
Header.AutoSizeIndex = 2
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
TabOrder = 2
TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick]
@ -175,7 +175,7 @@ object frmInsertFiles: TfrmInsertFiles
Height = 128
Anchors = [akLeft, akTop, akRight, akBottom]
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.SortColumn = 0
TabOrder = 0

View File

@ -423,7 +423,7 @@ object MainForm: TMainForm
Height = 253
Align = alClient
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.SortColumn = 0
Images = VirtualImageListMain
@ -505,7 +505,7 @@ object MainForm: TMainForm
DragOperations = []
Header.AutoSizeIndex = 2
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.SortColumn = 0
HintMode = hmTooltip
@ -561,7 +561,7 @@ object MainForm: TMainForm
DragOperations = []
Header.AutoSizeIndex = 1
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.SortColumn = 0
HintMode = hmTooltip
@ -630,7 +630,7 @@ object MainForm: TMainForm
Align = alClient
Header.AutoSizeIndex = 7
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.SortColumn = 0
Header.SortDirection = sdDescending
@ -788,7 +788,7 @@ object MainForm: TMainForm
Align = alClient
Header.AutoSizeIndex = 4
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.SortColumn = 1
Header.SortDirection = sdDescending
@ -858,7 +858,7 @@ object MainForm: TMainForm
EditDelay = 500
Header.AutoSizeIndex = -1
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.SortColumn = 0
HintMode = hmTooltip
@ -1229,7 +1229,7 @@ object MainForm: TMainForm
Header.Height = 20
Header.Images = VirtualImageListMain
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
LineStyle = lsSolid
PopupMenu = popupDataGrid
@ -1450,7 +1450,8 @@ object MainForm: TMainForm
Header.Height = 20
Header.Images = VirtualImageListMain
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
LineStyle = lsSolid
PopupMenu = popupDataGrid

View File

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

View File

@ -281,7 +281,8 @@ object frmRoutineEditor: TfrmRoutineEditor
EditDelay = 0
Header.AutoSizeIndex = 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
NodeDataSize = 0
TabOrder = 0

View File

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

View File

@ -119,7 +119,8 @@ object frmTableTools: TfrmTableTools
Header.AutoSizeIndex = -1
Header.Images = MainForm.VirtualImageListMain
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
TabOrder = 0
TreeOptions.MiscOptions = [toAcceptOLEDrop, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick]

View File

@ -109,7 +109,8 @@ object UserManagerForm: TUserManagerForm
Height = 275
Align = alClient
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
Images = MainForm.VirtualImageListMain
IncrementalSearch = isAll