paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-05 15:18:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

Src-Edit / ContextMenu commands: Do not change on every editor focus change. Issue #17763

Browse Source 
git-svn-id: trunk@28405 -
This commit is contained in:
martin 2010-11-22 14:21:03 +00:00
parent 0ddec7a8d6
commit 419e2d8dd3
1 changed files with 3 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ide/sourceeditor.pp
View File

@ -1424,7 +1424,7 @@ begin
// register the Debug submenu items
SrcEditMenuToggleBreakpoint:=RegisterIDEMenuCommand
(AParent,'Toggle Breakpoint', uemToggleBreakpoint);
(AParent,'Toggle Breakpoint', uemToggleBreakpoint, nil, @ExecuteIdeMenuClick);
SrcEditMenuEvaluateModify:=RegisterIDEMenuCommand
(AParent,'Evaluate/Modify...', uemEvaluateModify, nil, nil, nil,'debugger_modify');
SrcEditMenuEvaluateModify.Enabled:=False;
@ -1435,8 +1435,8 @@ begin
SrcEditMenuInspect.Enabled:=False;
SrcEditMenuRunToCursor:=RegisterIDEMenuCommand(AParent,
'Run to cursor', uemRunToCursor, nil, nil, nil, 'menu_run_cursor');
SrcEditMenuViewCallStack:=RegisterIDEMenuCommand(AParent,
'View Call Stack', uemViewCallStack, nil, nil, nil, 'debugger_call_stack');
SrcEditMenuViewCallStack:=RegisterIDEMenuCommand
(AParent, 'View Call Stack', uemViewCallStack, nil, @ExecuteIdeMenuClick, nil, 'debugger_call_stack');
{%endregion}
{%region *** Refactoring Section ***}
@ -6428,18 +6428,6 @@ begin
MainIDEInterface.DoCommand(ecFindOverloads);
end;
procedure TSourceNotebook.ViewCallStackClick(Sender: TObject);
var
Command: TSynEditorCommand;
AChar: TUTF8Char;
Handled: boolean;
begin
Command:=ecToggleCallStack;
AChar:=#0;
Handled:=false;
ProcessParentCommand(Self,Command,AChar,nil,Handled);
end;
function TSourceNotebook.NewFile(const NewShortName: String;
ASource: TCodeBuffer; FocusIt: boolean; AShareEditor: TSourceEditor = nil): TSourceEditor;
Begin