paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 18:30:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: execute source editor commands even if no editor is available - it doesn't have to be needed. Issue #30894

Browse Source 
git-svn-id: trunk@54412 -
This commit is contained in:
ondrej 2017-03-15 17:51:27 +00:00
parent 212245d761
commit 98f78a3107
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/sourceeditor.pp
View File

@ -1433,7 +1433,11 @@ begin
if not (Sender is TIDESpecialCommand) then exit; if not (Sender is TIDESpecialCommand) then exit;
if TIDESpecialCommand(Sender).Command = nil then exit; if TIDESpecialCommand(Sender).Command = nil then exit;
ActEdit := SourceEditorManager.ActiveEditor; ActEdit := SourceEditorManager.ActiveEditor;
if ActEdit = nil then exit; if ActEdit = nil then
begin
TIDESpecialCommand(Sender).Command.Execute(Sender);
exit;
end;
r := TIDESpecialCommand(Sender).Command.OnExecuteProc = @ExecuteIdeMenuClick; r := TIDESpecialCommand(Sender).Command.OnExecuteProc = @ExecuteIdeMenuClick;
if r then if r then
TIDESpecialCommand(Sender).Command.OnExecuteProc := nil; TIDESpecialCommand(Sender).Command.OnExecuteProc := nil;