paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-21 21:28:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Add missing button hints to the TreeView component editor

Browse Source
This commit is contained in:
wp_xyz 2024-02-18 12:56:31 +01:00
parent e5c820b1d3
commit 448d584096
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/ideintf/treeviewpropedit.lfm
View File

@ -64,6 +64,8 @@ object TreeViewItemsEditorForm: TTreeViewItemsEditorForm
BorderSpacing.Left = 3 BorderSpacing.Left = 3
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = '&New Item' Caption = '&New Item'
ParentShowHint = False
ShowHint = True
TabOrder = 1 TabOrder = 1
OnClick = btnNewItemClick OnClick = btnNewItemClick
end end
@ -81,6 +83,8 @@ object TreeViewItemsEditorForm: TTreeViewItemsEditorForm
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'N&ew SubItem' Caption = 'N&ew SubItem'
ParentShowHint = False
ShowHint = True
TabOrder = 2 TabOrder = 2
OnClick = btnNewItemClick OnClick = btnNewItemClick
end end
@ -98,6 +102,8 @@ object TreeViewItemsEditorForm: TTreeViewItemsEditorForm
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = '&Delete' Caption = '&Delete'
ParentShowHint = False
ShowHint = True
TabOrder = 3 TabOrder = 3
OnClick = btnDeleteClick OnClick = btnDeleteClick
end end
@ -115,6 +121,8 @@ object TreeViewItemsEditorForm: TTreeViewItemsEditorForm
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = '&Load' Caption = '&Load'
ParentShowHint = False
ShowHint = True
TabOrder = 4 TabOrder = 4
OnClick = btnLoadClick OnClick = btnLoadClick
end end
@ -132,6 +140,8 @@ object TreeViewItemsEditorForm: TTreeViewItemsEditorForm
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = '&Save' Caption = '&Save'
ParentShowHint = False
ShowHint = True
TabOrder = 5 TabOrder = 5
OnClick = btnSaveClick OnClick = btnSaveClick
end end

4
components/ideintf/treeviewpropedit.pas
View File

@ -127,8 +127,8 @@ begin
btnApply.Caption := sccsTrEdtApply; btnApply.Caption := sccsTrEdtApply;
IDEImages.AssignImage(btnMoveUp, 'arrow_up'); IDEImages.AssignImage(btnMoveUp, 'arrow_up');
IDEImages.AssignImage(btnMoveDown, 'arrow_down'); IDEImages.AssignImage(btnMoveDown, 'arrow_down');
btnMoveUp.Hint:=rscdMoveUp; btnMoveUp.Hint:=rscdMoveUp + LineEnding + '[Ctrl+Shift+Up]';
btnMoveDown.Hint:=rscdMoveDown; btnMoveDown.Hint:=rscdMoveDown + LineEnding + '[Ctrl+Shift+Down]';
grpNodeEditor.Caption := sccsTrEdtGrpRCaption; grpNodeEditor.Caption := sccsTrEdtGrpRCaption;
lblNodeText.Caption := sccsTrEdtLabelText; lblNodeText.Caption := sccsTrEdtLabelText;