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

ide: add View registers and View assembler keys combinations, add them to the keymapping window

Browse Source 
git-svn-id: trunk@23079 -
This commit is contained in:
paul 2009-12-11 02:30:42 +00:00
parent d7496351e9
commit 16847565ea
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/keymapping.pp
View File

@ -499,6 +499,8 @@ begin
ecToggleBreakPoints: SetResult(VK_B,[ssCtrl,ssAlt],VK_UNKNOWN,[]);
ecToggleLocals: SetResult(VK_L,[ssCtrl,ssAlt],VK_UNKNOWN,[]);
ecToggleCallStack: SetResult(VK_S,[ssCtrl,ssAlt],VK_UNKNOWN,[]);
ecToggleRegisters: SetResult(VK_R,[ssCtrl,ssAlt],VK_UNKNOWN,[]);
ecToggleAssembler: SetResult(VK_D,[ssCtrl,ssAlt],VK_UNKNOWN,[]);
ecToggleDebuggerOut: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecViewUnits: SetResult(VK_F12,[ssCtrl],VK_UNKNOWN,[]);
ecViewForms: SetResult(VK_F12,[ssShift],VK_UNKNOWN,[]);
@ -918,6 +920,8 @@ begin
ecToggleBreakPoints: SetResult(VK_F8,[ssCtrl],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecToggleLocals: SetResult(VK_UNKNOWN,[],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,[]);
ecToggleAssembler: 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,[]);
ecViewForms: SetResult(VK_F12,[ssShift],VK_UNKNOWN,[],VK_UNKNOWN,[],VK_UNKNOWN,[]);
@ -1519,6 +1523,8 @@ begin
ecToggleBreakPoints: SetResult(VK_B,[ssCtrl,ssAlt],VK_UNKNOWN,[]);
ecToggleLocals: SetResult(VK_L,[ssCtrl,ssAlt],VK_UNKNOWN,[]);
ecToggleCallStack: SetResult(VK_S,[ssCtrl,ssAlt],VK_UNKNOWN,[]);
ecToggleRegisters: SetResult(VK_R,[ssCtrl,ssAlt],VK_UNKNOWN,[]);
ecToggleAssembler: SetResult(VK_D,[ssCtrl,ssAlt],VK_UNKNOWN,[]);
ecToggleDebuggerOut: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecViewUnits: SetResult(VK_U,[ssCtrl,ssAlt],VK_UNKNOWN,[]);
ecViewForms: SetResult(VK_U,[ssShift,ssCtrl],VK_UNKNOWN,[]);
@ -2008,6 +2014,8 @@ begin
ecToggleDebuggerOut : Result:= srkmecToggleDebuggerOut;
ecToggleLocals : Result:= srkmecToggleLocals;
ecToggleCallStack : Result:= srkmecToggleCallStack;
ecToggleRegisters : Result:= srkmecToggleRegisters;
ecToggleAssembler : Result:= srkmecToggleAssembler;
ecViewUnits : Result:= srkmecViewUnits;
ecViewForms : Result:= srkmecViewForms;
ecViewUnitDependencies : Result:= srkmecViewUnitDependencies;
@ -2706,6 +2714,10 @@ begin
ecToggleLocals);
AddDefault(C, 'Toggle view Call Stack', lisKMToggleViewCallStack,
ecToggleCallStack);
AddDefault(C, 'Toggle view Registers', lisKMToggleViewRegisters,
ecToggleRegisters);
AddDefault(C, 'Toggle view Assembler', lisKMToggleViewAssembler,
ecToggleAssembler);
AddDefault(C, 'Toggle view Debugger Output', lisKMToggleViewDebuggerOutput,
ecToggleDebuggerOut);
AddDefault(C, 'View Units', lisHintViewUnits, ecViewUnits);

4
ide/lazarusidestrconsts.pas
View File

@ -2286,6 +2286,8 @@ resourcestring
srkmecToggleDebuggerOut = 'View debugger output';
srkmecToggleLocals = 'View local variables';
srkmecTogglecallStack = 'View call stack';
srkmecToggleRegisters = 'View registers';
srkmecToggleAssembler = 'View assembler';
srkmecViewUnits = 'View units';
srkmecViewForms = 'View forms';
srkmecViewComponents = 'View components';
@ -2418,6 +2420,8 @@ resourcestring
lisKMToggleViewBreakpoints = 'Toggle view Breakpoints';
lisKMToggleViewLocalVariables = 'Toggle view Local Variables';
lisKMToggleViewCallStack = 'Toggle view Call Stack';
lisKMToggleViewRegisters = 'Toggle view Registers';
lisKMToggleViewAssembler = 'Toggle view Assembler';
lisKMToggleViewDebuggerOutput = 'Toggle view Debugger Output';
srkmCatProjectMenu = 'Project menu commands';
lisKMNewProject = 'New project';