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

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

Browse Source 
git-svn-id: trunk@20851 -
This commit is contained in:
paul 2009-07-13 13:53:56 +00:00
parent 167247535e
commit 273bd55444
2 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
ide/debugmanager.pas
View File

@ -1041,23 +1041,22 @@ end;
procedure TManagedBreakPoint.OnSourceMarkGetHint(SenderMark: TSourceMark; procedure TManagedBreakPoint.OnSourceMarkGetHint(SenderMark: TSourceMark;
var Hint: string); var Hint: string);
begin begin
Hint:=GetBreakPointStateDescription(Self)+LineEnding Hint := GetBreakPointStateDescription(Self) + LineEnding +
+'Hitcount: '+IntToStr(Hitcount)+LineEnding Format('%s: %d' + LineEnding + '%s %s' + LineEnding + '%s: %s',
+'Action: '+GetBreakPointActionsDescription(Self)+LineEnding [lisHitCount, Hitcount,
+'Condition: '+Expression; lisAction, GetBreakPointActionsDescription(Self),
lisCondition, Expression]);
end; end;
procedure TManagedBreakPoint.OnSourceMarkCreatePopupMenu( procedure TManagedBreakPoint.OnSourceMarkCreatePopupMenu(
SenderMark: TSourceMark; const AddMenuItem: TAddMenuItemProc); SenderMark: TSourceMark; const AddMenuItem: TAddMenuItemProc);
begin begin
if Enabled then if Enabled then
AddMenuItem('Disable Breakpoint',true,@OnToggleEnableMenuItemClick) AddMenuItem(lisDisableBreakPoint, True, @OnToggleEnableMenuItemClick)
else else
AddMenuItem('Enable Breakpoint',true,@OnToggleEnableMenuItemClick); AddMenuItem(lisEnableBreakPoint, True, @OnToggleEnableMenuItemClick);
AddMenuItem('Delete Breakpoint',true,@OnDeleteMenuItemClick); AddMenuItem(lisDeleteBreakPoint, True, @OnDeleteMenuItemClick);
AddMenuItem('View Breakpoint Properties',true,@OnViewPropertiesMenuItemClick); AddMenuItem(lisViewBreakPointProperties, True, @OnViewPropertiesMenuItemClick);
// add separator
AddMenuItem('-',true,nil);
end; end;
procedure TManagedBreakPoint.AssignTo(Dest: TPersistent); procedure TManagedBreakPoint.AssignTo(Dest: TPersistent);

8
ide/lazarusidestrconsts.pas
View File

@ -2920,7 +2920,6 @@ resourcestring
lisTheLaunchingApplicationBundleDoesNotExists = 'The Application Bundle %s' lisTheLaunchingApplicationBundleDoesNotExists = 'The Application Bundle %s'
+'%sneeded for execution does not exist or is not executable.%sDo you want to create one?' +'%sneeded for execution does not exist or is not executable.%sDo you want to create one?'
+'%s%sSee Project -> Project Options -> Application for settings.'; +'%s%sSee Project -> Project Options -> Application for settings.';
lisDebuggerInvalid = 'Debugger invalid'; lisDebuggerInvalid = 'Debugger invalid';
lisTheDebuggerDoesNotExistsOrIsNotExecutableSeeEnviro = 'The debugger %s%s%' lisTheDebuggerDoesNotExistsOrIsNotExecutableSeeEnviro = 'The debugger %s%s%'
+'s%sdoes not exist or is not executable.%s%sSee Environment -> Debugger ' +'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 ' +'directory %s%s%s does not exist.%sPlease check the working directory in '
+'Menu > Run > Run parameters.'; +'Menu > Run > Run parameters.';
lisPleaseOpenAUnitBeforeRun = 'Please open a unit before run.'; 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 // disk diff dialog
lisDiskDiffErrorReadingFile = 'Error reading file: %s'; lisDiskDiffErrorReadingFile = 'Error reading file: %s';
lisDiskDiffSomeFilesHaveChangedOnDisk = 'Some files have changed on disk:'; lisDiskDiffSomeFilesHaveChangedOnDisk = 'Some files have changed on disk:';