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

anchordocking: more debugging for focus

Browse Source 
git-svn-id: trunk@26325 -
This commit is contained in:
mattias 2010-06-29 15:23:07 +00:00
parent ed6697dfdf
commit ae014f642c
2 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
examples/anchordocking/design/registeranchordocking.pas
View File

@ -35,7 +35,7 @@ interface
uses
Math, Classes, SysUtils, LCLProc, Forms, Controls, FileUtil, Dialogs,
LazConfigStorage, XMLCfg, XMLPropStorage, StdCtrls,
LazConfigStorage, XMLCfg, XMLPropStorage, StdCtrls, LCLIntf,
BaseIDEIntf, ProjectIntf, MacroIntf, IDEDialogs, MenuIntf, LazIDEIntf,
IDEWindowIntf, IDEOptionsIntf,
AnchorDockStr, AnchorDocking, AnchorDockOptionsDlg;
@ -417,16 +417,20 @@ begin
AForm.EnableAlign;
if BringToFront then begin
Parent:=GetParentForm(AForm);
if Parent<>nil then
if (OldActiveControl=nil)
or (not OldActiveControl.HandleAllocated)
or (FindControl(GetFocus)<>OldActiveControl) then begin
Parent:=GetParentForm(AForm);
Parent.ShowOnTop;
if OldActiveControl<>nil then
AForm.ActiveControl:=OldActiveControl;
AForm.SetFocus;
debugln(['TIDEAnchorDockMaster.ShowForm AForm.ActiveControl=',dbgsname(AForm.ActiveControl)]);
if OldActiveControl<>nil then
Parent.ActiveControl:=OldActiveControl;
debugln(['TIDEAnchorDockMaster.ShowForm AAA1 AForm.Active=',AForm.Active]);
AForm.SetFocus;
debugln(['TIDEAnchorDockMaster.ShowForm AForm.ActiveControl=',dbgsname(AForm.ActiveControl),' ',DbgSName(Parent.ActiveControl),' ',DbgSName(FindControl(GetFocus))]);
end;
end;
end;
//debugln(['TIDEAnchorDockMaster.ShowForm END ',DbgSName(AForm),' ',dbgs(AForm.BoundsRect)]);
debugln(['TIDEAnchorDockMaster.ShowForm END ',DbgSName(AForm),' ',dbgs(AForm.BoundsRect),' ',DbgSName(FindControl(GetFocus))]);
end;
procedure TIDEAnchorDockMaster.CloseAll;

2
ide/sourceeditor.pp
View File

@ -1499,6 +1499,8 @@ begin
//debugln(GetStackTrace(true));
{$ENDIF}
Manager.DeactivateCompletionForm;
if Manager.ActiveEditor<>nil then
Manager.ActiveEditor.FocusEditor;
end;
procedure TSourceEditCompletion.ccComplete(var Value: string;