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

IDE: SourceEditor, fix selecting next tab when drag/drop moving an editor. The editor incorrectly switched to the 2nd next tab. Issue #40064

Browse Source
This commit is contained in:
Martin 2023-02-03 21:01:03 +01:00
parent a1b61028fa
commit 8b783581a0
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/sourceeditor.pp
View File

@ -7748,11 +7748,16 @@ begin
FPageIndex := APageIndex + 1
else
FPageIndex := APageIndex - 1;
if FUpdateLock = 0 then
ApplyPageIndex
else
if FUpdateLock = 0 then begin
ApplyPageIndex;
end
else begin
FNotebook.PageIndex := FPageIndex; // Avoid the WS doing this, when the page is deleted.
Include(FUpdateFlags,ufPageIndexChanged);
end;
end;
if FPageIndex > APageIndex then
dec(FPageIndex);
NotebookPages.Delete(APageIndex);
end else begin
FPageIndex := -1;