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

IDE: Focus active source editor before executing menu command, did not work with anchordocking. Issue # 22114, modified from patch by Takeda Matsuki

Browse Source 
git-svn-id: trunk@37422 -
This commit is contained in:
juha 2012-05-26 07:25:27 +00:00
parent 5fd2bc261d
commit 48d4107e26
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/sourceeditor.pp
View File

@ -1297,14 +1297,16 @@ var
ActEdit: TSourceEditor;
r: Boolean;
begin
if (SourceEditorManager = nil) or (Sender = nil) or not(Sender is TIDEMenuCommand) then
exit;
if SourceEditorManager = nil then exit;
if not (Sender is TIDEMenuCommand) then exit;
if TIDEMenuCommand(Sender).Command = nil then exit;
ActEdit := SourceEditorManager.ActiveEditor;
if (ActEdit = nil) or (TIDEMenuCommand(Sender).Command = nil) then
exit;
r := TIDEMenuCommand(Sender).Command.OnExecuteProc = @ExecuteIdeMenuClick;
if ActEdit = nil then exit;
r := TIDEMenuCommand(Sender).Command.OnExecuteProc = @ExecuteIdeMenuClick;
if r then
TIDEMenuCommand(Sender).Command.OnExecuteProc := nil;
// Commands may not work without focusing when anchordocking is installed
ActEdit.FocusEditor;
ActEdit.DoEditorExecuteCommand(TIDEMenuCommand(Sender).Command.Command);
if r then
TIDEMenuCommand(Sender).Command.OnExecuteProc := @ExecuteIdeMenuClick;