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

IDE: Text was pasted from clipboard to both OI (or other window) and source editor. Issue #22143

Browse Source 
git-svn-id: trunk@37492 -
This commit is contained in:
juha 2012-06-02 23:30:19 +00:00
parent 326c5a7fb3
commit 35adfd6e3d
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
ide/main.pp
View File

@ -19093,14 +19093,15 @@ begin
end;
end;
procedure TMainIDE.DoSourceEditorCommand(EditorCommand: integer;
CheckFocus: boolean);
procedure TMainIDE.DoSourceEditorCommand(EditorCommand: integer; CheckFocus: boolean);
var
CurFocusControl: TWinControl;
ActiveSourceEditor: TSourceEditor;
ActiveUnitInfo: TUnitInfo;
begin
// check that the currently focus is on the MainIDEBar or on the SourceEditor
CurFocusControl:=Nil;
ActiveSourceEditor:=Nil;
// check if focus is on MainIDEBar or on SourceEditor
if CheckFocus then
begin
CurFocusControl:=FindOwnerControl(GetFocus);
@ -19109,17 +19110,16 @@ begin
break;
CurFocusControl:=CurFocusControl.Parent;
end;
if CurFocusControl=nil then
begin
// continue processing shortcut, not handled yet
MainIDEBar.mnuMainMenu.ShortcutHandled := false;
end;
end;
GetCurrentUnit(ActiveSourceEditor,ActiveUnitInfo);
if ActiveSourceEditor=nil then
MainIDEBar.mnuMainMenu.ShortcutHandled := false
else
ActiveSourceEditor.DoEditorExecuteCommand(EditorCommand);
if Assigned(CurFocusControl) then
begin // MainIDEBar or SourceNotebook has focus -> find active source editor
GetCurrentUnit(ActiveSourceEditor,ActiveUnitInfo);
if Assigned(ActiveSourceEditor) then
ActiveSourceEditor.DoEditorExecuteCommand(EditorCommand); // pass the command
end;
// Not passed to source editor -> continue processing shortcut, not handled yet
if (CurFocusControl=Nil) or (ActiveSourceEditor=Nil) then
MainIDEBar.mnuMainMenu.ShortcutHandled := false;
end;
procedure TMainIDE.DoInsertGUID;