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

MWE:

Browse Source 
+ Added view callstack menu item

git-svn-id: trunk@1653 -
This commit is contained in:
lazarus 2002-04-30 15:01:06 +00:00
parent 887c7fdc1f
commit 9f6e67ba6f
4 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/keymapping.pp
View File

@ -89,6 +89,7 @@ const
ecViewUnits = ecUserFirst + 309; ecViewUnits = ecUserFirst + 309;
ecViewForms = ecUserFirst + 310; ecViewForms = ecUserFirst + 310;
ecToggleLocals = ecUserFirst + 311; ecToggleLocals = ecUserFirst + 311;
ecToggleCallStack = ecUserFirst + 312;
ecBuild = ecUserFirst + 400; ecBuild = ecUserFirst + 400;
ecRun = ecUserFirst + 401; ecRun = ecUserFirst + 401;
@ -468,6 +469,7 @@ begin
ecToggleBreakPoints: Result:= 'view breakpoints'; ecToggleBreakPoints: Result:= 'view breakpoints';
ecToggleDebuggerOut: Result:= 'view debugger output'; ecToggleDebuggerOut: Result:= 'view debugger output';
ecToggleLocals: Result := 'view local variables'; ecToggleLocals: Result := 'view local variables';
ecToggleCallStack: Result := 'view call stack';
ecViewUnits: Result:= 'view units'; ecViewUnits: Result:= 'view units';
ecViewForms: Result:= 'view forms'; ecViewForms: Result:= 'view forms';
@ -1198,6 +1200,7 @@ begin
Add(C,'Toggle view Watches',ecToggleWatches,VK_W,[ssCtrl,ssAlt],VK_UNKNOWN,[]); Add(C,'Toggle view Watches',ecToggleWatches,VK_W,[ssCtrl,ssAlt],VK_UNKNOWN,[]);
Add(C,'Toggle view Breakpoints',ecToggleBreakPoints,VK_B,[ssCtrl,ssAlt],VK_UNKNOWN,[]); Add(C,'Toggle view Breakpoints',ecToggleBreakPoints,VK_B,[ssCtrl,ssAlt],VK_UNKNOWN,[]);
Add(C,'Toggle view Local Variables',ecToggleLocals,VK_L,[ssCtrl,ssAlt],VK_UNKNOWN,[]); Add(C,'Toggle view Local Variables',ecToggleLocals,VK_L,[ssCtrl,ssAlt],VK_UNKNOWN,[]);
Add(C,'Toggle view Call Stack',ecToggleCallStack,VK_S,[ssCtrl,ssAlt],VK_UNKNOWN,[]);
Add(C,'Toggle view Debugger Output',ecToggleDebuggerOut,VK_UNKNOWN,[],VK_UNKNOWN,[]); Add(C,'Toggle view Debugger Output',ecToggleDebuggerOut,VK_UNKNOWN,[],VK_UNKNOWN,[]);
Add(C,'View Units',ecViewUnits,VK_F12,[ssCtrl],VK_UNKNOWN,[]); Add(C,'View Units',ecViewUnits,VK_F12,[ssCtrl],VK_UNKNOWN,[]);
Add(C,'View Forms',ecViewForms,VK_F12,[ssShift],VK_UNKNOWN,[]); Add(C,'View Forms',ecViewForms,VK_F12,[ssShift],VK_UNKNOWN,[]);

1
ide/lazarusidestrconsts.pas
View File

@ -106,6 +106,7 @@ ResourceString
lisMenuViewWatches = 'Watches'; lisMenuViewWatches = 'Watches';
lisMenuViewBreakPoints = 'BreakPoints'; lisMenuViewBreakPoints = 'BreakPoints';
lisMenuViewLocalVariables = 'Local Variables'; lisMenuViewLocalVariables = 'Local Variables';
lisMenuViewCallStack = 'Call Stack';
lisMenuViewDebugOutput = 'Debug output'; lisMenuViewDebugOutput = 'Debug output';
lisMenuNewProject = 'New Project'; lisMenuNewProject = 'New Project';
lisMenuOpenProject = 'Open Project'; lisMenuOpenProject = 'Open Project';

9
ide/main.pp
View File

@ -1405,6 +1405,11 @@ begin
itmViewLocals.Name:='itmViewLocals'; itmViewLocals.Name:='itmViewLocals';
itmViewLocals.Caption := lisMenuViewLocalVariables; itmViewLocals.Caption := lisMenuViewLocalVariables;
itmViewDebugWindows.Add(itmViewLocals); itmViewDebugWindows.Add(itmViewLocals);
itmViewCallStack := TMenuItem.Create(Self);
itmViewCallStack.Name:='itmViewCallStack';
itmViewCallStack.Caption := lisMenuViewCallStack;
itmViewDebugWindows.Add(itmViewCallStack);
itmViewDebugOutput := TMenuItem.Create(Self); itmViewDebugOutput := TMenuItem.Create(Self);
itmViewDebugOutput.Name:='itmViewDebugOutput'; itmViewDebugOutput.Name:='itmViewDebugOutput';
@ -6321,6 +6326,10 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.290 2002/04/30 15:01:05 lazarus
MWE:
+ Added view callstack menu item
Revision 1.289 2002/04/28 14:10:27 lazarus Revision 1.289 2002/04/28 14:10:27 lazarus
MG: fixes for saving resource files MG: fixes for saving resource files

1
ide/mainbar.pas
View File

@ -143,6 +143,7 @@ type
itmViewwatches: TMenuItem; itmViewwatches: TMenuItem;
itmViewBreakpoints: TMenuItem; itmViewBreakpoints: TMenuItem;
itmViewLocals: TMenuItem; itmViewLocals: TMenuItem;
itmViewCallStack: TMenuItem;
itmViewDebugOutput: TMenuItem; itmViewDebugOutput: TMenuItem;
itmProjectNew: TMenuItem; itmProjectNew: TMenuItem;