paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-07 12:49:29 +01: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])); Application.ReleaseComponent(TComponent(FTabs.Objects[AIndex]));
FTabs.Delete(aIndex); FTabs.Delete(aIndex);
if FTabIndex >= FTabs.Count then SetTabIndex(FTabIndex-1); if FTabIndex >= FTabs.Count then SetPageIndex(FTabIndex-1);
Invalidate; Invalidate;
end; end;