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

lcl: handle the case where the design time TPageControl.PageIndex is set to a TabSheet with TabVisible = False

Browse Source 
git-svn-id: trunk@39679 -
This commit is contained in:
blikblum 2012-12-29 11:21:59 +00:00
parent ef24adff3a
commit afe0a4ea69
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/customnotebook.inc
View File

@ -552,9 +552,9 @@ end;
------------------------------------------------------------------------------}
procedure TCustomTabControl.SetPageIndex(AValue: Integer);
begin
if (AValue < -1) or (AValue >= PageCount) then Exit;
if (csLoading in ComponentState) then FLoadedPageIndex := AValue;
//debugln('TCustomTabControl.SetPageIndex A ',dbgsName(Self),' AValue=',dbgs(AValue),' fPageIndex=',dbgs(fPageIndex),' PageCount=',dbgs(PageCount),' HandleAllocated=',dbgs(HandleAllocated),' ',dbgs(ComponentState));
if (AValue < -1) or (AValue >= PageCount) then Exit;
if FPageIndex = AValue then exit;
if not CanChangePageIndex then exit;
//debugln('TCustomTabControl.SetPageIndex B ',dbgsName(Self),' AValue=',dbgs(AValue),' fPageIndex=',dbgs(fPageIndex),' PageCount=',dbgs(PageCount),' HandleAllocated=',dbgs(HandleAllocated));
@ -937,8 +937,8 @@ end;
procedure TCustomTabControl.Loaded;
begin
inherited Loaded;
if FLoadedPageIndex >= -1 then
PageIndex := FLoadedPageIndex;
if FLoadedPageIndex > -1 then
PageIndex := FindVisiblePage(FLoadedPageIndex);
FLoadedPageIndex := -1;
//DebugLn(['TCustomTabControl.Loaded ',DbgSName(Self),' fPageIndex=',fPageIndex]);
FPageIndexOnLastChange := PageIndex;