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

SourceEditor/SynCompletion: Don't steal focus after completion drop-down, if user moved to different form

Browse Source 
git-svn-id: trunk@26543 -
This commit is contained in:
martin 2010-07-09 01:37:34 +00:00
parent 29839a9707
commit dd3878df30
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/sourceeditor.pp
View File

@ -1501,8 +1501,6 @@ begin
//debugln(GetStackTrace(true));
{$ENDIF}
Manager.DeactivateCompletionForm;
if Manager.ActiveEditor<>nil then
Manager.ActiveEditor.FocusEditor;
end;
procedure TSourceEditCompletion.ccComplete(var Value: string;
@ -7863,6 +7861,8 @@ begin
end;
procedure TSourceEditorManagerBase.DeactivateCompletionForm;
var
PluginFocused: Boolean;
begin
if ActiveCompletionPlugin<>nil then begin
ActiveCompletionPlugin.Cancel;
@ -7874,13 +7874,16 @@ begin
then
exit;
// Do not move focus, if it was moved by user
PluginFocused := FDefaultCompletionForm.TheForm.Focused;
// clear the IdentifierList (otherwise it would try to update everytime
// the codetools are used)
CodeToolBoss.IdentifierList.Clear;
FDefaultCompletionForm.CurrentCompletionType:=ctNone;
FDefaultCompletionForm.Deactivate;
if ActiveEditor<>nil then begin
if PluginFocused and (ActiveEditor<>nil) then begin
//LCLIntf.ShowCaret(ActSE.EditorComponent.Handle);
TSourceEditor(ActiveEditor).EditorComponent.SetFocus;
end;