paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 00:20:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

TCustomTabControl: do not call OnChange when setting PageIndex/TabIndex by code. Issue #0025554.

Browse Source 
git-svn-id: trunk@53089 -
This commit is contained in:
bart 2016-10-10 09:00:22 +00:00
parent 94d424d93a
commit 78830476ff
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/customnotebook.inc
View File

@ -585,8 +585,9 @@ begin
//debugln('TCustomTabControl.SetPageIndex B ',dbgsName(Self),' AValue=',dbgs(AValue),' fPageIndex=',dbgs(fPageIndex),' PageCount=',dbgs(PageCount),' HandleAllocated=',dbgs(HandleAllocated));
InternalSetPageIndex(AValue);
if ([csDesigning, csLoading, csDestroying] * ComponentState = []) then
DoChange;
//Delphi does not do this. In future we might make this configurable, so for the time being I commented it out
//if ([csDesigning, csLoading, csDestroying] * ComponentState = []) then
// DoChange;
end;
{$IFDEF old}