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

SourceEditor: Activate Window, before sending notification

Browse Source 
git-svn-id: trunk@24246 -
This commit is contained in:
martin 2010-03-27 12:17:39 +00:00
parent ac6443ca7f
commit 10df69f897
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/sourceeditor.pp
View File

@ -8010,11 +8010,11 @@ begin
for i := 1 to FUpdateLock do for i := 1 to FUpdateLock do
Result.IncUpdateLock; Result.IncUpdateLock;
FSourceWindowList.Add(Result); FSourceWindowList.Add(Result);
FChangeNotifyLists[semWindowCreate].CallNotifyEvents(Result);
if Activate then begin if Activate then begin
ActiveSourceWindow := Result; ActiveSourceWindow := Result;
ShowActiveWindowOnTop(False); ShowActiveWindowOnTop(False);
end; end;
FChangeNotifyLists[semWindowCreate].CallNotifyEvents(Result);
end; end;
procedure TSourceEditorManager.RemoveWindow(AWindow: TSourceNotebook); procedure TSourceEditorManager.RemoveWindow(AWindow: TSourceNotebook);