ide: add resource string constants for debug manager hard coded strings

git-svn-id: trunk@20851 -

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

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:';