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

IDE: shortcuts: execute source editor command, when focused control has parent MainIDEBar or a TSourceNotebook, bug #19149

Browse Source 
git-svn-id: trunk@33857 -
This commit is contained in:
mattias 2011-11-30 02:51:37 +00:00
parent ab766bdc87
commit 53ecbea0d9
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/main.pp
View File

@ -18423,16 +18423,16 @@ var
begin
// check that the currently focus is on the MainIDEBar or on the SourceEditor
CurFocusControl:=FindOwnerControl(GetFocus);
if (CurFocusControl<>nil) then begin
CurFocusControl:=GetParentForm(CurFocusControl);
if (CurFocusControl<>MainIDEBar) and not(CurFocusControl is TSourceNotebook) then
while (CurFocusControl<>nil) do begin
if (CurFocusControl=MainIDEBar) or (CurFocusControl is TSourceNotebook) then
begin
// continue processing shortcut, not handled yet
MainIDEBar.mnuMainMenu.ShortcutHandled := false;
DoCommand(EditorCommand);
exit;
end;
CurFocusControl:=CurFocusControl.Parent;
end;
DoCommand(EditorCommand);
// continue processing shortcut, not handled yet
MainIDEBar.mnuMainMenu.ShortcutHandled := false;
end;
procedure TMainIDE.DoInsertGUID;