mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-06 09:00:33 +02:00
SourceEditor: Improved active window detection
git-svn-id: trunk@24197 -
This commit is contained in:
parent
fb34fc56ff
commit
6148dfd9c9
@ -6624,6 +6624,8 @@ end;
|
||||
procedure TSourceNotebook.Activate;
|
||||
begin
|
||||
inherited Activate;
|
||||
if assigned(Manager) then
|
||||
Manager.ActiveSourceWindow := self;
|
||||
if assigned(Manager) and assigned(Manager.OnWindowActivate) then
|
||||
Manager.OnWindowActivate(self);
|
||||
end;
|
||||
|
Loading…
Reference in New Issue
Block a user