From 273bd5544422b18be957633cc32ac4a9087550bb Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Mon, 13 Jul 2009 13:53:56 +0000
Subject: [PATCH] ide: add resource string constants for debug manager hard
 coded strings

git-svn-id: trunk@20851 -
---
 ide/debugmanager.pas        | 19 +++++++++----------
 ide/lazarusidestrconsts.pas |  8 ++++++--
 2 files changed, 15 insertions(+), 12 deletions(-)

diff --git a/ide/debugmanager.pas b/ide/debugmanager.pas
index fd0d6eeebb..38ee4e89ce 100644
--- a/ide/debugmanager.pas
+++ b/ide/debugmanager.pas
@@ -1041,23 +1041,22 @@ end;
 procedure TManagedBreakPoint.OnSourceMarkGetHint(SenderMark: TSourceMark;
   var Hint: string);
 begin
-  Hint:=GetBreakPointStateDescription(Self)+LineEnding
-      +'Hitcount: '+IntToStr(Hitcount)+LineEnding
-      +'Action: '+GetBreakPointActionsDescription(Self)+LineEnding
-      +'Condition: '+Expression;
+  Hint := GetBreakPointStateDescription(Self) + LineEnding +
+      Format('%s: %d' + LineEnding + '%s %s' + LineEnding + '%s: %s',
+        [lisHitCount, Hitcount,
+        lisAction, GetBreakPointActionsDescription(Self),
+        lisCondition, Expression]);
 end;
 
 procedure TManagedBreakPoint.OnSourceMarkCreatePopupMenu(
   SenderMark: TSourceMark; const AddMenuItem: TAddMenuItemProc);
 begin
   if Enabled then
-    AddMenuItem('Disable Breakpoint',true,@OnToggleEnableMenuItemClick)
+    AddMenuItem(lisDisableBreakPoint, True, @OnToggleEnableMenuItemClick)
   else
-    AddMenuItem('Enable Breakpoint',true,@OnToggleEnableMenuItemClick);
-  AddMenuItem('Delete Breakpoint',true,@OnDeleteMenuItemClick);
-  AddMenuItem('View Breakpoint Properties',true,@OnViewPropertiesMenuItemClick);
-  // add separator
-  AddMenuItem('-',true,nil);
+    AddMenuItem(lisEnableBreakPoint, True, @OnToggleEnableMenuItemClick);
+  AddMenuItem(lisDeleteBreakPoint, True, @OnDeleteMenuItemClick);
+  AddMenuItem(lisViewBreakPointProperties, True, @OnViewPropertiesMenuItemClick);
 end;
 
 procedure TManagedBreakPoint.AssignTo(Dest: TPersistent);
diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas
index b73e26a228..1d6fd651de 100644
--- a/ide/lazarusidestrconsts.pas
+++ b/ide/lazarusidestrconsts.pas
@@ -2920,7 +2920,6 @@ resourcestring
   lisTheLaunchingApplicationBundleDoesNotExists = 'The Application Bundle %s'
     +'%sneeded for execution does not exist or is not executable.%sDo you want to create one?'
     +'%s%sSee Project -> Project Options -> Application for settings.';
-
   lisDebuggerInvalid = 'Debugger invalid';
   lisTheDebuggerDoesNotExistsOrIsNotExecutableSeeEnviro = 'The debugger %s%s%'
     +'s%sdoes not exist or is not executable.%s%sSee Environment -> Debugger '
@@ -2933,7 +2932,12 @@ resourcestring
     +'directory %s%s%s does not exist.%sPlease check the working directory in '
     +'Menu > Run > Run parameters.';
   lisPleaseOpenAUnitBeforeRun = 'Please open a unit before run.';
-  
+  lisHitCount = 'Hitcount';
+  lisDisableBreakPoint = 'Disable Breakpoint';
+  lisEnableBreakPoint = 'Enable Breakpoint';
+  lisDeleteBreakPoint = 'Delete Breakpoint';
+  lisViewBreakPointProperties = 'View Breakpoint Properties';
+
   // disk diff dialog
   lisDiskDiffErrorReadingFile = 'Error reading file: %s';
   lisDiskDiffSomeFilesHaveChangedOnDisk = 'Some files have changed on disk:';