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

customdrawn: Fixes setting the new page when deleting a tab

Browse Source 
git-svn-id: trunk@33583 -
This commit is contained in:
sekelsenmat 2011-11-17 13:00:43 +00:00
parent 7874c0aac5
commit 7af5a3e038
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/customdrawn/customdrawncontrols.pas
View File

@ -2296,7 +2296,7 @@ begin
Application.ReleaseComponent(TComponent(FTabs.Objects[AIndex]));
FTabs.Delete(aIndex);
if FTabIndex >= FTabs.Count then SetTabIndex(FTabIndex-1);
if FTabIndex >= FTabs.Count then SetPageIndex(FTabIndex-1);
Invalidate;
end;