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

* ide: added shortcut for view debug events

Browse Source 
git-svn-id: trunk@24579 -
This commit is contained in:
marc 2010-04-11 14:53:27 +00:00
parent 4b4b02df5a
commit 87b56618c0
5 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/debugmanager.pas
View File

@ -2034,7 +2034,7 @@ begin
itmViewWatches.Command:=GetCommand(ecToggleWatches); itmViewWatches.Command:=GetCommand(ecToggleWatches);
itmViewBreakpoints.Command:=GetCommand(ecToggleBreakPoints); itmViewBreakpoints.Command:=GetCommand(ecToggleBreakPoints);
itmViewDebugOutput.Command:=GetCommand(ecToggleDebuggerOut); itmViewDebugOutput.Command:=GetCommand(ecToggleDebuggerOut);
itmViewDebugEvents.Command:=GetCommand(ecToggleDebuggerEvents); itmViewDebugEvents.Command:=GetCommand(ecToggleDebugEvents);
itmViewLocals.Command:=GetCommand(ecToggleLocals); itmViewLocals.Command:=GetCommand(ecToggleLocals);
itmViewRegisters.Command:=GetCommand(ecToggleRegisters); itmViewRegisters.Command:=GetCommand(ecToggleRegisters);
itmViewCallStack.Command:=GetCommand(ecToggleCallStack); itmViewCallStack.Command:=GetCommand(ecToggleCallStack);
@ -2511,7 +2511,7 @@ begin
ecToggleWatches: ViewDebugDialog(ddtWatches); ecToggleWatches: ViewDebugDialog(ddtWatches);
ecToggleBreakPoints: ViewDebugDialog(ddtBreakpoints); ecToggleBreakPoints: ViewDebugDialog(ddtBreakpoints);
ecToggleDebuggerOut: ViewDebugDialog(ddtOutput); ecToggleDebuggerOut: ViewDebugDialog(ddtOutput);
ecToggleDebuggerEvents: ViewDebugDialog(ddtEvents); ecToggleDebugEvents: ViewDebugDialog(ddtEvents);
ecToggleLocals: ViewDebugDialog(ddtLocals); ecToggleLocals: ViewDebugDialog(ddtLocals);
else else
Handled := False; Handled := False;

4
ide/keymapping.pp
View File

