From 448d5840964d6ae900b0a75b1fce724eac4d3023 Mon Sep 17 00:00:00 2001 From: wp_xyz Date: Sun, 18 Feb 2024 12:56:31 +0100 Subject: [PATCH] LCL: Add missing button hints to the TreeView component editor --- components/ideintf/treeviewpropedit.lfm | 10 ++++++++++ components/ideintf/treeviewpropedit.pas | 4 ++-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/components/ideintf/treeviewpropedit.lfm b/components/ideintf/treeviewpropedit.lfm index 31033a21e6..8f8e6de307 100644 --- a/components/ideintf/treeviewpropedit.lfm +++ b/components/ideintf/treeviewpropedit.lfm @@ -64,6 +64,8 @@ object TreeViewItemsEditorForm: TTreeViewItemsEditorForm BorderSpacing.Left = 3 BorderSpacing.Around = 6 Caption = '&New Item' + ParentShowHint = False + ShowHint = True TabOrder = 1 OnClick = btnNewItemClick end @@ -81,6 +83,8 @@ object TreeViewItemsEditorForm: TTreeViewItemsEditorForm Anchors = [akTop, akLeft, akRight] BorderSpacing.Top = 6 Caption = 'N&ew SubItem' + ParentShowHint = False + ShowHint = True TabOrder = 2 OnClick = btnNewItemClick end @@ -98,6 +102,8 @@ object TreeViewItemsEditorForm: TTreeViewItemsEditorForm Anchors = [akTop, akLeft, akRight] BorderSpacing.Top = 6 Caption = '&Delete' + ParentShowHint = False + ShowHint = True TabOrder = 3 OnClick = btnDeleteClick end @@ -115,6 +121,8 @@ object TreeViewItemsEditorForm: TTreeViewItemsEditorForm Anchors = [akTop, akLeft, akRight] BorderSpacing.Top = 6 Caption = '&Load' + ParentShowHint = False + ShowHint = True TabOrder = 4 OnClick = btnLoadClick end @@ -132,6 +140,8 @@ object TreeViewItemsEditorForm: TTreeViewItemsEditorForm Anchors = [akTop, akLeft, akRight] BorderSpacing.Top = 6 Caption = '&Save' + ParentShowHint = False + ShowHint = True TabOrder = 5 OnClick = btnSaveClick end diff --git a/components/ideintf/treeviewpropedit.pas b/components/ideintf/treeviewpropedit.pas index c15b44bea6..ce9434abd0 100644 --- a/components/ideintf/treeviewpropedit.pas +++ b/components/ideintf/treeviewpropedit.pas @@ -127,8 +127,8 @@ begin btnApply.Caption := sccsTrEdtApply; IDEImages.AssignImage(btnMoveUp, 'arrow_up'); IDEImages.AssignImage(btnMoveDown, 'arrow_down'); - btnMoveUp.Hint:=rscdMoveUp; - btnMoveDown.Hint:=rscdMoveDown; + btnMoveUp.Hint:=rscdMoveUp + LineEnding + '[Ctrl+Shift+Up]'; + btnMoveDown.Hint:=rscdMoveDown + LineEnding + '[Ctrl+Shift+Down]'; grpNodeEditor.Caption := sccsTrEdtGrpRCaption; lblNodeText.Caption := sccsTrEdtLabelText;