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

Debugger: Add text-hint to assembler-dialog's address input field. Issue #39200

Browse Source
This commit is contained in:
Martin 2021-08-01 21:43:15 +02:00
parent 9922733232
commit b3d33a5195
3 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
debugger/assemblerdlg.lfm
View File

@ -10,7 +10,7 @@ object AssemblerDlg: TAssemblerDlg
KeyPreview = True
OnKeyDown = FormKeyDown
OnResize = FormResize
LCLVersion = '1.9.0.0'
LCLVersion = '2.3.0.0'
object pbAsm: TPaintBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = ToolBar1
@ -114,7 +114,7 @@ object AssemblerDlg: TAssemblerDlg
end
object pnlToolAddr: TPanel
Left = 109
Height = 29
Height = 23
Top = 2
Width = 80
AutoSize = True
@ -124,12 +124,12 @@ object AssemblerDlg: TAssemblerDlg
ChildSizing.ShrinkHorizontal = crsHomogenousChildResize
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 29
ClientHeight = 23
ClientWidth = 80
TabOrder = 0
object EditGotoAddr: TEdit
Left = 0
Height = 29
Height = 23
Top = 0
Width = 80
OnChange = EditGotoAddrChange

1
debugger/assemblerdlg.pp
View File

@ -291,6 +291,7 @@ begin
actGotoAddr.Caption := lisDisAssGotoAddress;
actGotoAddr.Hint := lisDisAssGotoAddressHint;
actGotoAddr.ImageIndex := IDEImages.LoadImage('callstack_show');
EditGotoAddr.TextHint := lisDisAssGotoAddrEditTextHint;
actCopy.Caption := lisCopy;
actCopy.Hint := lisCopy;

1
ide/lazarusidestrconsts.pas
View File

@ -509,6 +509,7 @@ resourcestring
lisDisAssGotoCurrentAddressHint = 'Goto Current Address';
lisDisAssGotoAddress = 'Goto Address';
lisDisAssGotoAddressHint = 'Goto Address';
lisDisAssGotoAddrEditTextHint = '($address)';
lisBFRunCommand = 'Run Command';
lisMenuShowExecutionPoint = 'S&how Execution Point';