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

LCL, Win: TabControl, update index, if ShowTabs is set to True

Browse Source 
git-svn-id: trunk@42670 -
This commit is contained in:
martin 2013-09-07 19:40:47 +00:00
parent 59d1dc53d2
commit 02b79c9410
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/win32/win32pagecontrol.inc
View File

@ -505,6 +505,7 @@ begin
end; end;
Inc(RealIndex); Inc(RealIndex);
end; end;
SetPageIndex(ATabControl, ATabControl.PageIndex); // index may not have been updated while pages where hidden
AdjustSizeTabControlPages(ATabControl); AdjustSizeTabControlPages(ATabControl);
end; end;