mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-06 11:00:41 +02:00
debugging
git-svn-id: trunk@26534 -
This commit is contained in:
parent
067f4ebeb2
commit
77c0853887
@ -36,6 +36,8 @@ interface
|
||||
|
||||
{$I ide.inc}
|
||||
|
||||
{ $DEFINE VerboseIDECompletionBox}
|
||||
|
||||
uses
|
||||
{$IFDEF IDE_MEM_CHECK}
|
||||
MemCheck,
|
||||
|
@ -868,6 +868,7 @@ begin
|
||||
// it is already active
|
||||
// do not send this message to the LCL
|
||||
// to prevent setting AForm.ActiveControl:=nil
|
||||
//debugln(['GTKFocusCBAfter ',DbgSName(LCLObject),' send=',event^.send_event,' window=',dbgs(event^.window),' in=',event^._in,' type=',event^._type]);
|
||||
exit(true);
|
||||
end;
|
||||
// MG: maybe better send a LM_ACTIVATE instead of a LM_SETFOCUS message?
|
||||
|
Loading…
Reference in New Issue
Block a user