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

SourceEditor, IDE: don't focus editor, if hint is shown. Issue #16025, #16019

Browse Source 
git-svn-id: trunk@24071 -
This commit is contained in:
martin 2010-03-17 20:07:20 +00:00
parent d83ee6522b
commit 32b73ebd75
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/main.pp
View File

@ -14353,7 +14353,8 @@ begin
//DebugLn(['TMainIDE.OnSrcNotebookShowHintForSource START']);
if (SrcEdit=nil) then exit;
SourceNotebook.SetActiveSE(SrcEdit);
if SourceEditorManager.ActiveEditor <> SrcEdit then
SourceEditorManager.ActiveEditor := SrcEdit;
if not BeginCodeTool(ActiveSrcEdit, ActiveUnitInfo,
[{ctfActivateAbortMode}]) then exit;

2
ide/sourceeditor.pp
View File

@ -7935,7 +7935,7 @@ begin
else
Window := SourceWindowWithEditor(AValue);
if Window = nil then exit;
FActiveWindow := TSourceNotebook(Window);
ActiveSourceWindow := TSourceNotebook(Window);
Window.ActiveEditor := AValue;
end;