paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-21 16:08:18 +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.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

4
components/ideintf/treeviewpropedit.pas
View File

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