From b3d33a51952d23f299ec52be295643ead9deb794 Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Sun, 1 Aug 2021 21:43:15 +0200
Subject: [PATCH] Debugger: Add text-hint to assembler-dialog's address input
 field. Issue #39200

---
 debugger/assemblerdlg.lfm   | 8 ++++----
 debugger/assemblerdlg.pp    | 1 +
 ide/lazarusidestrconsts.pas | 1 +
 3 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/debugger/assemblerdlg.lfm b/debugger/assemblerdlg.lfm
index bf5f43bff0..e1deb5fe65 100644
--- a/debugger/assemblerdlg.lfm
+++ b/debugger/assemblerdlg.lfm
@@ -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
diff --git a/debugger/assemblerdlg.pp b/debugger/assemblerdlg.pp
index ecc932380c..67b3422fa5 100644
--- a/debugger/assemblerdlg.pp
+++ b/debugger/assemblerdlg.pp
@@ -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;
diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas
index 557336d744..79b8f42189 100644
--- a/ide/lazarusidestrconsts.pas
+++ b/ide/lazarusidestrconsts.pas
@@ -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';