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

IDE: add new tab to history after a tab was closed.

Browse Source 
git-svn-id: trunk@50136 -
This commit is contained in:
ondrej 2015-10-21 09:50:46 +00:00
parent 8b28bc8ddd
commit 49fe33b8c3
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/sourceeditor.pp
View File

@ -7439,8 +7439,10 @@ begin
FPageIndex := APageIndex + 1
else
FPageIndex := APageIndex - 1;
FNoteBook.PageIndex := FPageIndex;
Include(FUpdateFlags,ufPageIndexChanged);
if FUpdateLock = 0 then
ApplyPageIndex
else
Include(FUpdateFlags,ufPageIndexChanged);
end;
NotebookPages.Delete(APageIndex);
end else begin