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

Debugger: reduce strings duplication

Browse Source 
git-svn-id: trunk@41016 -
This commit is contained in:
maxim 2013-05-03 16:42:14 +00:00
parent 6da4aaefee
commit dacac381c6
2 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
debugger/breakpropertydlggroups.pas
View File

@ -75,17 +75,12 @@ begin
FGroupList.Delimiter := ';'; FGroupList.Delimiter := ';';
FGroupList.DelimitedText := AGroupList; FGroupList.DelimitedText := AGroupList;
Caption := dbgBreakGroupDlgCaption;
case AAction of case AAction of
bgaEnable: bgaEnable:
begin Label1.Caption := dbgBreakGroupDlgHeaderEnable;
Caption := dbgBreakGroupDlgCaptionEnable;
Label1.Caption := dbgBreakGroupDlgHeaderEnable;
end;
bgaDisable: bgaDisable:
begin Label1.Caption := dbgBreakGroupDlgHeaderDisable;
Caption := dbgBreakGroupDlgCaptionDisable;
Label1.Caption := dbgBreakGroupDlgHeaderDisable;
end;
end; end;
for i := 0 to FAvailableGroups.Count - 1 do begin for i := 0 to FAvailableGroups.Count - 1 do begin

3
ide/lazarusidestrconsts.pas
View File

@ -5570,9 +5570,8 @@ resourcestring
lisDebuggerFeedbackError = 'Debugger Error'; lisDebuggerFeedbackError = 'Debugger Error';
// breakpointgroups // breakpointgroups
dbgBreakGroupDlgCaptionEnable = 'Select Groups'; dbgBreakGroupDlgCaption = 'Select Groups';
dbgBreakGroupDlgHeaderEnable = 'Select groups to enable when breakpoint is hit'; dbgBreakGroupDlgHeaderEnable = 'Select groups to enable when breakpoint is hit';
dbgBreakGroupDlgCaptionDisable = 'Select Groups';
dbgBreakGroupDlgHeaderDisable = 'Select groups to disable when breakpoint is hit'; dbgBreakGroupDlgHeaderDisable = 'Select groups to disable when breakpoint is hit';
//Registers dialog //Registers dialog