@ -501,6 +501,7 @@ begin
ecToggleCallStack: SetResult(VK_S,[ssCtrl,ssAlt],VK_UNKNOWN,[]); ecToggleCallStack: SetResult(VK_S,[ssCtrl,ssAlt],VK_UNKNOWN,[]);
ecToggleRegisters: SetResult(VK_R,[ssCtrl,ssAlt],VK_UNKNOWN,[]); ecToggleRegisters: SetResult(VK_R,[ssCtrl,ssAlt],VK_UNKNOWN,[]);
ecToggleAssembler: SetResult(VK_D,[ssCtrl,ssAlt],VK_UNKNOWN,[]); ecToggleAssembler: SetResult(VK_D,[ssCtrl,ssAlt],VK_UNKNOWN,[]);
ecToggleDebugEvents: SetResult(VK_V,[ssCtrl,ssAlt],VK_UNKNOWN,[]);
ecToggleDebuggerOut: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]); ecToggleDebuggerOut: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecViewUnits: SetResult(VK_F12,[ssCtrl],VK_UNKNOWN,[]); ecViewUnits: SetResult(VK_F12,[ssCtrl],VK_UNKNOWN,[]);
ecViewForms: SetResult(VK_F12,[ssShift],VK_UNKNOWN,[]); ecViewForms: SetResult(VK_F12,[ssShift],VK_UNKNOWN,[]);
@ -923,6 +924,7 @@ begin
ecToggleCallStack: SetResult(VK_F3,[ssCtrl],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]); ecToggleCallStack: SetResult(VK_F3,[ssCtrl],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecToggleRegisters: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]); ecToggleRegisters: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecToggleAssembler: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]); ecToggleAssembler: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecToggleDebugEvents: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecToggleDebuggerOut: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]); ecToggleDebuggerOut: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecViewUnits: SetResult(VK_F12,[ssCtrl],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]); ecViewUnits: SetResult(VK_F12,[ssCtrl],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecViewForms: SetResult(VK_F12,[ssShift],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]); ecViewForms: SetResult(VK_F12,[ssShift],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
@ -1527,6 +1529,7 @@ begin
ecToggleCallStack: SetResult(VK_S,[ssCtrl,ssAlt],VK_UNKNOWN,[]); ecToggleCallStack: SetResult(VK_S,[ssCtrl,ssAlt],VK_UNKNOWN,[]);
ecToggleRegisters: SetResult(VK_R,[ssCtrl,ssAlt],VK_UNKNOWN,[]); ecToggleRegisters: SetResult(VK_R,[ssCtrl,ssAlt],VK_UNKNOWN,[]);
ecToggleAssembler: SetResult(VK_D,[ssCtrl,ssAlt],VK_UNKNOWN,[]); ecToggleAssembler: SetResult(VK_D,[ssCtrl,ssAlt],VK_UNKNOWN,[]);
ecToggleDebugEvents: SetResult(VK_V,[ssCtrl,ssAlt],VK_UNKNOWN,[]);
ecToggleDebuggerOut: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]); ecToggleDebuggerOut: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecViewUnits: SetResult(VK_U,[ssCtrl,ssAlt],VK_UNKNOWN,[]); ecViewUnits: SetResult(VK_U,[ssCtrl,ssAlt],VK_UNKNOWN,[]);
ecViewForms: SetResult(VK_U,[ssShift,ssCtrl],VK_UNKNOWN,[]); ecViewForms: SetResult(VK_U,[ssShift,ssCtrl],VK_UNKNOWN,[]);
@ -2723,6 +2726,7 @@ begin
ecToggleRegisters); ecToggleRegisters);
AddDefault(C, 'Toggle view Assembler', lisKMToggleViewAssembler, AddDefault(C, 'Toggle view Assembler', lisKMToggleViewAssembler,
ecToggleAssembler); ecToggleAssembler);
AddDefault(C, 'Toggle view Debug Events', lisKMToggleViewDebugEvents, ecToggleDebugEvents);
AddDefault(C, 'Toggle view Debugger Output', lisKMToggleViewDebuggerOutput, AddDefault(C, 'Toggle view Debugger Output', lisKMToggleViewDebuggerOutput,
ecToggleDebuggerOut); ecToggleDebuggerOut);
AddDefault(C, 'View Units', lisHintViewUnits, ecViewUnits); AddDefault(C, 'View Units', lisHintViewUnits, ecViewUnits);

BIN
ide/lazarus.res
View File

Binary file not shown.

1
ide/lazarusidestrconsts.pas
View File

@ -2488,6 +2488,7 @@ resourcestring
lisKMToggleViewCallStack = 'Toggle view Call Stack'; lisKMToggleViewCallStack = 'Toggle view Call Stack';
lisKMToggleViewRegisters = 'Toggle view Registers'; lisKMToggleViewRegisters = 'Toggle view Registers';
lisKMToggleViewAssembler = 'Toggle view Assembler'; lisKMToggleViewAssembler = 'Toggle view Assembler';
lisKMToggleViewDebugEvents = 'Toggle view Debug Events';
lisKMToggleViewDebuggerOutput = 'Toggle view Debugger Output'; lisKMToggleViewDebuggerOutput = 'Toggle view Debugger Output';
srkmCatProjectMenu = 'Project menu commands'; srkmCatProjectMenu = 'Project menu commands';
lisKMNewProject = 'New project'; lisKMNewProject = 'New project';

2
ideintf/idecommands.pas
View File

@ -184,7 +184,7 @@ const
ecViewTodoList = ecFirstLazarus + 323; ecViewTodoList = ecFirstLazarus + 323;
ecToggleRegisters = ecFirstLazarus + 324; ecToggleRegisters = ecFirstLazarus + 324;
ecToggleAssembler = ecFirstLazarus + 325; ecToggleAssembler = ecFirstLazarus + 325;
ecToggleDebuggerEvents = ecFirstLazarus + 326; ecToggleDebugEvents = ecFirstLazarus + 326;
// sourcenotebook commands // sourcenotebook commands