paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 11:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
(cherry picked from commit b3d33a5195)
This commit is contained in:
Martin 2021-08-01 21:43:15 +02:00
parent c7db857480
commit d7eb13a32c
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 KeyPreview = True
OnKeyDown = FormKeyDown OnKeyDown = FormKeyDown
OnResize = FormResize OnResize = FormResize
LCLVersion = '1.9.0.0' LCLVersion = '2.3.0.0'
object pbAsm: TPaintBox object pbAsm: TPaintBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = ToolBar1 AnchorSideTop.Control = ToolBar1
@ -114,7 +114,7 @@ object AssemblerDlg: TAssemblerDlg
end end
object pnlToolAddr: TPanel object pnlToolAddr: TPanel
Left = 109 Left = 109
Height = 29 Height = 23
Top = 2 Top = 2
Width = 80 Width = 80
AutoSize = True AutoSize = True
@ -124,12 +124,12 @@ object AssemblerDlg: TAssemblerDlg
ChildSizing.ShrinkHorizontal = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsHomogenousChildResize
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 29 ClientHeight = 23
ClientWidth = 80 ClientWidth = 80
TabOrder = 0 TabOrder = 0
object EditGotoAddr: TEdit object EditGotoAddr: TEdit
Left = 0 Left = 0
Height = 29 Height = 23
Top = 0 Top = 0
Width = 80 Width = 80
OnChange = EditGotoAddrChange OnChange = EditGotoAddrChange

1
debugger/assemblerdlg.pp
View File

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

1
ide/lazarusidestrconsts.pas
View File

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