paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-28 14:09:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: replace Add breakpoint to Toggle breakpoint in some places

Browse Source 
git-svn-id: trunk@18983 -
This commit is contained in:
paul 2009-03-13 17:47:37 +00:00
parent 27e3ec707f
commit 7402655037
5 changed files with 14 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/keymapping.pp
View File

@ -408,7 +408,7 @@ begin
ecNextEditor: SetResult(VK_TAB, [ssCtrl], VK_UNKNOWN, []);
ecPrevEditor: SetResult(VK_TAB, [ssShift,ssCtrl], VK_UNKNOWN, []);
ecResetDebugger: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecAddBreakPoint: SetResult(VK_F5,[],VK_UNKNOWN,[]);
ecToggleBreakPoint: SetResult(VK_F5,[],VK_UNKNOWN,[]);
ecMoveEditorLeft: SetResult(VK_UNKNOWN, [], VK_UNKNOWN, []);
ecMoveEditorRight: SetResult(VK_UNKNOWN, [], VK_UNKNOWN, []);
ecMoveEditorLeftmost: SetResult(VK_UNKNOWN, [], VK_UNKNOWN, []);
@ -753,7 +753,7 @@ begin
ecNextEditor: SetResult(VK_F6,[],VK_UNKNOWN,[],VK_TAB, [ssCtrl], VK_UNKNOWN, []);
ecPrevEditor: SetResult(VK_F6,[ssShift],VK_UNKNOWN,[],VK_TAB, [ssShift,ssCtrl], VK_UNKNOWN, []);
ecResetDebugger: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecAddBreakPoint: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecToggleBreakPoint: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecMoveEditorLeft: SetResult(VK_UNKNOWN, [], VK_UNKNOWN, [],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecMoveEditorRight: SetResult(VK_UNKNOWN, [], VK_UNKNOWN, [],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecMoveEditorLeftmost: SetResult(VK_UNKNOWN, [], VK_UNKNOWN, [],VK_UNKNOWN,[],VK_UNKNOWN,[]);
@ -1286,7 +1286,7 @@ begin
ecNextEditor: SetResult(VK_RIGHT, [ssMeta,ssAlt], VK_UNKNOWN, []);
ecPrevEditor: SetResult(VK_LEFT, [ssMeta,ssAlt], VK_UNKNOWN, []);
ecResetDebugger: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecAddBreakPoint: SetResult(VK_P,[ssCtrl],VK_UNKNOWN,[]);
ecToggleBreakPoint: SetResult(VK_P,[ssCtrl],VK_UNKNOWN,[]);
ecMoveEditorLeft: SetResult(VK_UNKNOWN, [], VK_UNKNOWN, []);
ecMoveEditorRight: SetResult(VK_UNKNOWN, [], VK_UNKNOWN, []);
ecMoveEditorLeftmost: SetResult(VK_UNKNOWN, [], VK_UNKNOWN, []);
@ -1631,7 +1631,7 @@ begin
ecMoveEditorRight : Result:= srkmecMoveEditorRight;
ecMoveEditorLeftmost : Result:= srkmecMoveEditorLeftmost;
ecMoveEditorRightmost : Result:= srkmecMoveEditorRightmost;
ecAddBreakPoint : Result:= srkmecAddBreakPoint;
ecToggleBreakPoint : Result:= srkmecToggleBreakPoint;
ecRemoveBreakPoint : Result:= srkmecRemoveBreakPoint;
ecGotoEditor1..
ecGotoEditor0 : Result:= Format(srkmecGotoEditor,[cmd-ecGotoEditor1]);
@ -2226,8 +2226,8 @@ begin
IDECmdScopeSrcEdit)];
AddDefault(C, 'Go to next editor', srkmecNextEditor, ecNextEditor);
AddDefault(C, 'Go to prior editor', srkmecPrevEditor, ecPrevEditor);
AddDefault(C, 'Add break point', lisKMAddBreakPoint, ecAddBreakPoint);
AddDefault(C, 'Remove break point', lisKMRemoveBreakPoint, ecRemoveBreakPoint
AddDefault(C, 'Add break point', srkmecToggleBreakPoint, ecToggleBreakPoint);
AddDefault(C, 'Remove break point', srkmecRemoveBreakPoint, ecRemoveBreakPoint
);
AddDefault(C, 'Move editor left', srkmecMoveEditorLeft, ecMoveEditorLeft);
AddDefault(C, 'Move editor right', srkmecMoveEditorRight, ecMoveEditorRight);

6
ide/lazarusidestrconsts.pas
View File

@ -1700,7 +1700,7 @@ resourcestring
uemShowLineNumbers = 'Show Line Numbers';
uemShowUnitInfo = 'Unit Info';
uemDebugWord = 'Debug';
uemAddBreakpoint = '&Add Breakpoint';
uemToggleBreakpoint = '&Toggle Breakpoint';
uemAddWatchAtCursor = 'Add &Watch At Cursor';
uemRunToCursor='&Run to Cursor';
uemViewCallStack = 'View Call Stack';
@ -1925,8 +1925,6 @@ resourcestring
lisKMToggleBetweenUnitAndForm = 'Toggle between Unit and Form';
srkmecNextEditor = 'Go to next editor';
srkmecPrevEditor = 'Go to prior editor';
lisKMAddBreakPoint = 'Add break point';
lisKMRemoveBreakPoint = 'Remove break point';
srkmecMoveEditorLeft = 'Move editor left';
srkmecMoveEditorRight = 'Move editor right';
srkmecMoveEditorLeftmost = 'Move editor leftmost';
@ -2037,7 +2035,7 @@ resourcestring
srkmecPause = 'pause program';
srkmecStopProgram = 'stop program';
srkmecResetDebugger = 'reset debugger';
srkmecAddBreakPoint = 'add break point';
srkmecToggleBreakPoint = 'toggle break point';
srkmecRemoveBreakPoint = 'remove break point';
srkmecRunParameters = 'run parameters';
srkmecCompilerOptions = 'compiler options';

2
ide/main.pp
View File

@ -2854,7 +2854,7 @@ begin
ecAboutLazarus:
MainIDEBar.itmHelpAboutLazarus.OnClick(Self);
ecAddBreakPoint:
ecToggleBreakPoint:
SourceNotebook.ToggleBreakpointClicked(Self);
ecRemoveBreakPoint:

8
ide/sourceeditor.pp
View File

@ -837,7 +837,7 @@ var
SrcEditMenuPrevBookmark: TIDEMenuCommand;
SrcEditMenuSetFreeBookmark: TIDEMenuCommand;
// debugging
SrcEditMenuAddBreakpoint: TIDEMenuCommand;
SrcEditMenuToggleBreakpoint: TIDEMenuCommand;
SrcEditMenuRunToCursor: TIDEMenuCommand;
SrcEditMenuAddWatchAtCursor: TIDEMenuCommand;
SrcEditMenuViewCallStack: TIDEMenuCommand;
@ -979,8 +979,8 @@ begin
'Debug',uemDebugWord);
AParent:=SrcEditSubMenuDebug;
// register the Debug submenu items
SrcEditMenuAddBreakpoint:=RegisterIDEMenuCommand(AParent,'Add Breakpoint',
uemAddBreakpoint);
SrcEditMenuToggleBreakpoint:=RegisterIDEMenuCommand(AParent,'Toggle Breakpoint',
uemToggleBreakpoint);
SrcEditMenuAddWatchAtCursor:=RegisterIDEMenuCommand(AParent,
'Add Watch at Cursor',uemAddWatchAtCursor);
SrcEditMenuRunToCursor:=RegisterIDEMenuCommand(AParent,
@ -4324,7 +4324,7 @@ begin
SrcEditMenuNextBookmark.OnClick:=@BookMarkNextClicked;
SrcEditMenuPrevBookmark.OnClick:=@BookMarkPrevClicked;
SrcEditMenuAddBreakpoint.OnClick:=@AddBreakpointClicked;
SrcEditMenuToggleBreakpoint.OnClick:=@ToggleBreakpointClicked;
SrcEditMenuAddWatchAtCursor.OnClick:=@AddWatchAtCursor;
SrcEditMenuRunToCursor.OnClick:=@RunToClicked;
SrcEditMenuViewCallStack.OnClick:=@ViewCallStackClick;

2
ideintf/idecommands.pas
View File

@ -188,7 +188,7 @@ const
ecPrevEditor = ecFirstLazarus + 331;
ecMoveEditorLeft = ecFirstLazarus + 332;
ecMoveEditorRight = ecFirstLazarus + 333;
ecAddBreakPoint = ecFirstLazarus + 334;
ecToggleBreakPoint = ecFirstLazarus + 334;
ecRemoveBreakPoint = ecFirstLazarus + 335;
ecMoveEditorLeftmost = ecFirstLazarus + 336;
ecMoveEditorRightmost = ecFirstLazarus + 337;